--- loncom/interface/loncommon.pm	2008/12/02 09:41:07	1.700
+++ loncom/interface/loncommon.pm	2008/12/11 14:52:34	1.714
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.700 2008/12/02 09:41:07 ehlerst Exp $
+# $Id: loncommon.pm,v 1.714 2008/12/11 14:52:34 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -271,7 +271,7 @@ BEGIN {
         }
     }
     &Apache::lonnet::logthis(
-              "<font color=yellow>INFO: Read file types</font>");
+             "<span style='color:yellow;'>INFO: Read file types</span>");
     $readit=1;
     }  # end of unless($readit) 
     
@@ -926,7 +926,7 @@ sub help_open_topic {
     if ($text ne "") {
 	$template .= 
             "<table bgcolor='#3333AA' cellspacing='1' cellpadding='1' border='0'><tr>".
-            "<td bgcolor='#5555FF'><span class=\"LC_nobreak\"><a target=\"_top\" href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>";
+            "<td bgcolor='#5555FF'><a target=\"_top\" href=\"$link\"><span style=\"color:#FFFFFF;font-size:10pt;\">$text</span></a>";
     }
 
     # Add the graphic
@@ -935,7 +935,7 @@ sub help_open_topic {
     $template .= <<"ENDTEMPLATE";
  <a target="_top" href="$link" title="$title"><img src="$helpicon" border="0" alt="(Help: $topic)" /></a>
 ENDTEMPLATE
-    if ($text ne '') { $template.='</span></td></tr></table>' };
+    if ($text ne '') { $template.='</td></tr></table>' };
     return $template;
 
 }
@@ -1128,7 +1128,7 @@ sub help_open_bug {
     {
 	$template .= 
   "<table bgcolor='#AA3333' cellspacing='1' cellpadding='1' border='0'><tr>".
-  "<td bgcolor='#FF5555'><a target=\"_top\" href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>";
+  "<td bgcolor='#FF5555'><a target=\"_top\" href=\"$link\"><span style=\"color:#FFFFFF;font-size:10pt;\">$text</span></a>";
     }
 
     # Add the graphic
@@ -1173,7 +1173,7 @@ sub help_open_faq {
     {
 	$template .= 
   "<table bgcolor='#337733' cellspacing='1' cellpadding='1' border='0'><tr>".
-  "<td bgcolor='#448844'><a target=\"_top\" href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>";
+  "<td bgcolor='#448844'><a target=\"_top\" href=\"$link\"><span style=\"color:#FFFFFF; font-size:10pt;\">$text</span></a>";
     }
 
     # Add the graphic
@@ -1686,17 +1686,17 @@ sub select_form {
 sub display_filter {
     if (!$env{'form.show'}) { $env{'form.show'}=10; }
     if (!$env{'form.displayfilter'}) { $env{'form.displayfilter'}='currentfolder'; }
-    return '<nobr><label>'.&mt('Records [_1]',
+    return '<span class="LC_nobreak"><label>'.&mt('Records [_1]',
 			       &Apache::lonmeta::selectbox('show',$env{'form.show'},undef,
 							   (&mt('all'),10,20,50,100,1000,10000))).
-	   '</label></nobr> <nobr>'.
+	   '</label></span> <span class="LC_nobreak">'.
            &mt('Filter [_1]',
 	   &select_form($env{'form.displayfilter'},
 			'displayfilter',
 			('currentfolder' => 'Current folder/page',
 			 'containing' => 'Containing phrase',
 			 'none' => 'None'))).
-			 '<input type="text" name="containingphrase" size="30" value="'.&HTML::Entities::encode($env{'form.containingphrase'}).'" /></nobr>';
+			 '<input type="text" name="containingphrase" size="30" value="'.&HTML::Entities::encode($env{'form.containingphrase'}).'" /></span>';
 }
 
 sub gradeleveldescription {
@@ -2768,10 +2768,7 @@ sub aboutmewrapper {
 
 
 sub syllabuswrapper {
-    my ($linktext,$coursedir,$domain,$fontcolor)=@_;
-    if ($fontcolor) { 
-        $linktext='<font color="'.$fontcolor.'">'.$linktext.'</font>'; 
-    }
+    my ($linktext,$coursedir,$domain)=@_;
     return qq{<a href="/public/$domain/$coursedir/syllabus">$linktext</a>};
 }
 
@@ -4220,7 +4217,7 @@ ENDROLE
 		.'<b>'.&mt('Construction Space').'</b>:&nbsp;'
 		.'<form name="dirs" method="post" action="'.$formaction
 		.'" target="_top"><tt><b>'
-		.&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv','','+1',1)."<font size=\"+1\">$lastitem</font></b></tt><br />"
+		.&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv','','+1',1)."<span class=\"LC_fontsize_big\">$lastitem</span></b></tt><br />"
 		.&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()')
 		.'</form>'
 		.&Apache::lonmenu::constspaceform();
@@ -4394,6 +4391,10 @@ sub standard_css {
     my $vlink  = &designparm($function.'.vlink', $domain);
     my $link   = &designparm($function.'.link',  $domain);
 
+    my $loginbg = &designparm('login.sidebg',$domain);
+    my $bgcol = &designparm('login.bgcol',$domain);
+    my $textcol = &designparm('login.textcol',$domain);
+
     my $sans                 = 'Verdana,Arial,Helvetica,sans-serif';
     my $mono                 = 'monospace';
     my $data_table_head      = $tabbg;
@@ -4411,7 +4412,7 @@ sub standard_css {
     my $mail_other_hover     = '#669999';
     my $table_header         = '#DDDDDD';
     my $feedback_link_bg     = '#BBBBBB';
-    my $lg_border_color	     = '#D5FF6F';
+    my $lg_border_color	     = '#C8C8C8';
 
     my $border = ($env{'browser.type'} eq 'explorer' ||
 		  $env{'browser.type'} eq 'safari'     ) ? '0px 2px 0px 2px'
@@ -4422,9 +4423,10 @@ sub standard_css {
 body{
      font-family: $sans;
      line-height:130%;
-     font-size:0.8em;
+     font-size:0.83em;
      color:$font;
   }
+a:link, a:visited { font-size:100%; }
 
 a:focus { color: red; background: yellow } 
 table.thinborder,
@@ -4442,6 +4444,11 @@ table.thinborder tr td {
 
 form, .inline { display: inline; }
 .center { text-align: center; }
+.left { text-align:left; }
+.right {text-align:right;}
+.middle {vertical-align:middle;}
+.top {vertical-align:top;}
+.bottom {vertical-align:bottom;}
 .LC_filename {font-family: $mono; white-space:pre;}
 .LC_error {
   color: red;
@@ -4503,7 +4510,6 @@ table#LC_title_bar.LC_with_remote {
   border-collapse: collapse;
   padding: 0px;
 }
-
 table.LC_docs_path {
   width: 100%;
   border: 0;
@@ -4538,21 +4544,15 @@ table#LC_title_bar td.LC_title_bar_role_
   padding: 0px;
 }
 
-table#LC_menubuttons_mainmenu {
-  width: 100%;
-  border: 0px;
-  border-spacing: 1px;
-  padding: 0px 1px;
-  margin: 0px;
-  border-collapse: separate;
-}
-table#LC_menubuttons img, table#LC_menubuttons_mainmenu img {
+table#LC_menubuttons img{
   border: 0px;
 }
 table#LC_top_nav td {
   background: $tabbg;
   border: 0px;
   font-size: small;
+  vertical-align:top;
+  padding:2px 5px 2px 5px;
 }
 table#LC_top_nav td a, div#LC_top_nav a {
   color: $font;
@@ -4597,10 +4597,31 @@ table#LC_mainmenu td.LC_mainmenu_column
     vertical-align: top;
 }
 
+.LC_fontsize_small
+{
+ font-size: 70%;
+}
+
+.LC_fontsize_medium
+{
+ font-size: 85%;
+}
+
+.LC_fontsize_large
+{
+ font-size: 120%;
+}
+
+.LC_fontcolor_red
+{
+ color: #FF0000;
+}
+
 .LC_menubuttons_inline_text {
   color: $font;
   font-family: $sans;
   font-size: 90%;
+  padding-left:3px;
 }
 
 .LC_menubuttons_link {
@@ -4616,12 +4637,11 @@ table#LC_mainmenu td.LC_mainmenu_column
 }
 
 td.LC_menubuttons_text {
- 	color: $font;
- 	width: 90%;
-}
-td.LC_menubuttons_img {
+ 	color: $font; 	
 }
 
+
+
 .LC_current_location {
   font-family: $sans;
   background: $tabbg;
@@ -4632,34 +4652,6 @@ td.LC_menubuttons_img {
   font-weight: bold;
 }
 
-.LC_rolesmenu_is {
-  font-family: $sans;
-}
-
-.LC_rolesmenu_selected {
-  font-family: $sans;
-}
-
-.LC_rolesmenu_future {
-  font-family: $sans;
-}
-
-
-.LC_rolesmenu_will {
-  font-family: $sans;
-}
-
-.LC_rolesmenu_will_not {
-  font-family: $sans;
-}
-
-.LC_rolesmenu_expired {
-  font-family: $sans;
-}
-
-.LC_rolesinfo {
-  font-family: $sans;
-}
 
 .LC_dropadd_labeltext {
   font-family: $sans;
@@ -4672,7 +4664,7 @@ td.LC_menubuttons_img {
 }
 
 .LC_roleslog_note {
-  font-size: smaller;
+  font-size: small;
 }
 
 table.LC_aboutme_port {
@@ -4705,16 +4697,24 @@ table.LC_data_table tr th, table.LC_cale
 table.LC_prior_tries tr th {
   font-weight: bold;
   background-color: $data_table_head;
-  font-size: smaller;
+  font-size:90%;
+}
+table.LC_data_table tr.LC_info_row > td {
+  background-color: #CCC;
+  font-weight: bold;
+  text-align: left;
 }
 table.LC_data_table tr.LC_odd_row > td, 
+table.LC_pick_box tr > td.LC_odd_row,
 table.LC_aboutme_port tr td {
   background-color: $data_table_light;
   padding: 2px;
 }
 table.LC_data_table tr.LC_even_row > td,
+table.LC_pick_box tr > td.LC_even_row,
 table.LC_aboutme_port tr.LC_even_row td {
   background-color: $data_table_dark;
+  padding: 2px;
 }
 table.LC_data_table tr.LC_data_table_highlight td {
   background-color: $data_table_darker;
@@ -4737,7 +4737,7 @@ table.LC_nested tr.LC_empty_row td {
 table.LC_nested_outer tr th {
   font-weight: bold;
   background-color: $data_table_head;
-  font-size: smaller;
+  font-size: small;
   border-bottom: 1px solid #000000;
 }
 table.LC_nested_outer tr td.LC_subheader {
@@ -4776,7 +4776,7 @@ table.LC_createuser {
 }
 
 table.LC_createuser tr.LC_section_row td {
-  font-size: smaller;
+  font-size: small;
 }
 
 table.LC_createuser tr.LC_info_row td  {
@@ -4832,24 +4832,6 @@ table.LC_mail_list tr.LC_mail_even {
 table.LC_mail_list tr.LC_mail_odd {
 }
 
-table#LC_cstr_controls {
-  width: 100%;
-  border-collapse: collapse;
-}
-table#LC_cstr_controls tr td {
-  border: 4px solid $pgbg;
-  padding: 4px;
-  text-align: center;
-  background: $tabbg;
-}
-table#LC_cstr_controls tr th {
-  border: 4px solid $pgbg;
-  background: $table_header;
-  text-align: center;
-  font-family: $sans;
-  font-size: smaller;
-}
-
 table.LC_data_table tr > td.LC_browser_file,
 table.LC_data_table tr > td.LC_browser_file_published {
   background: #CCFF88;
@@ -4869,8 +4851,27 @@ table.LC_data_table tr.LC_browser_folder
   background: #CCCCFF;
 }
 
+table.LC_data_table tr > td.LC_roles_is {
+/*  background: #77FF77; */
+}
+table.LC_data_table tr > td.LC_roles_future {
+  background: #FFFF77;
+}
+table.LC_data_table tr > td.LC_roles_will {
+  background: #FFAA77;
+}
+table.LC_data_table tr > td.LC_roles_expired {
+  background: #FF7777;
+}
+table.LC_data_table tr > td.LC_roles_will_not {
+  background: #AAFF77;
+}
+table.LC_data_table tr > td.LC_roles_selected {
+  background: #11CC55;
+}
+
 span.LC_current_location {
-  font-size: x-large;
+  font-size:larger;
   background: $pgbg;
 }
 
@@ -5314,23 +5315,6 @@ div.LC_clear_float_footer {
 }
 
 
-div.LC_grade_select_mode {
-  font-family: $sans;
-}
-div.LC_grade_select_mode div div {
-  margin: 5px;
-}
-div.LC_grade_select_mode_selector {
-  margin: 5px;
-  float: left;
-}
-div.LC_grade_select_mode_selector_header {
-  font: bold medium $sans;
-}
-div.LC_grade_select_mode_type {
-  clear: left;
-}
-
 div.LC_grade_show_user {
   margin-top: 20px;
   border: 1px solid black;
@@ -5338,7 +5322,8 @@ div.LC_grade_show_user {
 div.LC_grade_user_name {
   background: #DDDDEE;
   border-bottom: 1px solid black;
-  font: bold large $sans;
+  font-weight: bold;
+  font-size: large;
 }
 div.LC_grade_show_user_odd_row div.LC_grade_user_name {
   background: #DDEEDD;
@@ -5357,7 +5342,8 @@ div.LC_grade_show_problem_header,
 div.LC_grade_submissions_header,
 div.LC_grade_message_center_header,
 div.LC_grade_assign_header {
-  font: bold large $sans;
+  font-weight: bold;
+  font-size: large;
 }
 div.LC_grade_show_problem_problem,
 div.LC_grade_submissions_body,
@@ -5368,7 +5354,8 @@ div.LC_grade_assign_body {
   background: #FFFFFF;
 }
 span.LC_grade_check_note {
-  font: normal medium $sans;
+  font-weight: normal;
+  font-size: medium;
   display: inline;
   position: absolute;
   right: 1em;
@@ -5383,7 +5370,8 @@ table.LC_scantron_action tr th {
 }
 .LC_edit_problem_header, 
 div.LC_edit_problem_footer {
-  font: normal medium $sans;
+  font-weight: normal;
+  font-size:  medium;
   margin: 2px;
 }
 div.LC_edit_problem_header,
@@ -5400,12 +5388,14 @@ div.LC_edit_problem_header_edit_row {
   margin-bottom: 5px;
 }
 div.LC_edit_problem_header_title {
-  font: larger bold $sans;
+  font-weight: bold;
+  font-size: larger;
   background: $tabbg;
   padding: 3px;
 }
 table.LC_edit_problem_header_title {
-  font: larger bold $sans;
+  font-size: larger;
+  font-weight:  bold;
   width: 100%;
   border-color: $pgbg;
   border-style: solid;
@@ -5453,10 +5443,7 @@ table#LC_mainmenu td.LC_mainmenu_col_fie
   font-size: small;
   font-weight: bold;
 }
-fieldset#LC_mainmenu_fieldset {
-  margin:0px 10px 10px 0px;
 
-}
 /* ---- Remove when done ----
 # The following styles is part of the redesign of LON-CAPA and are
 # subject to change during this project.
@@ -5474,7 +5461,7 @@ ul#TabMainMenuContent a:hover,
 }
 
 h1 { 
-	padding:5px 10px 5px 20px;
+	padding:5px 10px 5px 0px;
 	line-height:130%;
 }
 
@@ -5486,14 +5473,8 @@ line-height:130%;
 .hcell{
         padding:3px 15px 3px 15px;
         margin:0px;
-	background: $tabbg;
-        border-bottom:solid 1px #000000;       
-}
-.right {
-	text-align: right;
-}
-.left {
-	text-align: left;
+	background-color:$tabbg;
+	border-bottom:solid 1px $lg_border_color;       
 }
 .noBorder {
         border:0px;
@@ -5611,11 +5592,9 @@ ol#PathBreadcrumbs li a{
 
 .ContentBoxSpecial
 {
-	border: solid 1px #000000;
-	width: 90%;
+	border: solid 1px $lg_border_color;
 }
 .ContentBox {
-	width: 50%;
 	padding:10px;
 }
 .PopUp
@@ -5664,7 +5643,6 @@ dl.ListStyleClean dd {
 	margin: 0px;
 	padding: 5px 5px 5px 10px;
 	clear: both;
-	/*display:block;*/
 }
 
 .ListStyleClean li,
@@ -5730,11 +5708,19 @@ div.columnSection > .ContentBoxSpecial
 
 .LC_loginpage_loginContainer {
 	float:left;
-	width:60%;
+	width: 182px;
+	border:1px solid #CCCCCC;
+	background-color:$loginbg;
 }
 
+.LC_loginpage_loginContainer h1{
+	margin-top:0;
+	display:block;
+	background:$bgcol;
+	color:$textcol;
+	padding-left:5px;
+}
 .LC_loginpage_loginInfo {
-	margin-top:20px;
 	margin-left:20px;
 	float:left;
 	width:30%;
@@ -5742,6 +5728,13 @@ div.columnSection > .ContentBoxSpecial
 	padding:10px;
 }
 
+.LC_loginpage_loginDomain {
+	margin-right:20px;
+	width:20%;
+	float:left;
+	padding:10px;
+}
+
 .LC_loginpage_space {
 	clear:both;
 	margin-bottom:20px;
@@ -5761,7 +5754,6 @@ div.columnSection > .ContentBoxSpecial
 }
 
 
-
 END
 }
 
@@ -6025,11 +6017,21 @@ sub start_page {
     }
 
     if ($args->{'js_ready'}) {
-	$result = &js_ready($result);
+		$result = &js_ready($result);
     }
     if ($args->{'html_encode'}) {
-	$result = &html_encode($result);
+		$result = &html_encode($result);
     }
+
+	if (exists $args->{'bread_crumbs'}) {
+		&Apache::lonhtmlcommon::clear_breadcrumbs();
+		my $temp = $args->{'bread_crumbs'};
+		foreach my $crumb (@$temp){
+			&Apache::lonhtmlcommon::add_breadcrumb($crumb);
+		}
+		$result .= &Apache::lonhtmlcommon::breadcrumbs();
+    }
+
     return $result;
 }
 
@@ -6176,7 +6178,7 @@ sub simple_error_page {
     }
 
     sub start_data_table_empty_row {
-	$row_count[0]++;
+#	$row_count[0]++;
 	return  '<tr class="LC_empty_row" >'."\n";;
     }
 
@@ -6792,19 +6794,35 @@ sub default_quota {
         if ($inststatus ne '') {
             my @statuses = split(/:/,$inststatus);
             foreach my $item (@statuses) {
-                if ($quotahash{'quotas'}{$item} ne '') {
-                    if ($defquota eq '') {
-                        $defquota = $quotahash{'quotas'}{$item};
-                        $settingstatus = $item;
-                    } elsif ($quotahash{'quotas'}{$item} > $defquota) {
-                        $defquota = $quotahash{'quotas'}{$item};
-                        $settingstatus = $item;
+                if (ref($quotahash{'quotas'}{'defaultquota'}) eq 'HASH') {
+                    if ($quotahash{'quotas'}{'defaultquota'}{$item} ne '') {
+                        if ($defquota eq '') {
+                            $defquota = $quotahash{'quotas'}{'defaultquota'}{$item};
+                            $settingstatus = $item;
+                        } elsif ($quotahash{'quotas'}{'defaultquota'}{$item} > $defquota) {
+                            $defquota = $quotahash{'quotas'}{'defaultquota'}{$item};
+                            $settingstatus = $item;
+                        }
+                    }
+                } else {
+                    if ($quotahash{'quotas'}{$item} ne '') {
+                        if ($defquota eq '') {
+                            $defquota = $quotahash{'quotas'}{$item};
+                            $settingstatus = $item;
+                        } elsif ($quotahash{'quotas'}{$item} > $defquota) {
+                            $defquota = $quotahash{'quotas'}{$item};
+                            $settingstatus = $item;
+                        }
                     }
                 }
             }
         }
         if ($defquota eq '') {
-            $defquota = $quotahash{'quotas'}{'default'};
+            if (ref($quotahash{'quotas'}{'defaultquota'}) eq 'HASH') {
+                $defquota = $quotahash{'quotas'}{'defaultquota'}{'default'};
+            } else {
+                $defquota = $quotahash{'quotas'}{'default'};
+            }
             $settingstatus = 'default';
         }
     } else {
@@ -7600,9 +7618,9 @@ sub upload_embedded {
                                    '&nbsp;<a href="'.$url.'">'.
                                    $orig_uploaded_filename.'</a><br />';
                     } else {
-                        $output .= '<font size="+2">'.
+                        $output .= '<span class=\"LC_fontsize_large\">'.
                                    &mt('View embedded file: [_1]','<a href="'.$url.'">'.
-                                   $orig_uploaded_filename.'</a>').'</font><br />';
+                                   $orig_uploaded_filename.'</a>').'</span><br />';
                     }
                 }
                 close($fh);
@@ -7949,7 +7967,7 @@ sub csv_print_select_table {
               &end_data_table_header_row()."\n");
     foreach my $array_ref (@$d) {
 	my ($value,$display,$defaultcol)=@{ $array_ref };
-	$r->print(&start_data_table_row().'<td>'.$display.'</td>');
+	$r->print(&start_data_table_row().'<tr><td>'.$display.'</td>');
 
 	$r->print('<td><select name=f'.$i.
 		  ' onchange="javascript:flip(this.form,'.$i.');">');
@@ -9755,8 +9773,8 @@ sub init_user_environment {
 	    }
 	    untie(%disk_env);
 	} else {
-	    &Apache::lonnet::logthis("<font color=\"blue\">WARNING: ".
-			   'Could not create environment storage in lonauth: '.$!.'</font>');
+	    &Apache::lonnet::logthis("<span style=\"color:blue;\">WARNING: ".
+			   'Could not create environment storage in lonauth: '.$!.'</span>');
 	    return 'error: '.$!;
 	}
     }