Index: openacs-4/packages/bug-tracker/www/bug.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/bug.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/bug-tracker/www/bug.tcl 28 Jan 2004 11:11:59 -0000 1.27
+++ openacs-4/packages/bug-tracker/www/bug.tcl 29 Mar 2004 15:07:34 -0000 1.28
@@ -7,8 +7,8 @@
} [bug_tracker::get_page_variables {
bug_number:integer,notnull
{user_agent_p:boolean 0}
- {show_patch_status "open"}
-}]
+ {show_patch_status "[_ bug-tracker.open]"}
+%}]
#####
#
@@ -25,9 +25,9 @@
set user_id [ad_conn user_id]
permission::require_permission -object_id $package_id -privilege read
+set Bug_name [bug_tracker::conn Bug]
+set page_title "[_ bug-tracker.%Bug_name% %bug_number%]"
-set page_title "[bug_tracker::conn Bug] #$bug_number"
-
set context [list [ad_quotehtml $page_title]]
# Is this project using multiple versions?
@@ -45,7 +45,9 @@
# Get the bug_id
if { ![db_0or1row permission_info {} -column_array bug] } {
- ad_return_complaint 1 "Could not find bug \#$bug_number"
+ set Bug_name [bug_tracker::conn Bug]
+ set could_not_be_found [_ bug-tracker.Could_not_find]
+ ad_return_complaint 1 "[_ bug-tracker.%Bug_name% %bug_number% %could_not_be_found%]"
return
}
@@ -105,14 +107,14 @@
if { [empty_string_p $enabled_action_id] } {
set patch_label [ad_decode $show_patch_status \
- "open" "Open Patches (show all)" \
- "all" "All Patches (show only open)" \
- "Patches"]
+ "open" "[_ bug-tracker.Open] [bug_tracker::conn Patches] ([_ bug-tracker.show_all])" \
+ "all" "[_ bug-tracker.All] [bug_tracker::conn Patches] ([_ bug-tracker.show_only_open])" \
+ "[bug_tracker::conn Patches]"]
} else {
set patch_label [ad_decode $show_patch_status \
- "open" "Open Patches" \
- "all" "All Patches" \
- "Patches"]
+ "open" "[_ bug-tracker.Open] [bug_tracker::conn Patches]" \
+ "all" "[_ bug-tracker.All] [bug_tracker::conn Patches]" \
+ "[bug_tracker::conn Patches]"]
}
ad_form -name bug -cancel_url $return_url -mode display -has_edit 1 -actions $actions -form {
@@ -126,7 +128,7 @@
{mode display}
}
{summary:text(text)
- {label "Summary"}
+ {label "[_ bug-tracker.Summary]"}
{before_html ""}
{after_html ""}
{mode display}
@@ -137,13 +139,13 @@
ad_form -extend -name bug -form {
{pretty_state:text(inform)
- {label "Status"}
+ {label "[_ bug-tracker.Status]"}
{before_html ""}
{after_html ""}
{mode display}
}
{resolution:text(select),optional
- {label "Resolution"}
+ {label "[_ bug-tracker.Resolution]"}
{options {[bug_tracker::resolution_get_options]}}
{mode display}
}
@@ -162,7 +164,7 @@
ad_form -extend -name bug -form {
{found_in_version:text(select),optional
- {label "Found in Version"}
+ {label "[_ bug-tracker.Found_in_Version]"}
{options {[bug_tracker::version_get_options -include_unknown]}}
{mode display}
}
@@ -178,21 +180,21 @@
{mode display}
}
{user_agent:text(inform)
- {label "User Agent"}
+ {label "[_ bug-tracker.User_Agent]"}
{mode display}
}
{fix_for_version:text(select),optional
- {label "Fix for Version"}
+ {label "[_ bug-tracker.Fix_for_Version]"}
{options {[bug_tracker::version_get_options -include_undecided]}}
{mode display}
}
{fixed_in_version:text(select),optional
- {label "Fixed in Version"}
+ {label "[_ bug-tracker.Fixed_in_Version]"}
{options {[bug_tracker::version_get_options -include_undecided]}}
{mode display}
}
{description:richtext(richtext),optional
- {label "Description"}
+ {label "[_ bug-tracker.Description]"}
{html {cols 60 rows 13}}
}
{return_url:text(hidden)
@@ -218,7 +220,7 @@
}
# LARS: Hack! How do we set editing of dynamic fields?
- if { [string equal [workflow::action::get_element -action_id $action_id -element short_name] "edit"] } {
+ if { [string equal [workflow::action::get_element -action_id $action_id -element short_name] "[_ acs-kernel.common_edit]"] } {
foreach { category_id category_name } [bug_tracker::category_types] {
element set_properties bug $category_id -mode edit
}
@@ -285,7 +287,7 @@
}
# Display value for patches
- set bug(patches_display) "[bug_tracker::get_patch_links -bug_id $bug(bug_id) -show_patch_status $show_patch_status] \[ Upload a patch \]"
+ set bug(patches_display) "[bug_tracker::get_patch_links -bug_id $bug(bug_id) -show_patch_status $show_patch_status] \[ [_ bug-tracker.Upload_Patch] \]"
# Hide elements that should be hidden depending on the bug status
foreach element $bug(hide_fields) {
@@ -318,15 +320,15 @@
# check that the element exists
if { [info exists bug:$element] && [info exists bug($element)] } {
- if { [form is_request bug] || [string equal [element get_property bug $element mode] "display"] } {
+ if { [form is_request bug] || [string equal [element get_property bug $element mode] "[_ acs-kernel.common_display]" } {
element set_value bug $element $bug($element)
}
}
}
# Add empty option to resolution code
if { ![empty_string_p $enabled_action_id] } {
- if { [lsearch [workflow::action::get_element -action_id $action_id -element edit_fields] "resolution"] == -1 } {
+ if { [lsearch [workflow::action::get_element -action_id $action_id -element edit_fields] "[_ bug-tracker.resolution]"] == -1 } {
element set_properties bug resolution -options [concat {{{} {}}} [element get_property bug resolution options]]
}
} else {
@@ -357,10 +359,11 @@
# TODO: Make real
set filtered_p 1
if { $filtered_p } {
+ set bug_name [bug_tracker::conn bug]
set context [list \
[list \
[export_vars -base . [bug_tracker::get_export_variables]] \
- "Filtered [bug_tracker::conn bug] list"] \
+ "[_ bug-tracker.Filtered]"] \
[ad_quotehtml $page_title]]
} else {
set context [list [ad_quotehtml $page_title]]
@@ -419,31 +422,33 @@
if { $filter_bug_index != -1 } {
+ set next_bug_num [expr $filter_bug_index+1]
+ set all_bugs [llength $filter_bug_numbers]
multirow append navlinks \
$first_url \
"/resources/acs-subsite/stock_first-16.png" \
- "First"
+ "[_ acs-kernel.common_First]"
multirow append navlinks \
$prev_url \
"/resources/acs-subsite/stock_left-16.png" \
- "Previous"
+ "[_ acs-kernel.common_Previous]"
multirow append navlinks \
{} \
{} \
{} \
- "[expr $filter_bug_index+1] of [llength $filter_bug_numbers]"
+ "[_ bug-tracker.No_of_All]"
multirow append navlinks \
$next_url \
"/resources/acs-subsite/stock_right-16.png" \
- "Next"
+ "[_ acs-kernel.common_Next]"
multirow append navlinks \
$last_url \
"/resources/acs-subsite/stock_last-16.png" \
- Last
+ "[_ acs-kernel.common_Last]"
}
}
}