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

Thu, 20 Apr 2006 02:01:33 -0000

albertel		Wed Apr 19 22:01:33 2006 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - move the css info to it's own sub and have included in the valid location
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.342 loncom/interface/loncommon.pm:1.343

--- loncom/interface/loncommon.pm:1.342	Tue Apr 18 18:35:41 2006
+++ loncom/interface/loncommon.pm	Wed Apr 19 22:01:30 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.342 2006/04/18 22:35:41 albertel Exp $
+# $Id: loncommon.pm,v 1.343 2006/04/20 02:01:30 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2807,15 +2807,6 @@
 
 # construct main body tag
     my $bodytag = <<END;
-<style type="text/css">
-h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif }
-a:focus { color: red; background: yellow } 
-table.thinborder { border-collapse: collapse; }
-table.thinborder tr th, table.thinborder tr td { border-style: solid; border-width: 1px}
-form, .inline { display: inline; }
-.center { text-align: center; }
-.filename {font-family: monospace;}
-</style>
 <body $extra_body_attr>
 END
 
@@ -3049,6 +3040,20 @@
     return $endbodytag;
 }
 
+sub standard_css {
+    return <<END;
+<style type="text/css">
+h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif }
+a:focus { color: red; background: yellow } 
+table.thinborder { border-collapse: collapse; }
+table.thinborder tr th, table.thinborder tr td { border-style: solid; border-width: 1px}
+form, .inline { display: inline; }
+.center { text-align: center; }
+.filename {font-family: monospace;}
+</style>
+END
+}
+
 =pod
 
 =over 4
@@ -3076,6 +3081,7 @@
     
     my $result =
 	'<head>'.
+	&standard_css().
 	&font_settings().
 	&Apache::lonhtmlcommon::htmlareaheaders();
 



