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 | " }
}