--- loncom/interface/lonparmset.pm	2006/06/23 03:14:00	1.314
+++ loncom/interface/lonparmset.pm	2006/07/14 18:49:06	1.323
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.314 2006/06/23 03:14:00 albertel Exp $
+# $Id: lonparmset.pm,v 1.323 2006/07/14 18:49:06 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -508,21 +508,26 @@ sub storeparm_by_symb_inner {
 
 Format a value for output.
 
-Inputs:  $value, $type
+Inputs:  $value, $type, $editable
 
 Returns: $value, formatted for output.  If $type indicates it is a date,
 localtime($value) is returned.
+$editable will return an icon to click on
 
 =cut
 
 ##################################################
 ##################################################
 sub valout {
-    my ($value,$type)=@_;
+    my ($value,$type,$editable)=@_;
     my $result = '';
     # Values of zero are valid.
     if (! $value && $value ne '0') {
-	$result = '  ';
+	if ($editable) {
+	    $result = '<img src="/adm/lonIcons/clickhere.gif" border="0" />';
+	} else {
+	    $result='&nbsp;';
+	}
     } else {
         if ($type eq 'date_interval') {
             my ($sec,$min,$hour,$mday,$mon,$year)=gmtime($value);
@@ -590,7 +595,7 @@ sub plink {
     return '<table width="100%"><tr valign="top" align="right"><td><a name="'.$marker.'" /></td></tr><tr><td align="center">'.
 	'<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"
 	    .$marker."','".$return."','".$call."','".$hour."','".$min."','".$sec."'".');">'.
-		&valout($value,$type).'</a></td></tr></table>';
+		&valout($value,$type,1).'</a></td></tr></table>';
 }
 
 sub page_js {
@@ -655,7 +660,7 @@ sub startpage {
 				       &page_js(),
 				       {'add_entries' => \%loaditems,});
     my $breadcrumbs = 
-	&Apache::lonhtmlcommon::breadcrumbs('Table Mode Parameter Setting');
+	&Apache::lonhtmlcommon::breadcrumbs('Table Mode Parameter Setting','Table_Mode');
     $r->print(<<ENDHEAD);
 $start_page
 $breadcrumbs
@@ -1057,15 +1062,15 @@ sub parmmenu {
 </script>
 ENDSCRIPT
     $r->print();
-    $r->print("\n<table><tr>");
+    $r->print("\n<table id=\"LC_parm_overview_parm_menu\"><tr>");
     my $cnt=0;
     foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) {
-	$r->print("\n<td><font size='-1'><label><input type='checkbox' name='pscat' ");
+	$r->print("\n<td><label><input type='checkbox' name='pscat' ");
 	$r->print('value="'.$tempkey.'"');
 	if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) {
 	    $r->print(' checked');
 	}
-	$r->print('>'.$$allparms{$tempkey}.'</label></font></td>');
+	$r->print('>'.$$allparms{$tempkey}.'</label></td>');
  	$cnt++;
         if ($cnt==3) {
 	    $r->print("</tr>\n<tr>");
@@ -1073,7 +1078,7 @@ ENDSCRIPT
 	}
     }
     $r->print('
-</tr><tr><td>
+</tr><tr id=\"LC_parm_overview_parm_menu_selectors\"><td>
 <a href="javascript:checkall(true, \'pscat\')">Select&nbsp;All</a><br />
 <a href="javascript:checkstandard()">Select&nbsp;Common&nbsp;Only</a>
 </td><td>
@@ -2078,6 +2083,10 @@ sub crsenv {
             }
         }
     }
+
+    my $start_table     =&Apache::loncommon::start_data_table();
+    my $start_header_row=&Apache::loncommon::start_data_table_header_row();
+    my $end_header_row  =&Apache::loncommon::end_data_table_header_row();
 # ------------------------- Re-init course environment entries for this session
 
     &Apache::lonnet::coursedescription($env{'request.course.id'},
@@ -2183,6 +2192,8 @@ sub crsenv {
                     ' ('.&mt('supported types').': Letter [8 1/2x11 in], Legal [8 1/2x14 in],'. 
                     ' Tabloid [11x17 in], Executive [7 1/2x10 in], A2 [420x594 mm],'. 
                     ' A3 [297x420 mm], A4 [210x297 mm], A5 [148x210 mm], A6 [105x148 mm])',
+	     'print_header_format'
+	         => '<b>Print header format; substitutions:  %n student name %c course id %a assignment',
              'anonymous_quiz'
                  => '<b>'.&mt('Anonymous quiz/exam').'</b><br />'.
                     ' (<tt><b>'.&mt('yes').'</b> '.&mt('to avoid print students names').' </tt>)',
@@ -2223,6 +2234,7 @@ sub crsenv {
                              'problem_stream_switch',
 			     'suppress_tries',
                              'default_paper_size',
+			     'print_header_format',
                              'disable_receipt_display',
                              'spreadsheet_default_classcalc',
                              'spreadsheet_default_studentcalc',
@@ -2243,13 +2255,15 @@ sub crsenv {
                 }
             }
 	}
+	
         foreach my $parameter (@Display_Order) {
             my $description = $descriptions{$parameter};
             # onchange is javascript to automatically check the 'Set' button.
             my $onchange = 'onFocus="javascript:window.document.forms'.
                 "['envform'].elements['".$parameter."_setparmval']".
                 '.checked=true;"';
-            $output .= '<tr><td>'.$description.'</td>';
+            $output .= &Apache::loncommon::start_data_table_row().
+		'<td>'.$description.'</td>';
             if ($parameter =~ /^default_enrollment_(start|end)_date$/) {
                 $output .= '<td>'.
                     &Apache::lonhtmlcommon::date_setter('envform',
@@ -2266,17 +2280,19 @@ sub crsenv {
             $output .= '<td>'.
                 &Apache::lonhtmlcommon::checkbox($parameter.'_setparmval').
                 '</td>';
-            $output .= "</tr>\n";
+            $output .= &Apache::loncommon::end_data_table_row()."\n";
 	}
         my $onchange = 'onFocus="javascript:window.document.forms'.
             '[\'envform\'].elements[\'newp_setparmval\']'.
             '.checked=true;"';
-	$output.='<tr><td><i>'.&mt('Create New Environment Variable').'</i><br />'.
+	$output.=&Apache::loncommon::start_data_table_row().
+	    '<td><i>'.&mt('Create New Environment Variable').'</i><br />'.
 	    '<input type="text" size=40 name="newp_name" '.
                 $onchange.' /></td><td>'.
             '<input type="text" size=40 name="newp_value" '.
                 $onchange.' /></td><td>'.
-	    '<input type="checkbox" name="newp_setparmval" /></td></tr>';
+	    '<input type="checkbox" name="newp_setparmval" /></td>'.
+	    &Apache::loncommon::end_data_table_row()."\n";
     }
     my %lt=&Apache::lonlocal::texthash(
 		    'par'   => 'Parameter',
@@ -2294,20 +2310,22 @@ sub crsenv {
 	'</script>';
     
     my $start_page = 
-	&Apache::loncommon::start_page('Set Course Environment Parameters',
+	&Apache::loncommon::start_page('Set Course Environment',
 				       $browse_js);
     my $end_page = 
 	&Apache::loncommon::end_page();
+    my $end_table=&Apache::loncommon::end_data_table();
     $r->print(<<ENDENV);
 $start_page
 $breadcrumbs
 <form method="post" action="/adm/parmset?action=crsenv" name="envform">
 $setoutput
-<p>
-<table border=2>
-<tr><th>$lt{'par'}</th><th>$lt{'val'}</th><th>$lt{'set'}?</th></tr>
+$start_table
+$start_header_row
+<th>$lt{'par'}</th><th>$lt{'val'}</th><th>$lt{'set'}?</th>
+$end_header_row
 $output
-</table>
+$end_table
 <input type="submit" name="crsenv" value="$lt{'sce'}">
 </form>
 $end_page
@@ -2535,12 +2553,12 @@ sub listdata {
 	    }
 	    $middle=~s/\.+$//;
 	    $middle=~s/^\.+//;
-	    my $realm='<font color="red">'.&mt('All Resources').'</font>';
+	    my $realm='<span class="LC_parm_scope_all">'.&mt('All Resources').'</span>';
 	    if ($middle=~/^(.+)\_\_\_\(all\)$/) {
-		$realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <br /><font color="#aaaaaa" size="-2">('.$1.')</font></font>';
+		$realm='<span class="LC_parm_scope_folder">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <br /><span class="LC_parm_folder">('.$1.')</span></span>';
 	    } elsif ($middle) {
 		my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
-		$realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><font color="#aaaaaa" size="-2">('.$url.' in '.$map.' id: '.$id.')</font></font>';
+		$realm='<span class="LC_parm_scope_resource">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><span class="LC_parm_symb">('.$url.' in '.$map.' id: '.$id.')</span></span>';
 	    }
 	    if ($sortorder eq 'realmstudent') {
 		if ($realm ne $oldrealm) {
@@ -2567,7 +2585,7 @@ sub listdata {
 	    }
 	    if ($part ne $oldpart) {
 		$r->print(&tableend().
-			  "\n<font color='blue'>".&mt('Part').": $part</font>");
+			  "\n<span class=\"LC_parm_part\">".&mt('Part').": $part</span>");
 		$oldpart=$part;
 	    }
 #
@@ -2700,24 +2718,27 @@ ENDOVER
 
 # Menu to select levels, etc
 
-    $r->print('<table border="1"><tr><td>');
+    $r->print('<table id="LC_parm_overview_scope">
+               <tr><td class="LC_parm_overview_level_menu">');
     &levelmenu($r,\%alllevs,$parmlev);
     if ($parmlev ne 'general') {
-	$r->print('<td>');
+	$r->print('<td class="LC_parm_overview_map_menu">');
 	&mapmenu($r,\%allmaps,$pschp,\%maptitles);
 	$r->print('</td>');
     }
     $r->print('</td></tr></table>');
 
-    $r->print('<table border="1"><tr><td>');  
+    $r->print('<table id="LC_parm_overview_controls">
+               <tr><td class="LC_parm_overview_parm_selectors">');  
     &parmmenu($r,\%allparms,\@pscat,\%keyorder);
-    $r->print('</td><td><table border="0" cellspacing="0" cellpadding="0">'.
-              '<tr><td>'.&mt('Parts').'</td><td></td><td>'.&mt('Section(s)').
-              '</td><td></td><td>'.&mt('Group(s)').'</td></tr><tr><td>');
+    $r->print('</td><td class="LC_parm_overview_restrictions">
+                <table class="LC_parm_overview_restrictions">'.
+              '<tr><th>'.&mt('Parts').'</th><th>'.&mt('Section(s)').
+              '</th><th>'.&mt('Group(s)').'</th></tr><tr><td>');
     &partmenu($r,\%allparts,\@psprt);
-    $r->print('</td><td>&nbsp;</td><td>');
+    $r->print('</td><td>');
     &sectionmenu($r,\@selected_sections);
-    $r->print('</td><td>&nbsp;</td><td>');
+    $r->print('</td><td>');
     &groupmenu($r,\@selected_groups);
     $r->print('</td></tr></table>');
     $r->print('</td></tr></table>');
@@ -2987,8 +3008,9 @@ ENDMAINFORMHEAD
     my $vgr  = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});
 
     my @menu =
-        (
-          { text => 'Set Course Environment Parameters',
+        ( { divider=>'Settings for Your Course',
+	  },
+          { text => 'Set Course Environment',
 	    action => 'crsenv',
             permission => $parm_permission,
             },
@@ -3000,17 +3022,17 @@ ENDMAINFORMHEAD
 	    url => '/adm/slotrequest?command=showslots',
 	    permission => $vgr,
             },
-	  { divider => 1,
+          { text => 'Set Parameter Setting Default Actions',
+            action => 'setdefaults',
+            permission => $parm_permission,
+            },          
+	  { divider => 'New and Existing Parameter Settings for Your Resources',
 	    },
           { text => 'Set/Modify Resource Parameters - Helper Mode',
             url => '/adm/helper/parameter.helper',
             permission => $parm_permission,
             },
-          { text => 'Modify Resource Parameters - Overview Mode',
-            action => 'setoverview',
-            permission => $parm_permission,
-            },          
-	  { text => 'Set Resource Parameters - Overview Mode',
+ 	  { text => 'Set/Modify Resource Parameters - Overview Mode',
             action => 'newoverview',
             permission => $parm_permission,
             },
@@ -3019,10 +3041,12 @@ ENDMAINFORMHEAD
             permission => $parm_permission,
             help => 'Cascading_Parameters',
             },
-          { text => 'Set Parameter Setting Default Actions',
-            action => 'setdefaults',
+           { divider => 'Existing Parameter Settings for Your Resources',
+	  },
+	  { text => 'Modify Resource Parameters - Overview Mode',
+            action => 'setoverview',
             permission => $parm_permission,
-            },          
+ 	    },          
 	  { text => 'Parameter Change Log and Course Blog Posting/User Notification',
             action => 'parameterchangelog',
             permission => $parm_permission,
@@ -3031,19 +3055,19 @@ ENDMAINFORMHEAD
     my $menu_html = '';
     foreach my $menu_item (@menu) {
 	if ($menu_item->{'divider'}) {
-	    $menu_html .= '<hr />';
+	    $menu_html .= '<h3>'.&mt($menu_item->{'divider'}).'</h3>';
 	    next;
 	}
         next if (! $menu_item->{'permission'});
         $menu_html.='<p>';
-        $menu_html.='<font size="+1">';
+        $menu_html.='<span class="LC_parm_menu_item">';
         if (exists($menu_item->{'url'})) {
             $menu_html.=qq{<a href="$menu_item->{'url'}">};
         } else {
             $menu_html.=
                 qq{<a href="/adm/parmset?action=$menu_item->{'action'}">};
         }
-        $menu_html.= &mt($menu_item->{'text'}).'</a></font>';
+        $menu_html.= &mt($menu_item->{'text'}).'</a></span>';
         if (exists($menu_item->{'help'})) {
             $menu_html.=
                 &Apache::loncommon::help_open_topic($menu_item->{'help'});
@@ -3232,11 +3256,15 @@ ENDDEFHEAD
     }
 $r->print(&mt('Manual setting rules apply to all interfaces.').'<br />'.
 	  &mt('Automatic setting rules apply to table mode interfaces only.'));
-    $r->print("\n<table border='1'><tr><th>".&mt('Rule for parameter').'</th><th>'.
-	      &mt('Action').'</th><th>'.&mt('Value').'</th></tr>');
+    $r->print("\n".&Apache::loncommon::start_data_table().
+	      &Apache::loncommon::start_data_table_header_row().
+	      "<th>".&mt('Rule for parameter').'</th><th>'.
+	      &mt('Action').'</th><th>'.&mt('Value').'</th>'.
+	      &Apache::loncommon::end_data_table_header_row());
     foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {
 	unless ($tempkey) { next; }
-	$r->print("\n<tr><td>".$allparms{$tempkey}."\n<br />(".$tempkey.')</td><td>');
+	$r->print("\n".&Apache::loncommon::start_data_table_row().
+		  "<td>".$allparms{$tempkey}."\n<br />(".$tempkey.')</td><td>');
 	my $action=&rulescache($tempkey.'_action');
 	$r->print('<select name="'.$tempkey.'_action">');
 	if (&isdateparm($defkeytype{$tempkey})) {
@@ -3285,9 +3313,10 @@ ENDYESNO
         } else {
 	    $r->print('<input type="text" size="20" name="'.$tempkey.'_value" value="'.&rulescache($tempkey.'_value').'" />');
 	}
-        $r->print('</td></tr>');
+        $r->print('</td>'.&Apache::loncommon::end_data_table_row());
     }
-    $r->print("</table>\n<input type='submit' name='storerules' value='".
+    $r->print(&Apache::loncommon::end_data_table().
+	      "\n<input type='submit' name='storerules' value='".
 	      &mt('Store Rules')."' /></form>\n".
 	      &Apache::loncommon::end_page());
     return;
@@ -3314,14 +3343,14 @@ sub components {
 	$section=&mt('User').": ".&Apache::loncommon::plainname($uname,$udom);
 	$issection='';
     }
-    my $realm='<font color="red">'.&mt('All Resources').'</font>';
+    my $realm='<span class="LC_parm_scope_all">'.&mt('All Resources').'</span>';
     my $realmdescription=&mt('all resources'); 
     if ($middle=~/^(.+)\_\_\_\(all\)$/) {
-	$realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <br /><font color="#aaaaaa" size="-2">('.$1.')</font></font>';
+	$realm='<span class="LC_parm_scope_folder">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <span class="LC_parm_folder"><br />('.$1.')</span></span>';
  	$realmdescription=&mt('folder').' '.&Apache::lonnet::gettitle($1);
    } elsif ($middle) {
 	my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
-	$realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><font color="#aaaaaa" size="-2">('.$url.' in '.$map.' id: '.$id.')</font></font>';
+	$realm='<span class="LC_parm_scope_resource">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><span class="LC_parm_symb">('.$url.' in '.$map.' id: '.$id.')</span></span>';
 	$realmdescription=&mt('resource').' '.&Apache::lonnet::gettitle($middle);
     }
     my $what=$part.'.'.$name;
@@ -3449,7 +3478,7 @@ sub parm_change_log {
 			$r->print($value);
 		    }
 		    if ($value ne $all[$level]) {
-			$r->print('<br /><span class="LC_error">'.&mt('Not active anymore').'</span>');
+			$r->print('<br /><span class="LC_warning">'.&mt('Not active anymore').'</span>');
 		    } else {
 			$stillactive=1;
 		    }