|
version 1.330, 2006/08/09 20:47:32
|
version 1.331, 2006/08/09 21:11:34
|
|
Line 3426 sub parm_change_log {
|
Line 3426 sub parm_change_log {
|
| foreach my $id (sort { $parmlog{$b}{'exe_time'}<=>$parmlog{$a}{'exe_time'} } (keys(%parmlog))) { |
foreach my $id (sort { $parmlog{$b}{'exe_time'}<=>$parmlog{$a}{'exe_time'} } (keys(%parmlog))) { |
| my @changes=keys(%{$parmlog{$id}{'logentry'}}); |
my @changes=keys(%{$parmlog{$id}{'logentry'}}); |
| my $count=$#changes+1; |
my $count=$#changes+1; |
| if (!$env{'form.includetypes'}) { $count=$count/2; } |
if (!$env{'form.includetypes'}) { $count=int($count/2); } |
| |
if ($count == 0) { $count = 1; } |
| my $time = |
my $time = |
| &Apache::lonlocal::locallocaltime($parmlog{$id}{'exe_time'}); |
&Apache::lonlocal::locallocaltime($parmlog{$id}{'exe_time'}); |
| my $plainname = |
my $plainname = |
|
Line 3454 sub parm_change_log {
|
Line 3455 sub parm_change_log {
|
| my %istype=(); |
my %istype=(); |
| foreach my $changed (reverse(sort(@changes))) { |
foreach my $changed (reverse(sort(@changes))) { |
| my $value=$parmlog{$id}{'logentry'}{$changed}; |
my $value=$parmlog{$id}{'logentry'}{$changed}; |
| my $typeflag = (!exists($parmlog{$id}{'logentry'}{$changed.'.type'})); |
my $typeflag = ($changed =~/\.type$/ && |
| |
!exists($parmlog{$id}{'logentry'}{$changed.'.type'})); |
| my ($realm,$section,$parmname,$part,$what,$middle,$uname,$udom,$issection,$realmdescription)= |
my ($realm,$section,$parmname,$part,$what,$middle,$uname,$udom,$issection,$realmdescription)= |
| &components($changed,$parmlog{$id}{'uname'},$parmlog{$id}{'udom'},undef,undef,$typeflag); |
&components($changed,$parmlog{$id}{'uname'},$parmlog{$id}{'udom'},undef,undef,$typeflag); |
| if ($typeflag) { |
if ($typeflag) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonparmset.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface