Index: openacs-4/packages/lorsm/www/shared/course-info.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/shared/Attic/course-info.tcl,v diff -u -r1.4.4.2 -r1.4.4.3 --- openacs-4/packages/lorsm/www/shared/course-info.tcl 21 Dec 2006 08:24:12 -0000 1.4.4.2 +++ openacs-4/packages/lorsm/www/shared/course-info.tcl 27 Dec 2006 11:06:02 -0000 1.4.4.3 @@ -90,23 +90,25 @@ set total_items [db_string items_count {select count(*) from ims_cp_items where org_id=:org_id} -default 0] + set indent_list [lorsm::get_items_indent -org_id $org_id] + template::util::list_of_lists_to_array $indent_list indent_array append orgs_list "$org_title$hasmetadata" set indent [expr $indent +1] - set missing_text "Nothing here" + set missing_text "[_ lorsm.Nothing_here]" set return_url [export_vars -base [ns_conn url] man_id] set table_extra_html { width="100%" } set track_id 0 - set table_extra_vars {return_url fs_local_package_id track_id} + set table_extra_vars {return_url fs_local_package_id track_id indent_array} set table_def { { title "\#lorsm.Item_Name\#" "no_sort" " [set indent \"\" - for { set i 0 } { $i < [expr $indent -1]} { incr i } { + for { set i 0 } { $i < [expr $indent_array($item_id)-1]} { incr i } { append indent \"      \" } - if {![empty_string_p $identifierref]} {set href \"$item_title\"} else {set href $item_title}]" } + if {![empty_string_p $identifierref]} {set href \"$indent$item_title\"} else {set href [concat $indent$item_title]}]" } { metadata "\#lorsm.Metadata_1\#" "no_sort" "[if {$hasmetadata == \"f\"} {set hasmetadata \"No\"} else {set hasmetadata \"Metadata\"}]" } { type "\#lorsm.Type\#" "no_sort" "$type" } }