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

[albertel]

albertel		Sat Nov 13 16:06:27 2004 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - tighten up the look in CSTR
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.230 loncom/interface/loncommon.pm:1.231
--- loncom/interface/loncommon.pm:1.230	Fri Nov 12 18:29:56 2004
+++ loncom/interface/loncommon.pm	Sat Nov 13 16:06:27 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.230 2004/11/12 23:29:56 raeburn Exp $
+# $Id: loncommon.pm,v 1.231 2004/11/13 21:06:27 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2560,7 +2560,7 @@
     if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }
 # construct main body tag
     my $bodytag = <<END;
-<style>
+<style type="text/css">
 h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif }
 a:focus { color: red; background: yellow } 
 </style>
@@ -2581,7 +2581,6 @@
 # No Remote
 	my $roleinfo=(<<ENDROLE);
 <td bgcolor="$tabbg" align="right">
-<p>
 <font size="2" face="Arial, Helvetica, sans-serif">
     $ENV{'environment.firstname'}
     $ENV{'environment.middlename'}
@@ -2592,7 +2591,6 @@
 <font size="2" face="Arial, Helvetica, sans-serif">$role</font>&nbsp;
 <br />
 <font size="2" face="Arial, Helvetica, sans-serif">$realm</font>&nbsp;
-</p>
 </td>
 ENDROLE
         my $titleinfo = '<font face="Arial, Helvetica, sans-serif" size="+3" color="'.
@@ -2607,7 +2605,7 @@
 	    $formaction=~s/\/+/\//g;
 	    $titleinfo = '<form name="dirs" method="post" action="'.$formaction
 		.'" target="_top">'
-		.&Apache::lonhtmlcommon::crumbs($uname.'/'.$thisdisfn,'_top','/priv','','-1')
+		.&Apache::lonhtmlcommon::crumbs($uname.'/'.$thisdisfn,'_top','/priv','',-1,1)."<br />"
 		.&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()')
 		.'</form>'
 		.&Apache::lonmenu::constspaceform();