Index: openacs-4/packages/dotlrn-homework/www/file-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/file-add.tcl,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/packages/dotlrn-homework/www/file-add.tcl 30 Oct 2003 12:21:44 -0000 1.2 +++ openacs-4/packages/dotlrn-homework/www/file-add.tcl 26 Nov 2003 11:34:09 -0000 1.2.2.1 @@ -28,10 +28,10 @@ if { $homework_file_id == 0 } { set page_title "[_ dotlrn-homework.lt_submit_new_file]" - set context_bar {"[_ dotlrn-homework.lt_upload_new_as]"} + set context_bar [list [_ dotlrn-homework.lt_upload_new_as]] } else { set page_title "[_ dotlrn-homework.lt_submit_comm]" - set context_bar {"[_ dotlrn-homework.lt_upload_comm]"} + set context_bar [list "[_ dotlrn-homework.lt_upload_comm]"] } ad_form -name homework_form -html { enctype multipart/form-data } -export { return_url folder_id homework_file_id } -form { Index: openacs-4/packages/dotlrn-homework/www/file-copy.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/file-copy.tcl,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/packages/dotlrn-homework/www/file-copy.tcl 30 Oct 2003 12:21:44 -0000 1.2 +++ openacs-4/packages/dotlrn-homework/www/file-copy.tcl 26 Nov 2003 11:34:09 -0000 1.2.2.1 @@ -26,6 +26,6 @@ set file_name [dotlrn_homework::decode_name [db_string file_name {}]] -set context_bar {"[_ dotlrn-homework.Copy]"} +set context_bar [list [_ dotlrn-homework.Copy]] ad_return_template Index: openacs-4/packages/dotlrn-homework/www/file-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/file-delete.tcl,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/packages/dotlrn-homework/www/file-delete.tcl 30 Oct 2003 12:21:44 -0000 1.2 +++ openacs-4/packages/dotlrn-homework/www/file-delete.tcl 26 Nov 2003 11:34:09 -0000 1.2.2.1 @@ -68,7 +68,7 @@ set title [dotlrn_homework::decode_name $title] - set context_bar {"[_ dotlrn-homework.Delete]"} + set context_bar [list [_ dotlrn-homework.Delete]] ad_return_template } Index: openacs-4/packages/dotlrn-homework/www/file.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/file.tcl,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/packages/dotlrn-homework/www/file.tcl 30 Oct 2003 12:21:44 -0000 1.2 +++ openacs-4/packages/dotlrn-homework/www/file.tcl 26 Nov 2003 11:34:09 -0000 1.2.2.1 @@ -40,7 +40,7 @@ #set templating datasources set user_id [ad_conn user_id] -set context_bar {"[_ dotlrn-homework.lt_one_assignment]"} +set context_bar [list [_ dotlrn-homework.lt_one_assignment]] set return_url "[ad_conn url]?[ad_conn query]" db_1row file_info {} Index: openacs-4/packages/dotlrn-homework/www/folder-contents.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/folder-contents.tcl,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/packages/dotlrn-homework/www/folder-contents.tcl 30 Oct 2003 12:21:44 -0000 1.2 +++ openacs-4/packages/dotlrn-homework/www/folder-contents.tcl 26 Nov 2003 11:34:09 -0000 1.2.2.1 @@ -34,7 +34,7 @@ set list_of_folder_ids [list $folder_id] set package_id [ad_conn package_id] set folder_name [fs_get_folder_name $folder_id] -set context_bar {"[_ dotlrn-homework.lt_one_folder]"} +set context_bar [list [_ dotlrn-homework.lt_one_folder]] set community_id [dotlrn_community::get_community_id] set admin_p [permission::permission_p -object_id $folder_id -privilege "admin"] Index: openacs-4/packages/dotlrn-homework/www/folder-create.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/folder-create.tcl,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/packages/dotlrn-homework/www/folder-create.tcl 30 Oct 2003 12:21:44 -0000 1.2 +++ openacs-4/packages/dotlrn-homework/www/folder-create.tcl 26 Nov 2003 11:34:09 -0000 1.2.2.1 @@ -11,7 +11,7 @@ } -validate { valid_folder -requires {parent_id:integer} { if ![fs_folder_p $parent_id] { - ad_complain "[_ dotlrn-homework.lt_spec_parent]" + ad_complain [_ dotlrn-homework.lt_spec_parent] } } } -properties { @@ -20,8 +20,8 @@ page_title:onevalue } -set context_bar {"[_ dotlrn-homework.lt_create_folder]"} -set page_title "[_ dotlrn-homework.lt_create_subfolder]" +set context_bar [list [_ dotlrn-homework.lt_create_folder]] +set page_title [_ dotlrn-homework.lt_create_subfolder] set user_id [ad_conn user_id] set creation_ip [ad_conn peeraddr] Index: openacs-4/packages/dotlrn-homework/www/folder-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/folder-delete.tcl,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/packages/dotlrn-homework/www/folder-delete.tcl 30 Oct 2003 12:21:44 -0000 1.2 +++ openacs-4/packages/dotlrn-homework/www/folder-delete.tcl 26 Nov 2003 11:34:09 -0000 1.2.2.1 @@ -39,6 +39,6 @@ } else { # they still need to confirm set folder_name [db_string folder_name {}] - set context_bar {"[_ dotlrn-homework.Delete]"} + set context_bar [list [_ dotlrn-homework.Delete]] ad_return_template } Index: openacs-4/packages/dotlrn-homework/www/version-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/version-add.tcl,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/packages/dotlrn-homework/www/version-add.tcl 30 Oct 2003 12:21:44 -0000 1.2 +++ openacs-4/packages/dotlrn-homework/www/version-add.tcl 26 Nov 2003 11:34:09 -0000 1.2.2.1 @@ -25,7 +25,7 @@ ad_require_permission $file_id write set page_title "[_ dotlrn-homework.lt_upload_new_version_of]" -set context_bar {"[_ dotlrn-homework.lt_upload_new_ass_version]"} +set context_bar [list [_ dotlrn-homework.lt_upload_new_ass_version]] ad_form -name homework_form -html { enctype multipart/form-data } -export { return_url name folder_id } -form { file_id:key Index: openacs-4/packages/dotlrn-homework/www/version-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/version-delete.tcl,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/packages/dotlrn-homework/www/version-delete.tcl 30 Oct 2003 12:21:44 -0000 1.2 +++ openacs-4/packages/dotlrn-homework/www/version-delete.tcl 26 Nov 2003 11:34:09 -0000 1.2.2.1 @@ -78,6 +78,6 @@ set title [dotlrn_homework::decode_name $title] - set context_bar {"[_ dotlrn-homework.lt_delete_version]"} + set context_bar [list [_ dotlrn-homework.lt_delete_version]] ad_return_template }