--- loncom/interface/lonparmset.pm	2006/04/18 20:35:47	1.294
+++ 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.294 2006/04/18 20:35:47 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'}.
 			    "<br>\n".&mt('ID').": ".$name{'id'}.'<p>';
 	    }
-            $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 '<table border="2"><tr><th>'.&mt('Parameter').'</th><th>'.
+	return &Apache::loncommon::start_data_table().'<tr><th>'.&mt('Parameter').'</th><th>'.
 	    &mt('Delete').'</th><th>'.&mt('Set to ...').'</th></tr>';
     }
 }
@@ -2341,7 +2336,7 @@ sub tablestart {
 sub tableend {
     if ($tableopen) {
 	$tableopen=0;
-	return '</table>';
+	return &Apache::loncommon::end_data_table();
     } else {
 	return'';
     }
@@ -2592,7 +2587,9 @@ sub listdata {
 #
 # Ready to print
 #
-	    $r->print(&tablestart().'<tr><td><b>'.&standard_parameter_names($name).
+	    $r->print(&tablestart().
+		      &Apache::loncommon::start_data_table_row().
+		      '<td><b>'.&standard_parameter_names($name).
 		      '</b></td><td><input type="checkbox" name="del_'.
 		      $thiskey.'" /></td><td>');
 	    $foundkeys++;
@@ -2638,7 +2635,7 @@ sub listdata {
 	    }
 	    $r->print('<input type="hidden" name="typeof_'.$thiskey.'" value="'.
 		      $thistype.'">');
-	    $r->print('</td></tr>');
+	    $r->print('</td>'.&Apache::loncommon::end_data_table_row());
 	}
     }
     return $foundkeys;
@@ -3126,7 +3123,8 @@ sub setrestrictmeta {
             }
         }
     }
-    &Apache::lonnet::coursedescription($env{'request.course.id'});
+    &Apache::lonnet::coursedescription($env{'request.course.id'},
+				       {'freshen_cache' => 1});
     my %metadata_fields = &Apache::lonmeta::fieldnames('portfolio');
     foreach my $field (sort(keys(%metadata_fields))) {
         &Apache::lonnet::logthis ($field);