--- loncom/interface/lonparmset.pm	2006/05/09 14:38:10	1.299
+++ loncom/interface/lonparmset.pm	2006/05/11 19:04:31	1.304
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.299 2006/05/09 14:38:10 albertel Exp $
+# $Id: lonparmset.pm,v 1.304 2006/05/11 19:04:31 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -63,6 +63,7 @@ use Apache::lonhomework;
 use Apache::lonxml;
 use Apache::lonlocal;
 use Apache::lonnavmaps;
+use Apache::lonrss;
 
 # --- Caches local to lonparmset
 
@@ -1117,16 +1118,13 @@ sub usermenu {
 		    'oi'    => "or ID",
 		    'ad'    => "at Domain"
 				       );
-    my %sectionhash=();
     my $sections='';
-    my $numsec = &Apache::loncommon::get_sections(
-                 $env{'course.'.$env{'request.course.id'}.'.domain'},
-                 $env{'course.'.$env{'request.course.id'}.'.num'},
-					 \%sectionhash);
+    my %sectionhash = &Apache::loncommon::get_sections();
+
     my $groups;
     my %grouphash = &Apache::loncommon::coursegroups();
 
-    if ($numsec > 0) {
+    if (%sectionhash) {
         $sections=$lt{'se'}.': <select name="csec"';
         if (%grouphash && $parmlev ne 'full') {
             $sections .= qq| onchange="group_or_section('csec')" |;
@@ -1139,7 +1137,7 @@ sub usermenu {
         }
         $sections.='</select>';
     }
-    if ($numsec && %grouphash && $parmlev ne 'full') {
+    if (%sectionhash && %grouphash && $parmlev ne 'full') {
         $sections .= '&nbsp;or&nbsp;';
         $sections .= qq|
 <script type="text/javascript">
@@ -1168,7 +1166,7 @@ function group_or_section(caller) {
 
     if (%grouphash) {
         $groups=$lt{'gr'}.': <select name="cgroup"';
-        if ($numsec && $env{'form.action'} eq 'settable') {
+        if (%sectionhash && $env{'form.action'} eq 'settable') {
             $groups .= qq| onchange="group_or_section('cgroup')" |;
         }
         $groups .= '>';
@@ -1245,26 +1243,21 @@ sub levelmenu {
 
 sub sectionmenu {
     my ($r,$selectedsections)=@_;
-    my %sectionhash=();
-    my $sections='';
-    my $numsec = &Apache::loncommon::get_sections(
-                 $env{'course.'.$env{'request.course.id'}.'.domain'},
-                 $env{'course.'.$env{'request.course.id'}.'.num'},
-					 \%sectionhash);
-    if ($numsec) {
-	$r->print('<select name="Section" multiple="true" size="8" >');
-	foreach my $s ('all',sort keys %sectionhash) {
-	    $r->print('    <option value="'.$s.'"');
-	    foreach (@{$selectedsections}) {
-		if ($s eq $_) {
-		    $r->print(' selected');
-		    last;
-		}
+    my %sectionhash = &Apache::loncommon::get_sections();
+    return if (!%sectionhash);
+
+    $r->print('<select name="Section" multiple="true" size="8" >');
+    foreach my $s ('all',sort keys %sectionhash) {
+	$r->print('    <option value="'.$s.'"');
+	foreach (@{$selectedsections}) {
+	    if ($s eq $_) {
+		$r->print(' selected');
+		last;
 	    }
-	    $r->print('>'.$s."</option>\n");
 	}
-        $r->print("</select>\n");
-   }
+	$r->print('>'.$s."</option>\n");
+    }
+    $r->print("</select>\n");
 }
 
 sub groupmenu {
@@ -2081,7 +2074,7 @@ sub crsenv {
     }
 # ------------------------- Re-init course environment entries for this session
 
-    &Apache::lonnet::coursedescription($env{'request.course.id'}
+    &Apache::lonnet::coursedescription($env{'request.course.id'},
 				       {'freshen_cache' => 1});
 
 # -------------------------------------------------------- Get parameters again
@@ -3313,15 +3306,18 @@ sub components {
 	$issection='';
     }
     my $realm='<font color="red">'.&mt('All Resources').'</font>';
+    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>';
-    } elsif ($middle) {
+ 	$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>';
+	$realmdescription=&mt('resource').' '.&Apache::lonnet::gettitle($middle);
     }
     my $what=$part.'.'.$name;
     return ($realm,$section,$name,$part,$typeflag,
-	    $what,$middle,$uname,$udom,$issection);
+	    $what,$middle,$uname,$udom,$issection,$realmdescription);
 }
 
 sub standard_parameter_names {
@@ -3349,12 +3345,15 @@ sub parm_change_log {
     my %parmlog=&Apache::lonnet::dump('nohist_parameterlog',
 				      $env{'course.'.$env{'request.course.id'}.'.domain'},
 				      $env{'course.'.$env{'request.course.id'}.'.num'});
+    if ((keys(%parmlog))[0]=~/^error\:/) { undef(%parmlog); }
+
     my $courseopt=&Apache::lonnet::get_courseresdata($env{'course.'.$env{'request.course.id'}.'.num'},
 						     $env{'course.'.$env{'request.course.id'}.'.domain'});
-    $r->print('<table border="2">');
-    my $bgcolor='#EEEEEE';
+    $r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row().
+	      '<th>'.&mt('Time').'</th><th>'.&mt('User').'</th><th>'.&mt('Extent').'</th><th>'.&mt('Users').'</th><th>'.
+	      &mt('Parameter').'</th><th>'.&mt('Part').'</th><th>'.&mt('New Value').'</th><th>'.&mt('Announce').'</th>'.
+	      &Apache::loncommon::end_data_table_header_row());
     foreach my $id (sort { $parmlog{$b}{'exe_time'}<=>$parmlog{$a}{'exe_time'} } (keys(%parmlog))) {
-	if ($bgcolor eq '#EEEEEE') { $bgcolor='#FFFFCC'; } else { $bgcolor='#EEEEEE'; }
         my @changes=keys(%{$parmlog{$id}{'logentry'}});
 	my $count=$#changes+1;
 	my $time =
@@ -3374,7 +3373,8 @@ sub parm_change_log {
 						   $parmlog{$id}{'exe_uname'},
 						   $parmlog{$id}{'exe_udom'});
 	}
-	$r->print('<tr bgcolor="'.$bgcolor.'"><td rowspan="'.$count.'">'.$time.'</td>
+	my $row_start=&Apache::loncommon::start_data_table_row();
+	$r->print($row_start.'<td rowspan="'.$count.'">'.$time.'</td>
                        <td rowspan="'.$count.'">'.$about_me_link.
 		  '<br /><tt>'.$parmlog{$id}{'exe_uname'}.
 			          ':'.$parmlog{$id}{'exe_udom'}.'</tt>'.
@@ -3383,10 +3383,10 @@ sub parm_change_log {
 	my %istype=();
 	foreach my $changed (reverse(sort(@changes))) {
             my $value=$parmlog{$id}{'logentry'}->{$changed};
-            my ($realm,$section,$parmname,$part,$typeflag,$what,$middle,$uname,$udom,$issection)=
+            my ($realm,$section,$parmname,$part,$typeflag,$what,$middle,$uname,$udom,$issection,$realmdescription)=
 		&components($changed,$parmlog{$id}{'uname'},$parmlog{$id}{'udom'});
 	    if ($typeflag) { $istype{$parmname}=$value; }
-	    if ($makenewrow) { $r->print('<tr bgcolor="'.$bgcolor.'">'); } else { $makenewrow=1; }
+	    if ($makenewrow) { $r->print($row_start); } else { $makenewrow=1; }
 	    $r->print('<td>'.$realm.'</td><td>'.$section.'</td><td>'.
 		      &standard_parameter_names($parmname).'</td><td>'.
 		      ($part?&mt('Part: [_1]',$part):&mt('All Parts')).'</td><td>');
@@ -3413,18 +3413,25 @@ sub parm_change_log {
 	    }
 	    $r->print('</td>');
 	    if ($stillactive) {
+		my $title=&mt('Changed [_1]',&standard_parameter_names($parmname));
+                my $description=&mt('Changed [_1] for [_2] to [_3]',&standard_parameter_names($parmname),$realmdescription,
+				    (&isdateparm($istype{$parmname})?&Apache::lonlocal::locallocaltime($value):$value));
 		if (($uname) && ($udom)) {
-		    $r->print('<td>Notify Link</td>');
+		    $r->print('<td>'.
+			      &Apache::loncommon::messagewrapper('Notify User',$uname,$udom,$title,$description).
+			      '</td>');
 		} else {
-		    $r->print('<td>Blog Link</td>');
+		    $r->print('<td>'.
+			      &Apache::lonrss::course_blog_link($id,$title,$description).
+			      '</td>');
 		}
 	    } else {
 		$r->print('<td>&nbsp;</td>');
 	    }
-	    $r->print('</tr>');
+	    $r->print(&Apache::loncommon::end_data_table_row());
 	}
     }
-    $r->print('</table>');
+    $r->print(&Apache::loncommon::end_data_table());
     $r->print(&Apache::loncommon::end_page());
 }