[LON-CAPA-cvs] cvs: loncom /interface lonparmset.pm
www
lon-capa-cvs@mail.lon-capa.org
Tue, 18 Apr 2006 02:13:52 -0000
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> </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 {