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

[www]

www		Mon Apr 17 22:13:52 2006 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  More work on parameter setting logs
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.291 loncom/interface/lonparmset.pm:1.292
--- loncom/interface/lonparmset.pm:1.291	Mon Apr 17 17:28:50 2006
+++ loncom/interface/lonparmset.pm	Mon Apr 17 22:13:49 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.291 2006/04/17 21:28:50 www Exp $
+# $Id: lonparmset.pm,v 1.292 2006/04/18 02:13:49 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3053,7 +3053,7 @@
             action => 'setdefaults',
             permission => $parm_permission,
             },          
-	  { text => 'Parameter Change Log and Course Blog Posting',
+	  { text => 'Parameter Change Log and Course Blog Posting/User Notification',
             action => 'parameterchangelog',
             permission => $parm_permission,
             },
@@ -3355,6 +3355,21 @@
     return ($realm,$section,$name,$part,$typeflag,
 	    $what,$middle,$uname,$udom,$issection);
 }
+sub standard_parameter_names {
+    my ($name)=@_;
+    my %standard_parms=&Apache::lonlocal::texthash('duedate' => 'Due Date',
+						   'answerdate' => 'Answer Date',
+						   'opendate' => 'Open Date',
+						   'maxtries' => 'Max. Number of Tries',
+						   'weight' => 'Weight',
+						   'date_start' => 'Starting Date',
+						   'date_end' => 'Ending Date');
+    if ($standard_parms{$name}) {
+	return $standard_parms{$name}; 
+    } else { 
+	return $name; 
+    }
+}
 
 sub parm_change_log {
     my ($r)=@_;
@@ -3406,13 +3421,14 @@
 	    if ($typeflag) { $istype{$parmname}=$value; }
 	    if ($makenewrow) { $r->print('<tr>'); } else { $makenewrow=1; }
 	    $r->print('<td>'.$realm.'</td><td>'.$section.'</td><td>'.
-		      &mt('Part: [_1]',$part).'</td><td>');
+		      &standard_parameter_names($parmname).'</td><td>'.
+		      ($part?&mt('Part: [_1]',$part):&mt('All Parts')).'</td><td>');
 	    my $stillactive=0;
 	    if ($parmlog{$id.'_deleteflag'}) {
 		$r->print(&mt('Deleted'));
 	    } else {
 		if ($typeflag) {
-		    $r->print(&mt('Type: [_1]',$value));
+		    $r->print(&mt('Type: [_1]',&standard_parameter_names($value)));
 		} else {
 		    my ($level,@all)=&parmval_by_symb($what,$middle,&Apache::lonnet::metadata($middle,$what),
 						      $uname,$udom,$issection,$issection,$courseopt);
@@ -3430,7 +3446,11 @@
 	    }
 	    $r->print('</td>');
 	    if ($stillactive) {
-		$r->print('<td>Notify Link</td>');
+		if (($uname) && ($udom)) {
+		    $r->print('<td>Notify Link</td>');
+		} else {
+		    $r->print('<td>Blog Link</td>');
+		}
 	    } else {
 		$r->print('<td>&nbsp;</td>');
 	    }
@@ -3535,7 +3555,7 @@
 	    &assessparms($r);
         } elsif ($env{'form.action'} eq 'parameterchangelog' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
-						    text=>"Parameter Change Log and Course Blog Posting"});
+						    text=>"Parameter Change Log"});
 	    &parm_change_log($r);
 	}       
     } else {