'.$name.
- ': ');
$foundkeys++;
if (&isdateparm($thistype)) {
@@ -3046,7 +3031,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,
},
@@ -3316,116 +3301,144 @@ ENDYESNO
return;
}
+sub components {
+ 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=~/^\[(.*)\]/) {
+ $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.') ';
+ } elsif ($middle) {
+ my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
+ $realm=''.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' ('.$url.' in '.$map.' id: '.$id.') ';
+ }
+ 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',
+ 'int_pos' => 'Positive Integer',
+ 'int_zero_pos' => 'Positive Integer or Zero',
+ 'hinttries' => 'Number of Tries till Hints appear');
+ if ($standard_parms{$name}) {
+ return $standard_parms{$name};
+ } else {
+ return $name;
+ }
+}
+
sub parm_change_log {
my ($r)=@_;
&startpage($r);
-
- my @ids=();
- my %symbp=();
- my %mapp=();
- my %typep=();
- my %keyp=();
- my %uris=();
- my %maptitles=();
-
-# -------------------------------------------------------- Variable declaration
-
- my %allmaps=();
- my %alllevs=();
-
- my $uname;
- my $udom;
- my $uhome;
- my $csec;
- my $cgroup;
- my $grouplist;
- my @usersgroups = ();
-
- my $coursename=$env{'course.'.$env{'request.course.id'}.'.description'};
-
- $alllevs{'Resource Level'}='full';
- $alllevs{'Map/Folder Level'}='map';
- $alllevs{'Course Level'}='general';
-
- my %allparms;
- my %allparts;
- my %keyorder;
-# --------------------------------------------------------- Get all assessments
- &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,
- \%mapp, \%symbp,\%maptitles,\%uris,
- \%keyorder);
-
- $mapp{'0.0'} = '';
- $symbp{'0.0'} = '';
-
- my %level=&Apache::lonlocal::texthash('parmlevel_14' => 'General Course',
- 'parmlevel_13' => 'Map or Folder level in course',
- 'parmlevel_12' => 'Resource default',
- 'parmlevel_11' => 'Map default',
- 'parmlevel_10' => 'Resource level in course',
- 'parmlevel_9' => 'General for section',
- 'parmlevel_8' => 'Map or Folder level for section',
- 'parmlevel_7' => 'Resource level in section',
- 'parmlevel_6' => 'General for group',
- 'parmlevel_5' => 'Map or Folder level for group',
- 'parmlevel_4' => 'Resource level in group',
- 'parmlevel_3' => 'General for specific student',
- 'parmlevel_2' => 'Map or Folder level for specific student',
- 'parmlevel_1' => 'Resource level for specific student');
-
-# $id.'_exe_uname' => $env{'user.name'},
-# $id.'_exe_udom' => $env{'user.domain'},
-# $id.'_exe_time' => time(),
-# $id.'_exe_ip' => $ENV{'REMOTE_ADDR'},
-# $id.'_symb' => $symb,
-# $id.'_spnam' => $spnam,
-# $id.'_snum' => $snum,
-# $id.'_nval' => $nval,
-# $id.'_ntype' => $ntype,
-# $id.'_uname' => $uname,
-# $id.'_udom' => $udom,
-# $id.'_csec' => $csec,
-# $id.'_cgroup' => $cgroup
my %parmlog=&Apache::lonnet::dump('nohist_parameterlog',
$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'});
my %exetime=();
- foreach my $key (keys %parmlog) {
+ foreach my $key (keys(%parmlog)) {
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('');
- foreach my $id (sort { $exetime{$a}<=>$exetime{$b} } keys %exetime) {
- my ($part,$name)=($parmlog{$id.'_spnam'}=~/^(.*)[\_\.]([^\_\.]+)$/);
- my $spnam=$part.'_'.$name;
- $r->print(''.
- &Apache::lonlocal::locallocaltime($parmlog{$id.'_exe_time'}).
- ' '.
- &Apache::loncommon::aboutmewrapper(
- &Apache::loncommon::plainname($parmlog{$id.'_exe_uname'},
- $parmlog{$id.'_exe_udom'}),
- $parmlog{$id.'_exe_uname'},
- $parmlog{$id.'_exe_udom'}).''.
- $parmlog{$id.'_exe_uname'}.'@'.$parmlog{$id.'_exe_udom'}.' '.
- ((($parmlog{$id.'_exe_uname'} ne $env{'user.name'}) ||
- ($parmlog{$id.'_exe_udom'} ne $env{'user.domain'}))?
- ' '.
- $level{'parmlevel_'.$parmlog{$id.'_snum'}}.
- ' '.
- &mt($allparms{$name}).''.$name.' '.
- ' '.
- ($part?&mt('Part: [_1]',$part):&mt('All parts')).
- ' '.
- $parmlog{$id.'_symb'}.
- ' '.
- ($parmlog{$id.'_nval'}?
- (&isdateparm($spnam)?&Apache::lonlocal::locallocaltime($parmlog{$id.'_nval'}):$parmlog{$id.'_nval'})
- :&mt('Deleted Parameter')).
- ' '.$time.'
+ '.$about_me_link.
+ ''.$parmlog{$id.'_exe_uname'}.
+ ':'.$parmlog{$id.'_exe_udom'}.' '.
+ $send_msg_link.' ');
+ my $makenewrow=0;
+ 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)=
+ &components($changed,$parmlog{$id.'_uname'},$parmlog{$id.'_udom'});
+ if ($typeflag) { $istype{$parmname}=$value; }
+ if ($makenewrow) { $r->print(''); } else { $makenewrow=1; }
+ $r->print(''.$realm.' '.$section.' '.
+ &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]',&standard_parameter_names($value)));
+ } else {
+ 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(' ');
+ if ($stillactive) {
+ if (($uname) && ($udom)) {
+ $r->print('Notify Link ');
+ } else {
+ $r->print('Blog Link ');
+ }
+ } else {
+ $r->print(' ');
+ }
+ $r->print(' ');
+ }
}
$r->print('
');
$r->print(&Apache::loncommon::end_page());
@@ -3525,7 +3538,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 {