--- loncom/interface/lonparmset.pm 2006/05/09 15:09:27 1.300 +++ loncom/interface/lonparmset.pm 2006/05/11 17:38:44 1.303 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.300 2006/05/09 15:09:27 albertel Exp $ +# $Id: lonparmset.pm,v 1.303 2006/05/11 17:38:44 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -63,6 +63,7 @@ use Apache::lonhomework; use Apache::lonxml; use Apache::lonlocal; use Apache::lonnavmaps; +use Apache::lonrss; # --- Caches local to lonparmset @@ -2073,7 +2074,7 @@ sub crsenv { } # ------------------------- Re-init course environment entries for this session - &Apache::lonnet::coursedescription($env{'request.course.id'} + &Apache::lonnet::coursedescription($env{'request.course.id'}, {'freshen_cache' => 1}); # -------------------------------------------------------- Get parameters again @@ -3341,12 +3342,15 @@ sub parm_change_log { my %parmlog=&Apache::lonnet::dump('nohist_parameterlog', $env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'}); + if ((keys(%parmlog))[0]=~/^error\:/) { undef(%parmlog); } + my $courseopt=&Apache::lonnet::get_courseresdata($env{'course.'.$env{'request.course.id'}.'.num'}, $env{'course.'.$env{'request.course.id'}.'.domain'}); - $r->print('
'.&mt('Time').' | '.&mt('User').' | '.&mt('Extent').' | '.&mt('Users').' | '. + &mt('Parameter').' | '.&mt('Part').' | '.&mt('New Value').' | '.&mt('Announce').' | '. + &Apache::loncommon::end_data_table_header_row()); foreach my $id (sort { $parmlog{$b}{'exe_time'}<=>$parmlog{$a}{'exe_time'} } (keys(%parmlog))) { - if ($bgcolor eq '#EEEEEE') { $bgcolor='#FFFFCC'; } else { $bgcolor='#EEEEEE'; } my @changes=keys(%{$parmlog{$id}{'logentry'}}); my $count=$#changes+1; my $time = @@ -3366,7 +3370,8 @@ sub parm_change_log { $parmlog{$id}{'exe_uname'}, $parmlog{$id}{'exe_udom'}); } - $r->print('|
---|---|---|---|---|---|---|---|---|
'.$time.' | + my $row_start=&Apache::loncommon::start_data_table_row(); + $r->print($row_start.''.$time.' | '.$about_me_link.
' '.$parmlog{$id}{'exe_uname'}. ':'.$parmlog{$id}{'exe_udom'}.''. @@ -3378,7 +3383,7 @@ sub parm_change_log { my ($realm,$section,$parmname,$part,$typeflag,$what,$middle,$uname,$udom,$issection)= &components($changed,$parmlog{$id}{'uname'},$parmlog{$id}{'udom'}); if ($typeflag) { $istype{$parmname}=$value; } - if ($makenewrow) { $r->print(' | ||||||
'.$realm.' | '.$section.' | '. &standard_parameter_names($parmname).' | '. ($part?&mt('Part: [_1]',$part):&mt('All Parts')).' | '); @@ -3408,15 +3413,18 @@ sub parm_change_log { if (($uname) && ($udom)) { $r->print(' | Notify Link | '); } else { - $r->print('Blog Link | '); + $r->print(''. + &Apache::lonrss::course_blog_link + ($id, + 'New Parameter','Set new parameter').' | '); } } else { $r->print(''); } - $r->print(' |