--- loncom/interface/lonparmset.pm	2006/04/22 15:39:22	1.295
+++ loncom/interface/lonparmset.pm	2006/05/09 15:09:27	1.300
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.295 2006/04/22 15:39:22 albertel Exp $
+# $Id: lonparmset.pm,v 1.300 2006/05/09 15:09:27 albertel 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);
@@ -650,8 +649,7 @@ sub startpage {
 				       &page_js(),
 				       {'add_entries' => \%loaditems,});
     my $breadcrumbs = 
-	&Apache::lonhtmlcommon::breadcrumbs(undef,
-					    'Table Mode Parameter Setting');
+	&Apache::lonhtmlcommon::breadcrumbs('Table Mode Parameter Setting');
     $r->print(<<ENDHEAD);
 $start_page
 $breadcrumbs
@@ -1119,21 +1117,15 @@ sub usermenu {
 		    'oi'    => "or ID",
 		    'ad'    => "at Domain"
 				       );
-    my %sectionhash=();
     my $sections='';
-    my $numsec = &Apache::loncommon::get_sections(
-                 $env{'course.'.$env{'request.course.id'}.'.domain'},
-                 $env{'course.'.$env{'request.course.id'}.'.num'},
-					 \%sectionhash);
+    my %sectionhash = &Apache::loncommon::get_sections();
+
     my $groups;
-    my %grouphash;
-    my $numgrp = &Apache::loncommon::coursegroups(
-                 \%grouphash,
-                 $env{'course.'.$env{'request.course.id'}.'.domain'},
-                 $env{'course.'.$env{'request.course.id'}.'.num'});
-    if ($numsec > 0) {
+    my %grouphash = &Apache::loncommon::coursegroups();
+
+    if (%sectionhash) {
         $sections=$lt{'se'}.': <select name="csec"';
-        if ($numsec && $numgrp && $parmlev ne 'full') {
+        if (%grouphash && $parmlev ne 'full') {
             $sections .= qq| onchange="group_or_section('csec')" |;
         }
         $sections .= '>';
@@ -1144,7 +1136,7 @@ sub usermenu {
         }
         $sections.='</select>';
     }
-    if ($numsec && $numgrp && $parmlev ne 'full') {
+    if (%sectionhash && %grouphash && $parmlev ne 'full') {
         $sections .= '&nbsp;or&nbsp;';
         $sections .= qq|
 <script type="text/javascript">
@@ -1170,9 +1162,10 @@ function group_or_section(caller) {
 </script>
 |;
     } 
-    if ($numgrp > 0) {
+
+    if (%grouphash) {
         $groups=$lt{'gr'}.': <select name="cgroup"';
-        if ($numsec && $numgrp && $env{'form.action'} eq 'settable') {
+        if (%sectionhash && $env{'form.action'} eq 'settable') {
             $groups .= qq| onchange="group_or_section('cgroup')" |;
         }
         $groups .= '>';
@@ -1249,49 +1242,40 @@ sub levelmenu {
 
 sub sectionmenu {
     my ($r,$selectedsections)=@_;
-    my %sectionhash=();
-    my $sections='';
-    my $numsec = &Apache::loncommon::get_sections(
-                 $env{'course.'.$env{'request.course.id'}.'.domain'},
-                 $env{'course.'.$env{'request.course.id'}.'.num'},
-					 \%sectionhash);
-    if ($numsec) {
-	$r->print('<select name="Section" multiple="true" size="8" >');
-	foreach my $s ('all',sort keys %sectionhash) {
-	    $r->print('    <option value="'.$s.'"');
-	    foreach (@{$selectedsections}) {
-		if ($s eq $_) {
-		    $r->print(' selected');
-		    last;
-		}
+    my %sectionhash = &Apache::loncommon::get_sections();
+    return if (!%sectionhash);
+
+    $r->print('<select name="Section" multiple="true" size="8" >');
+    foreach my $s ('all',sort keys %sectionhash) {
+	$r->print('    <option value="'.$s.'"');
+	foreach (@{$selectedsections}) {
+	    if ($s eq $_) {
+		$r->print(' selected');
+		last;
 	    }
-	    $r->print('>'.$s."</option>\n");
 	}
-        $r->print("</select>\n");
-   }
+	$r->print('>'.$s."</option>\n");
+    }
+    $r->print("</select>\n");
 }
 
 sub groupmenu {
     my ($r,$selectedgroups)=@_;
-    my %grouphash;
-    my $numgrp = &Apache::loncommon::coursegroups(
-                 \%grouphash,
-                 $env{'course.'.$env{'request.course.id'}.'.domain'},
-                 $env{'course.'.$env{'request.course.id'}.'.num'});
-    if ($numgrp) {
-        $r->print('<select name="Group" multiple="true" size="8" >');
-        foreach my $group (sort(keys(%grouphash))) {
-            $r->print('    <option value="'.$group.'"');
-            foreach (@{$selectedgroups}) {
-                if ($group eq $_) {
-                    $r->print(' selected');
-                    last;
-                }
-            }
-            $r->print('>'.$group."</option>\n");
-        }
-        $r->print("</select>\n");
+    my %grouphash = &Apache::loncommon::coursegroups();
+    return if (!%grouphash);
+
+    $r->print('<select name="Group" multiple="true" size="8" >');
+    foreach my $group (sort(keys(%grouphash))) {
+	$r->print('    <option value="'.$group.'"');
+	foreach (@{$selectedgroups}) {
+	    if ($group eq $_) {
+		$r->print(' selected');
+		last;
+	    }
+	}
+	$r->print('>'.$group."</option>\n");
     }
+    $r->print("</select>\n");
 }
 
 
@@ -1416,7 +1400,6 @@ sub assessparms {
     my $uhome;
     my $csec;
     my $cgroup;
-    my $grouplist;
     my @usersgroups = ();
  
     my $coursename=$env{'course.'.$env{'request.course.id'}.'.description'};
@@ -1522,16 +1505,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 = '';
+                }
             }
         }
     }
@@ -1990,8 +1969,8 @@ sub crsenv {
     my $r=shift;
     my $setoutput='';
 
-    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,
-						    'Edit Course Environment');
+    my $breadcrumbs = 
+	&Apache::lonhtmlcommon::breadcrumbs('Edit Course Environment');
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
 
@@ -2094,7 +2073,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
 
@@ -2652,7 +2632,7 @@ sub newoverview {
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $start_page = &Apache::loncommon::start_page('Set Parameters');
-    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');
+    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');
     $r->print(<<ENDOVER);
 $start_page
 $breadcrumbs
@@ -2806,7 +2786,7 @@ sub overview {
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
 
     my $start_page=&Apache::loncommon::start_page('Modify Parameters');
-    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');
+    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');
     $r->print(<<ENDOVER);
 $start_page
 $breadcrumbs
@@ -3096,8 +3076,7 @@ sub setrestrictmeta {
     my $put_result;
     
     $r->print(&Apache::loncommon::start_page('Restrict Metadata'));
-    $r->print(&Apache::lonhtmlcommon::breadcrumbs(undef,
-						    'Restrict Metadata'));
+    $r->print(&Apache::lonhtmlcommon::breadcrumbs('Restrict Metadata'));
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $key_base = $env{'course.'.$env{'request.course.id'}.'.'};
@@ -3128,7 +3107,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);
@@ -3153,7 +3133,7 @@ sub defaultsetter {
 
     my $start_page = 
 	&Apache::loncommon::start_page('Parameter Setting Default Actions');
-    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Defaults');
+    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Defaults');
     $r->print(<<ENDDEFHEAD);
 $start_page
 $breadcrumbs
@@ -3504,8 +3484,7 @@ sub handler {
 
         } elsif (! exists($env{'form.action'})) {
             $r->print(&header());
-            $r->print(&Apache::lonhtmlcommon::breadcrumbs(undef,
-							 'Parameter Manager'));
+            $r->print(&Apache::lonhtmlcommon::breadcrumbs('Parameter Manager'));
             &print_main_menu($r,$parm_permission);
         } elsif ($env{'form.action'} eq 'crsenv' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=crsenv',