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.3 --- 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 20 Apr 2004 21:13:31 -0000 1.3 @@ -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]