--- loncom/interface/lonparmset.pm 2006/04/15 21:12:56 1.290
+++ 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.290 2006/04/15 21:12:56 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,
},
@@ -3324,25 +3324,26 @@ ENDYESNO
}
sub components {
- my ($key,$uname,$udom)=@_;
+ my ($key,$uname,$udom,$exeuser,$exedomain)=@_;
my $typeflag=0;
if ($key=~/\.type$/) {
$key=~s/\.type$//;
$typeflag=1;
}
+ my $issection;
my ($middle,$part,$name)=($key=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
my $section=&mt('All Students');
if ($middle=~/^\[(.*)\]/) {
- my $issection=$1;
- if ($uname) {
- $section=&mt('User').": ".&Apache::loncommon::plainname($uname,$udom);
- } else {
- $section=&mt('Group/Section').': '.$issection;
- }
+ $issection=$1;
+ $section=&mt('Group/Section').': '.$issection;
$middle=~s/^\[(.*)\]//;
}
$middle=~s/\.+$//;
$middle=~s/^\.+//;
+ if ($uname) {
+ $section=&mt('User').": ".&Apache::loncommon::plainname($uname,$udom);
+ $issection='';
+ }
my $realm=''.&mt('All Resources').'';
if ($middle=~/^(.+)\_\_\_\(all\)$/) {
$realm=''.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).'
('.$1.')';
@@ -3350,7 +3351,24 @@ sub components {
my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
$realm=''.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).'
('.$url.' in '.$map.' id: '.$id.')';
}
- return ($realm,$section,$name,$part,$typeflag);
+ my $what=$part.'.'.$name;
+ 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 {
@@ -3364,9 +3382,11 @@ sub parm_change_log {
if ($key=~/^(.+)\_exe\_time$/) {
$exetime{$1}=$parmlog{$key};
}
- }
+ }
+ my $courseopt=&Apache::lonnet::get_courseresdata($env{'course.'.$env{'request.course.id'}.'.num'},
+ $env{'course.'.$env{'request.course.id'}.'.domain'});
$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));
- } elsif (&isdateparm($istype{$parmname})) {
- $r->print(&Apache::lonlocal::locallocaltime($value));
+ $r->print(&mt('Type: [_1]',&standard_parameter_names($value)));
} else {
- $r->print($value);
+ my ($level,@all)=&parmval_by_symb($what,$middle,&Apache::lonnet::metadata($middle,$what),
+ $uname,$udom,$issection,$issection,$courseopt);
+ if (&isdateparm($istype{$parmname})) {
+ $r->print(&Apache::lonlocal::locallocaltime($value));
+ } else {
+ $r->print($value);
+ }
+ if ($value ne $all[$level]) {
+ $r->print(' '.&mt('Not active anymore').''); + } else { + $stillactive=1; + } } } - $r->print(' | Notify Link | '); + } else { + $r->print('Blog Link | '); + } + } else { + $r->print(''); + } + $r->print(''); } } $r->print(' |