Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v diff -u -r1.84 -r1.85 --- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl 29 Jul 2007 21:33:25 -0000 1.84 +++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl 3 Aug 2007 07:39:30 -0000 1.85 @@ -481,11 +481,6 @@ and i.item_id = n.item_id \ and o.object_id = $revision_id" } else { -my log "select [join $atts ,], i.parent_id \ - from [my set table_name]i n, cr_items i, acs_objects o \ - where i.item_id = $item_id \ - and n.[my id_column] = coalesce(i.live_revision, i.latest_revision) \ - and o.object_id = i.item_id" $object db_1row [my qn fetch_from_view_item_id] "\ select [join $atts ,], i.parent_id \ from [my set table_name]i n, cr_items i, acs_objects o \ Index: openacs-4/packages/xotcl-core/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/index.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/xotcl-core/www/index.tcl 9 Mar 2007 11:02:56 -0000 1.5 +++ openacs-4/packages/xotcl-core/www/index.tcl 3 Aug 2007 07:39:30 -0000 1.6 @@ -43,10 +43,14 @@ } } -proc info_classes {cl key} { +proc info_classes {cl key {dosort 0}} { upvar all_classes all_classes set infos "" - foreach s [$cl info $key] { + set classes [$cl info $key] + if {$dosort} { + set classes [lsort $classes] + } + foreach s $classes { append infos [local_link $s] ", " } set infos [string trimright $infos ", "] @@ -64,9 +68,10 @@ append output "
  • [::xotcl::api object_link {} $cl]