--- loncom/interface/lonparmset.pm 2006/04/17 21:28:50 1.291 +++ loncom/interface/lonparmset.pm 2006/04/18 02:13:49 1.292 @@ -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 @@ ENDMAINFORMHEAD 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 @@ sub components { 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 @@ sub parm_change_log { if ($typeflag) { $istype{$parmname}=$value; } if ($makenewrow) { $r->print(''); } else { $makenewrow=1; } $r->print(''.$realm.''.$section.''. - &mt('Part: [_1]',$part).''); + &standard_parameter_names($parmname).''. + ($part?&mt('Part: [_1]',$part):&mt('All Parts')).''); 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 @@ sub parm_change_log { } $r->print(''); if ($stillactive) { - $r->print('Notify Link'); + if (($uname) && ($udom)) { + $r->print('Notify Link'); + } else { + $r->print('Blog Link'); + } } else { $r->print(' '); } @@ -3535,7 +3555,7 @@ sub handler { &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 {