--- loncom/interface/lonparmset.pm 2006/05/11 17:38:44 1.303
+++ 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.303 2006/05/11 17:38:44 www Exp $
+# $Id: lonparmset.pm,v 1.304 2006/05/11 19:04:31 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3306,15 +3306,18 @@ sub components {
$issection='';
}
my $realm=''.&mt('All Resources').'';
+ my $realmdescription=&mt('all resources');
if ($middle=~/^(.+)\_\_\_\(all\)$/) {
$realm=''.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).'
('.$1.')';
- } elsif ($middle) {
+ $realmdescription=&mt('folder').' '.&Apache::lonnet::gettitle($1);
+ } elsif ($middle) {
my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
$realm=''.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).'
('.$url.' in '.$map.' id: '.$id.')';
+ $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 {
@@ -3380,7 +3383,7 @@ 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($row_start); } else { $makenewrow=1; }
@@ -3410,13 +3413,17 @@ sub parm_change_log {
}
$r->print('');
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('