Index: openacs-4/packages/dotlrn-catalog/www/dt-admin/revision-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/www/dt-admin/revision-list.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-catalog/www/dt-admin/revision-list.tcl	22 Feb 2005 14:54:40 -0000	1.2
+++ openacs-4/packages/dotlrn-catalog/www/dt-admin/revision-list.tcl	3 Mar 2005 22:32:16 -0000	1.3
@@ -35,4 +35,8 @@
     set asm_name [db_string get_asm_name { } -default "[_ dotlrn-catalog.not_associated]"]
     set rel [dotlrn_catalog::has_relation -course_id $course_id]
 }
+db_multirow -extend { asm_name rel } live_course get_live_course { } {
+    set asm_name [db_string get_asm_name { } -default "[_ dotlrn-catalog.not_associated]"]
+    set rel [dotlrn_catalog::has_relation -course_id $course_id]
+}