--- loncom/interface/lonparmset.pm 2006/04/14 11:55:58 1.286 +++ loncom/interface/lonparmset.pm 2006/04/14 16:38:43 1.287 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.286 2006/04/14 11:55:58 www Exp $ +# $Id: lonparmset.pm,v 1.287 2006/04/14 16:38:43 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3390,13 +3390,13 @@ sub parm_change_log { $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}; } } $r->print('
'.
@@ -3407,7 +3407,7 @@ sub parm_change_log {
$parmlog{$id.'_exe_udom'}),
$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'}))? ' '.&Apache::loncommon::messagewrapper(&mt('Send message'), |