Index: openacs-4/www/default-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/default-master.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/www/default-master.tcl	17 May 2003 12:51:57 -0000	1.9
+++ openacs-4/www/default-master.tcl	3 Jun 2003 11:29:35 -0000	1.10
@@ -71,4 +71,10 @@
 }
 
 
+# Curriculum bar
 
+if { [llength [namespace eval :: info procs curriculum::get_bar]] == 1 } {
+    set curriculum_bar_p 1
+} else {
+    set curriculum_bar_p 0
+}