[LON-CAPA-cvs] cvs: loncom /interface lonhtmlcommon.pm

raeburn lon-capa-cvs-allow@mail.lon-capa.org
Sun, 24 Aug 2008 12:56:30 -0000


raeburn		Sun Aug 24 08:56:30 2008 EDT

  Modified files:              
    /loncom/interface	lonhtmlcommon.pm 
  Log:
  - topic_bar() moved from loncoursegroups.pm.
  
  
Index: loncom/interface/lonhtmlcommon.pm
diff -u loncom/interface/lonhtmlcommon.pm:1.178 loncom/interface/lonhtmlcommon.pm:1.179
--- loncom/interface/lonhtmlcommon.pm:1.178	Thu Aug 21 06:48:37 2008
+++ loncom/interface/lonhtmlcommon.pm	Sun Aug 24 08:56:28 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.178 2008/08/21 10:48:37 bisitz Exp $
+# $Id: lonhtmlcommon.pm,v 1.179 2008/08/24 12:56:28 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1727,6 +1727,25 @@
 
 ##############################################
 ##############################################
+
+# topic_bar
+#
+# Generates a div containing a numbered (static image) followed by a title
+# with a background color defined in the corresponding CSS: LC_topic_bar
+#
+sub topic_bar {
+    my ($imgnum,$title) = @_;
+    return '
+<div class="LC_topic_bar">
+    <img alt="'.&mt('Step [_1]',$imgnum).
+              '"src="/res/adm/pages/bl_step'.$imgnum.'.gif" />&nbsp;
+    <span>'.$title.'</span>
+</div>
+';
+}
+
+##############################################
+##############################################
                                                                              
 # echo_form_input
 #