--- loncom/interface/lonparmset.pm 2006/04/18 18:10:55 1.293
+++ loncom/interface/lonparmset.pm 2006/05/01 14:59:38 1.297
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.293 2006/04/18 18:10:55 www Exp $
+# $Id: lonparmset.pm,v 1.297 2006/05/01 14:59:38 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -117,7 +117,6 @@ sub parmval {
sub parmval_by_symb {
my ($what,$symb,$def,$uname,$udom,$csec,$cgroup,$courseopt)=@_;
# load caches
-
&cacheparmhash();
my $useropt=&Apache::lonnet::get_userresdata($uname,$udom);
@@ -1416,7 +1415,6 @@ sub assessparms {
my $uhome;
my $csec;
my $cgroup;
- my $grouplist;
my @usersgroups = ();
my $coursename=$env{'course.'.$env{'request.course.id'}.'.description'};
@@ -1522,16 +1520,12 @@ sub assessparms {
.$name{'lastname'}.' '.$name{'generation'}.
"
\n".&mt('ID').": ".$name{'id'}.'
'; } - $grouplist = &Apache::lonnet::get_users_groups( + @usersgroups = &Apache::lonnet::get_users_groups( $udom,$uname,$env{'request.course.id'}); - if ($grouplist) { - @usersgroups = &Apache::lonnet::sort_course_groups($grouplist, - $env{'request.course.id'}); + if (@usersgroups > 0) { unless (grep/^\Q$cgroup\E$/,@usersgroups) { $cgroup = $usersgroups[0]; - } - } else { - $cgroup = ''; + } } } } @@ -2094,7 +2088,8 @@ 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 @@ -2333,7 +2328,7 @@ sub tablestart { return ''; } else { $tableopen=1; - return '
'.&mt('Parameter').' | '. + return &Apache::loncommon::start_data_table().' | |
---|---|---|
'.&mt('Parameter').' | '. &mt('Delete').' | '.&mt('Set to ...').' |
'.$time.' | '.$about_me_link.
- ' '.$parmlog{$id.'_exe_uname'}. - ':'.$parmlog{$id.'_exe_udom'}.''. + ' '.$parmlog{$id}{'exe_uname'}. + ':'.$parmlog{$id}{'exe_udom'}.''. $send_msg_link.' | ');
my $makenewrow=0;
my %istype=();
foreach my $changed (reverse(sort(@changes))) {
- my $value=$parmlog{$id.'_logentry'}->{$changed};
+ my $value=$parmlog{$id}{'logentry'}->{$changed};
my ($realm,$section,$parmname,$part,$typeflag,$what,$middle,$uname,$udom,$issection)=
- &components($changed,$parmlog{$id.'_uname'},$parmlog{$id.'_udom'});
+ &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')).' | '); my $stillactive=0; - if ($parmlog{$id.'_deleteflag'}) { + if ($parmlog{$id}{'deleteflag'}) { $r->print(&mt('Deleted')); } else { if ($typeflag) { |