loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonparmset.pm between versions 1.286 and 1.287

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

version 1.286, 2006/04/14 11:55:58	version 1.287, 2006/04/14 16:38:43
Line 3390 sub parm_change_log {	Line 3390 sub parm_change_log {
$env{'course.'.$env{'request.course.id'}.'.domain'},	$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'});	$env{'course.'.$env{'request.course.id'}.'.num'});
my %exetime=();	my %exetime=();
foreach my $key (keys %parmlog) {	foreach my $key (keys(%parmlog)) {
if ($key=~/^(.+)\_exe\_time$/) {	if ($key=~/^(.+)\_exe\_time$/) {
$exetime{$1}=$parmlog{$key};	$exetime{$1}=$parmlog{$key};
}	}
}	}
$r->print('<table border="2">');	$r->print('<table border="2">');
foreach my $id (sort { $exetime{$a}<=>$exetime{$b} } keys %exetime) {	foreach my $id (sort { $exetime{$a}<=>$exetime{$b} } (keys(%exetime))) {
my ($part,$name)=($parmlog{$id.'_spnam'}=~/^(.*)[\_\.]([^\_\.]+)$/);	my ($part,$name)=($parmlog{$id.'_spnam'}=~/^(.*)[\_\.]([^\_\.]+)$/);
my $spnam=$part.'_'.$name;	my $spnam=$part.'_'.$name;
$r->print('<tr><td>'.	$r->print('<tr><td>'.
Line 3407 sub parm_change_log {	Line 3407 sub parm_change_log {
$parmlog{$id.'_exe_udom'}),	$parmlog{$id.'_exe_udom'}),
$parmlog{$id.'_exe_uname'},	$parmlog{$id.'_exe_uname'},
$parmlog{$id.'_exe_udom'}).'<br /><tt>'.	$parmlog{$id.'_exe_udom'}).'<br /><tt>'.
$parmlog{$id.'_exe_uname'}.'@'.$parmlog{$id.'_exe_udom'}.'</tt>'.	$parmlog{$id.'_exe_uname'}.':'.$parmlog{$id.'_exe_udom'}.'</tt>'.
((($parmlog{$id.'_exe_uname'} ne $env{'user.name'}) \|\|	((($parmlog{$id.'_exe_uname'} ne $env{'user.name'}) \|\|
($parmlog{$id.'_exe_udom'} ne $env{'user.domain'}))?	($parmlog{$id.'_exe_udom'} ne $env{'user.domain'}))?
'<br />'.&Apache::loncommon::messagewrapper(&mt('Send message'),	'<br />'.&Apache::loncommon::messagewrapper(&mt('Send message'),

Removed from v.1.286
changed lines
	Added in v.1.287