version 1.285, 2006/04/13 21:32:23
|
version 1.286, 2006/04/14 11:55:58
|
Line 400 sub storeparm_by_symb {
|
Line 400 sub storeparm_by_symb {
|
my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_; |
my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_; |
$logid++; |
$logid++; |
my $id=time().'00000'.$$.'00000'.$logid; |
my $id=time().'00000'.$$.'00000'.$logid; |
&Apache::lonnet::put('parameterlog', |
&Apache::lonnet::put('nohist_parameterlog', |
{ |
{ |
$id.'_exe_uname' => $env{'user.name'}, |
$id.'_exe_uname' => $env{'user.name'}, |
$id.'_exe_udom' => $env{'user.domain'}, |
$id.'_exe_udom' => $env{'user.domain'}, |
Line 3319 ENDYESNO
|
Line 3319 ENDYESNO
|
sub parm_change_log { |
sub parm_change_log { |
my ($r)=@_; |
my ($r)=@_; |
&startpage($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) { |
|
if ($key=~/^(.+)\_exe\_time$/) { |
|
$exetime{$1}=$parmlog{$key}; |
|
} |
|
} |
|
$r->print('<table border="2">'); |
|
foreach my $id (sort { $exetime{$a}<=>$exetime{$b} } keys %exetime) { |
|
my ($part,$name)=($parmlog{$id.'_spnam'}=~/^(.*)[\_\.]([^\_\.]+)$/); |
|
my $spnam=$part.'_'.$name; |
|
$r->print('<tr><td>'. |
|
&Apache::lonlocal::locallocaltime($parmlog{$id.'_exe_time'}). |
|
'</td><td>'. |
|
&Apache::loncommon::aboutmewrapper( |
|
&Apache::loncommon::plainname($parmlog{$id.'_exe_uname'}, |
|
$parmlog{$id.'_exe_udom'}), |
|
$parmlog{$id.'_exe_uname'}, |
|
$parmlog{$id.'_exe_udom'}).'<br /><tt>'. |
|
$parmlog{$id.'_exe_uname'}.'@'.$parmlog{$id.'_exe_udom'}.'</tt>'. |
|
((($parmlog{$id.'_exe_uname'} ne $env{'user.name'}) || |
|
($parmlog{$id.'_exe_udom'} ne $env{'user.domain'}))? |
|
'<br />'.&Apache::loncommon::messagewrapper(&mt('Send message'), |
|
$parmlog{$id.'_exe_uname'}, |
|
$parmlog{$id.'_exe_udom'}):''). |
|
'</td><td>'. |
|
$level{'parmlevel_'.$parmlog{$id.'_snum'}}. |
|
'</td><td>'. |
|
&mt($allparms{$name}).'<br /><tt>'.$name.'</tt>'. |
|
'</td><td>'. |
|
($part?&mt('Part: [_1]',$part):&mt('All parts')). |
|
'</td><td>'. |
|
$parmlog{$id.'_symb'}. |
|
'</td><td>'. |
|
($parmlog{$id.'_nval'}? |
|
(&isdateparm($spnam)?&Apache::lonlocal::locallocaltime($parmlog{$id.'_nval'}):$parmlog{$id.'_nval'}) |
|
:&mt('Deleted Parameter')). |
|
'</td></tr>'); |
|
} |
|
$r->print('</table>'); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
} |
} |
|
|