loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.355, 2006/12/14 20:49:22	version 1.356, 2007/01/04 19:34:13
Line 3753 sub parm_change_log {	Line 3753 sub parm_change_log {
}	}
if ($last) { ($folder) = &Apache::lonnet::decode_symb($last); }	if ($last) { ($folder) = &Apache::lonnet::decode_symb($last); }
}	}
foreach my $id (sort { $parmlog{$b}{'exe_time'}<=>$parmlog{$a}{'exe_time'} } (keys(%parmlog))) {	foreach my $id (sort
	{
	if ($parmlog{$b}{'exe_time'} ne $parmlog{$a}{'exe_time'}) {
	return $parmlog{$b}{'exe_time'} <=>$parmlog{$a}{'exe_time'}
	}
	my $aid = (split('00000',$a))[-1];
	my $bid = (split('00000',$b))[-1];
	return $bid<=>$aid;
	} (keys(%parmlog))) {
my @changes=keys(%{$parmlog{$id}{'logentry'}});	my @changes=keys(%{$parmlog{$id}{'logentry'}});
my $count = 0;	my $count = 0;
my $time =	my $time =