[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" />
+ <span>'.$title.'</span>
+</div>
+';
+}
+
+##############################################
+##############################################
# echo_form_input
#