Index: openacs-4/packages/dotlrn-syllabus/tcl/syllabus-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/tcl/syllabus-portlet-procs.tcl,v diff -u -r1.13 -r1.13.4.1 --- openacs-4/packages/dotlrn-syllabus/tcl/syllabus-portlet-procs.tcl 8 Aug 2006 21:26:39 -0000 1.13 +++ openacs-4/packages/dotlrn-syllabus/tcl/syllabus-portlet-procs.tcl 30 Apr 2008 18:08:18 -0000 1.13.4.1 @@ -127,13 +127,15 @@ -user_id [dotlrn::get_users_rel_segment_id] ] + set pretty_name "#dotlrn-syllabus.pretty_name#" + # this should move to fs:: foreach row $rows { - if {[string equal -nocase [ns_set get $row title] [_ dotlrn-syllabus.pretty_name]] || ([string equal -nocase [ns_set get $row name] [_ dotlrn-syllabus.pretty_name]] && [string equal -nocase [ns_set get $row type] "url"])} { + if {[string equal -nocase [ns_set get $row title] $pretty_name] || ([string equal -nocase [ns_set get $row name] $pretty_name] && [string equal -nocase [ns_set get $row type] "url"])} { lappend out_list [ns_set get $row object_id] lappend out_list [ns_set get $row type] lappend out_list [ns_set get $row live_revision] - lappend out_list [ns_set get $row file_upload_name] + lappend out_list [ns_set get $row file_upload_name] } } Index: openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet.tcl,v diff -u -r1.4.14.1 -r1.4.14.2 --- openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet.tcl 29 Mar 2008 19:57:40 -0000 1.4.14.1 +++ openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet.tcl 30 Apr 2008 18:08:18 -0000 1.4.14.2 @@ -35,7 +35,8 @@ set type [lindex $syllabus_info_list 2] set community_id [dotlrn_community::get_community_id] -set title [_ dotlrn-syllabus.pretty_name] +set title "#dotlrn-syllabus.pretty_name#" + set upload_url [export_vars -base "file-storage/file-add" {{folder_id $public_folder_id} {lock_title_p 1} {title $title}}] set link_to_url [export_vars -base "file-storage/simple-add" {{folder_id $public_folder_id} {lock_title_p 1} {title $title}}] # DRB: community_id will be blank if we're called by the portal package portal preview