--- loncom/interface/lonparmset.pm	2005/03/17 22:12:52	1.187
+++ loncom/interface/lonparmset.pm	2005/06/02 13:34:14	1.199
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.187 2005/03/17 22:12:52 www Exp $
+# $Id: lonparmset.pm,v 1.199 2005/06/02 13:34:14 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -62,17 +62,28 @@ use GDBM_File;
 use Apache::lonhomework;
 use Apache::lonxml;
 use Apache::lonlocal;
+use Apache::lonnavmaps;
 
+# --- Caches local to lonparmset
+
+my $courseoptid;
 my %courseopt;
+my $useroptid;
 my %useropt;
+my $parmhashid;
 my %parmhash;
 
+# --- end local caches
+
+#
+# FIXME: get rid of items below
+#
 my @ids;
 my %symbp;
 my %mapp;
 my %typep;
 my %keyp;
-
+my %uris;
 my %maptitles;
 
 ##################################################
@@ -108,6 +119,11 @@ Returns:  A list, the first item is the
 ##################################################
 sub parmval {
     my ($what,$id,$def,$uname,$udom,$csec)=@_;
+# load caches
+    &cacheparmhash();
+    &cacheuseropt($uname,$udom);
+    &cachecourseopt();
+
     my $result='';
     my @outpar=();
 # ----------------------------------------------------- Cascading lookup scheme
@@ -115,13 +131,13 @@ sub parmval {
     my $symbparm=$symbp{$id}.'.'.$what;
     my $mapparm=$mapp{$id}.'___(all).'.$what;
 
-    my $seclevel=$ENV{'request.course.id'}.'.['.$csec.'].'.$what;
-    my $seclevelr=$ENV{'request.course.id'}.'.['.$csec.'].'.$symbparm;
-    my $seclevelm=$ENV{'request.course.id'}.'.['.$csec.'].'.$mapparm;
-
-    my $courselevel=$ENV{'request.course.id'}.'.'.$what;
-    my $courselevelr=$ENV{'request.course.id'}.'.'.$symbparm;
-    my $courselevelm=$ENV{'request.course.id'}.'.'.$mapparm;
+    my $seclevel=$env{'request.course.id'}.'.['.$csec.'].'.$what;
+    my $seclevelr=$env{'request.course.id'}.'.['.$csec.'].'.$symbparm;
+    my $seclevelm=$env{'request.course.id'}.'.['.$csec.'].'.$mapparm;
+
+    my $courselevel=$env{'request.course.id'}.'.'.$what;
+    my $courselevelr=$env{'request.course.id'}.'.'.$symbparm;
+    my $courselevelm=$env{'request.course.id'}.'.'.$mapparm;
 
 
 
@@ -189,11 +205,50 @@ sub parmval {
     return ($result,@outpar);
 }
 
+sub resetparmhash {
+    $parmhashid='';
+}
+
+sub cacheparmhash {
+    if ($parmhashid eq  $env{'request.course.fn'}) { return; }
+    my %parmhashfile;
+    if (tie(%parmhashfile,'GDBM_File',
+	      $env{'request.course.fn'}.'_parms.db',&GDBM_READER(),0640)) {
+	%parmhash=%parmhashfile;
+	untie %parmhashfile;
+	$parmhashid=$env{'request.course.fn'};
+    }
+}
+
+sub resetuseropt {
+    $useroptid='';
+}
+
+sub cacheuseropt {
+    my ($uname,$udom)=@_;
+    unless ($uname) { return; }
+    if ($useroptid eq $uname.'@'.$udom) { return; }
+    %useropt=&Apache::lonnet::dump('resourcedata',$udom,$uname);
+    $useroptid=$uname.'@'.$udom;
+}
+
+sub resetcourseopt {
+    $courseoptid='';
+}
+
+sub cachecourseopt {
+    if ($courseoptid eq $env{'request.course.id'}) { return; };
+    %courseopt = &Apache::lonnet::dump
+        ('resourcedata',
+         $env{'course.'.$env{'request.course.id'}.'.domain'},
+         $env{'course.'.$env{'request.course.id'}.'.num'});
+    $courseoptid=$env{'request.course.id'};
+}
 
 ##################################################
 ##################################################
 #
-# Store a parameter
+# Store a parameter by ID
 #
 # Takes
 # - resource id
@@ -206,19 +261,44 @@ sub parmval {
 
 sub storeparm {
     my ($sresid,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec)=@_;
-    $spnam=~s/\_([^\_]+)$/\.$1/;
+    my $navmap = Apache::lonnavmaps::navmap->new();
+    if ($sresid=~/\./) {
+	my $resource=$navmap->getById($sresid);
+	&storeparm_by_symb($resource->symb(),$spnam,$snum,$nval,$ntype,$uname,$udom,$csec);
+    } else {
+        my $resource=$navmap->getByMapPc($sresid);
+	&storeparm_by_symb(&Apache::lonnet::declutter($resource->src()),$spnam,$snum,$nval,$ntype,$uname,$udom,$csec);
+    }
+}
+
+#
+# Store a parameter by symb
+#
+# Takes
+# - symb
+# - name of parameter
+# - level
+# - new value
+# - new type
+# - username
+# - userdomain
+
+sub storeparm_by_symb {
+# ---------------------------------------------------------- Get symb, map, etc
+    my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec)=@_;
 # ---------------------------------------------------------- Construct prefixes
+    $spnam=~s/\_([^\_]+)$/\.$1/;
+    my $map=(&Apache::lonnet::decode_symb($symb))[0];    
+    my $symbparm=$symb.'.'.$spnam;
+    my $mapparm=$map.'___(all).'.$spnam;
+
+    my $seclevel=$env{'request.course.id'}.'.['.$csec.'].'.$spnam;
+    my $seclevelr=$env{'request.course.id'}.'.['.$csec.'].'.$symbparm;
+    my $seclevelm=$env{'request.course.id'}.'.['.$csec.'].'.$mapparm;
     
-    my $symbparm=$symbp{$sresid}.'.'.$spnam;
-    my $mapparm=$mapp{$sresid}.'___(all).'.$spnam;
-    
-    my $seclevel=$ENV{'request.course.id'}.'.['.$csec.'].'.$spnam;
-    my $seclevelr=$ENV{'request.course.id'}.'.['.$csec.'].'.$symbparm;
-    my $seclevelm=$ENV{'request.course.id'}.'.['.$csec.'].'.$mapparm;
-    
-    my $courselevel=$ENV{'request.course.id'}.'.'.$spnam;
-    my $courselevelr=$ENV{'request.course.id'}.'.'.$symbparm;
-    my $courselevelm=$ENV{'request.course.id'}.'.'.$mapparm;
+    my $courselevel=$env{'request.course.id'}.'.'.$spnam;
+    my $courselevelr=$env{'request.course.id'}.'.'.$symbparm;
+    my $courselevelm=$env{'request.course.id'}.'.'.$mapparm;
     
     my $storeunder='';
     if (($snum==11) || ($snum==3)) { $storeunder=$courselevel; }
@@ -239,23 +319,24 @@ sub storeparm {
 # Expire sheets
 	&Apache::lonnet::expirespread('','','studentcalc');
 	if (($snum==7) || ($snum==4)) {
-	    &Apache::lonnet::expirespread('','','assesscalc',$symbp{$sresid});
+	    &Apache::lonnet::expirespread('','','assesscalc',$symb);
 	} elsif (($snum==8) || ($snum==5)) {
-	    &Apache::lonnet::expirespread('','','assesscalc',$mapp{$sresid});
+	    &Apache::lonnet::expirespread('','','assesscalc',$map);
 	} else {
 	    &Apache::lonnet::expirespread('','','assesscalc');
 	}
+	&resetcourseopt();
 # Store parameter
 	if ($delete) {
 	    $reply=&Apache::lonnet::del
 		('resourcedata',[keys(%storecontent)],
-		 $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
-		 $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
+		 $env{'course.'.$env{'request.course.id'}.'.domain'},
+		 $env{'course.'.$env{'request.course.id'}.'.num'});
 	} else {
 	    $reply=&Apache::lonnet::cput
 		('resourcedata',\%storecontent,
-		 $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
-		 $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
+		 $env{'course.'.$env{'request.course.id'}.'.domain'},
+		 $env{'course.'.$env{'request.course.id'}.'.num'});
 	}
     } else {
 # ------------------------------------------------------------------ Store User
@@ -264,13 +345,14 @@ sub storeparm {
 	&Apache::lonnet::expirespread($uname,$udom,'studentcalc');
 	if ($snum==1) {
 	    &Apache::lonnet::expirespread
-		($uname,$udom,'assesscalc',$symbp{$sresid});
+		($uname,$udom,'assesscalc',$symb);
 	} elsif ($snum==2) {
 	    &Apache::lonnet::expirespread
-		($uname,$udom,'assesscalc',$mapp{$sresid});
+		($uname,$udom,'assesscalc',$map);
 	} else {
 	    &Apache::lonnet::expirespread($uname,$udom,'assesscalc');
 	}
+	&resetuseropt();
 # Store parameter
 	if ($delete) {
 	    $reply=&Apache::lonnet::del
@@ -279,6 +361,7 @@ sub storeparm {
 	    $reply=&Apache::lonnet::cput
 		('resourcedata',\%storecontent,$udom,$uname);
 	}
+	&Apache::lonnet::devalidateuserresdata($uname,$udom);
     }
     
     if ($reply=~/^error\:(.*)/) {
@@ -367,9 +450,9 @@ sub plink {
     my $winvalue=$value;
     unless ($winvalue) {
 	if ($type=~/^date/) {
-            $winvalue=$ENV{'form.recent_'.$type};
+            $winvalue=$env{'form.recent_'.$type};
         } else {
-            $winvalue=$ENV{'form.recent_'.(split(/\_/,$type))[0]};
+            $winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};
         }
     }
     return 
@@ -384,6 +467,7 @@ sub startpage {
 
     my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',
                                             'onUnload="pclose()"');
+    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Table');
     my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
         &Apache::loncommon::selectstudent_link('parmform','uname','udom');
     my $selscript=&Apache::loncommon::studentbrowser_javascript();
@@ -453,6 +537,7 @@ $html
 $selscript
 </head>
 $bodytag
+$breadcrumbs
 $overallhelp
 ENDHEAD
 
@@ -474,9 +559,22 @@ $assessparmhelp
 </form>
 <hr />
 ENDHEAD2
-}
-    $r->print(<<ENDHEAD3);
-<form method="post" action="/adm/parmset" name="parmform">
+    }
+    my %sectionhash=();
+    my $sections='';
+    if (&Apache::loncommon::get_sections(
+                 $env{'course.'.$env{'request.course.id'}.'.domain'},
+                 $env{'course.'.$env{'request.course.id'}.'.num'},
+					 \%sectionhash)) {
+        $sections=$lt{'sg'}.': <select name="csec">';
+	foreach ('',sort keys %sectionhash) {
+	    $sections.='<option value="'.$_.'"'.
+		($_ eq $csec?'selected="selected"':'').'>'.$_.'</option>';
+        }
+        $sections.='</select>';
+     }
+     $r->print(<<ENDHEAD3);
+<form method="post" action="/adm/parmset?action=settable" name="parmform">
 <h4>$lt{'captm'}</h4>
 ENDHEAD3
 
@@ -485,13 +583,12 @@ ENDHEAD3
     } else {
 	$r->print(<<ENDHEAD);
 <b>
-$lt{'sg'}:
-<input type="text" value="$csec" size="6" name="csec">
-<br>
+$sections
+<br />
 $lt{'fu'} 
-<input type="text" value="$uname" size="12" name="uname">
+<input type="text" value="$uname" size="12" name="uname" />
 $lt{'oi'}
-<input type="text" value="$id" size="12" name="id"> 
+<input type="text" value="$id" size="12" name="id" /> 
 $lt{'ad'}
 $chooseopt
 </b>
@@ -660,7 +757,6 @@ Input: See list below:
 =cut
 
 sub extractResourceInformation {
-    my $bighash = shift;
     my $ids = shift;
     my $typep = shift;
     my $keyp = shift;
@@ -673,63 +769,62 @@ sub extractResourceInformation {
     my $mapp = shift;
     my $symbp = shift;
     my $maptitles=shift;
+    my $uris=shift;
 
-    foreach (keys %$bighash) {
-	if ($_=~/^src\_(\d+)\.(\d+)$/) {
-	    # there are no resources in the 0 level
-	    if ($1 eq '0') { next; }
-	    my $mapid=$1;
-	    my $resid=$2;
-	    my $id=$mapid.'.'.$resid;
-	    my $srcf=$$bighash{$_};
-	    if (1) {
-		$srcf=~/\.(\w+)$/;
-		$$ids[$#$ids+1]=$id;
-		$$typep{$id}=$1;
-		$$keyp{$id}='';
-		foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {
-		  if ($_=~/^parameter\_(.*)/) {
-                    my $key=$_;
-                    my $allkey=$1;
-                    $allkey=~s/\_/\./g;
-		    if (&Apache::lonnet::metadata($srcf,$key.'.hidden') eq 
-			'parm') {
-			next; #hide hidden things
-		    }
-                    my $display= &Apache::lonnet::metadata($srcf,$key.'.display');
-                    my $name=&Apache::lonnet::metadata($srcf,$key.'.name');
-                    my $part= &Apache::lonnet::metadata($srcf,$key.'.part');
-                    my $parmdis = $display;
-                    $parmdis =~ s|(\[Part.*$)||g;
-                    my $partkey = $part;
-                    $partkey =~ tr|_|.|;
-                    $$allparms{$name} = $parmdis;
-                    $$allparts{$part} = "[Part $part]";
-                    $$allkeys{$allkey}=$display;
-                    if ($allkey eq $fcat) {
-		        $$defp{$id}= &Apache::lonnet::metadata($srcf,$key);
-		    }
-		    if ($$keyp{$id}) {
-		        $$keyp{$id}.=','.$key;
-		    } else {
-		        $$keyp{$id}=$key;
-		    }
-		  }
+
+    my $navmap = Apache::lonnavmaps::navmap->new();
+    my @allres=$navmap->retrieveResources(undef,undef,1,undef,1);
+    foreach my $resource (@allres) {
+	my $id=$resource->id();
+        my ($mapid,$resid)=split(/\./,$id);
+	if ($mapid eq '0') { next; }
+	$$ids[$#$ids+1]=$id;
+	my $srcf=$resource->src();
+	$srcf=~/\.(\w+)$/;
+	$$typep{$id}=$1;
+	$$keyp{$id}='';
+        $$uris{$id}=$srcf;
+	foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {
+	    if ($_=~/^parameter\_(.*)/) {
+		my $key=$_;
+		my $allkey=$1;
+		$allkey=~s/\_/\./g;
+		if (&Apache::lonnet::metadata($srcf,$key.'.hidden') eq 
+		    'parm') {
+		    next; #hide hidden things
+		}
+		my $display= &Apache::lonnet::metadata($srcf,$key.'.display');
+		my $name=&Apache::lonnet::metadata($srcf,$key.'.name');
+		my $part= &Apache::lonnet::metadata($srcf,$key.'.part');
+		my $parmdis = $display;
+		$parmdis =~ s|(\[Part.*)$||g;
+		my $partkey = $part;
+		$partkey =~ tr|_|.|;
+		$$allparms{$name} = $parmdis;
+		$$allparts{$part} = "[Part $part]";
+		$$allkeys{$allkey}=$display;
+		if ($allkey eq $fcat) {
+		    $$defp{$id}= &Apache::lonnet::metadata($srcf,$key);
 		}
-		$$mapp{$id}=
-		    &Apache::lonnet::declutter($$bighash{'map_id_'.$mapid});
-                $$mapp{$mapid}=$$mapp{$id};
-		$$allmaps{$mapid}=$$mapp{$id};
-		if ($mapid eq '1') {
-		    $$maptitles{$mapid}='Main Course Documents';
+		if ($$keyp{$id}) {
+		    $$keyp{$id}.=','.$key;
 		} else {
-		    $$maptitles{$mapid}=&Apache::lonnet::gettitle(&Apache::lonnet::clutter($$mapp{$id}));
+		    $$keyp{$id}=$key;
 		}
-		$$maptitles{$$mapp{$id}}=$$maptitles{$mapid};
-		$$symbp{$id}=&Apache::lonnet::encode_symb($$mapp{$id},$resid,$srcf);
-                $$symbp{$mapid}=$$mapp{$id}.'___(all)';
 	    }
 	}
+	$$mapp{$id}=
+	    &Apache::lonnet::declutter($resource->enclosing_map_src());
+	$$mapp{$mapid}=$$mapp{$id};
+	$$allmaps{$mapid}=$$mapp{$id};
+	if ($mapid eq '1') {
+	    $$maptitles{$mapid}='Main Course Documents';
+	} else {
+	    $$maptitles{$mapid}=&Apache::lonnet::gettitle(&Apache::lonnet::clutter($$mapp{$id}));
+	}
+	$$maptitles{$$mapp{$id}}=$$maptitles{$mapid};
+	$$symbp{$id}=&Apache::lonnet::encode_symb($$mapp{$id},$resid,$srcf);
+	$$symbp{$mapid}=$$mapp{$id}.'___(all)';
     }
 }
 
@@ -776,7 +871,7 @@ sub assessparms {
     my $uhome;
     my $csec;
  
-    my $coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
+    my $coursename=$env{'course.'.$env{'request.course.id'}.'.description'};
 
     $alllevs{'Resource Level'}='full';
     $alllevs{'Map Level'}='map';
@@ -786,9 +881,6 @@ sub assessparms {
     my %allparts;
 
     my %defp;
-    %courseopt=();
-    %useropt=();
-    my %bighash=();
 
     @ids=();
     %symbp=();
@@ -796,53 +888,54 @@ sub assessparms {
 
     my $message='';
 
-    $csec=$ENV{'form.csec'};
-    if      ($udom=$ENV{'form.udom'}) {
-    } elsif ($udom=$ENV{'request.role.domain'}) {
-    } elsif ($udom=$ENV{'user.domain'}) {
+    $csec=$env{'form.csec'};
+
+    if      ($udom=$env{'form.udom'}) {
+    } elsif ($udom=$env{'request.role.domain'}) {
+    } elsif ($udom=$env{'user.domain'}) {
     } else {
 	$udom=$r->dir_config('lonDefDomain');
     }
 
     my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');
-    my $pschp=$ENV{'form.pschp'};
+    my $pschp=$env{'form.pschp'};
     my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
     if (!@psprt) { $psprt[0]='0'; }
-    my $showoptions=$ENV{'form.showoptions'};
+    my $showoptions=$env{'form.showoptions'};
 
     my $pssymb='';
     my $parmlev='';
     my $trimheader='';
-    my $prevvisit=$ENV{'form.prevvisit'};
+    my $prevvisit=$env{'form.prevvisit'};
  
-    unless ($ENV{'form.parmlev'}) {
+    unless ($env{'form.parmlev'}) {
         $parmlev = 'map';
     } else {
-        $parmlev = $ENV{'form.parmlev'};
+        $parmlev = $env{'form.parmlev'};
     }
 
 # ----------------------------------------------- Was this started from grades?
 
-    if (($ENV{'form.command'} eq 'set') && ($ENV{'form.url'})
-	&& (!$ENV{'form.dis'})) {
-	my $url=$ENV{'form.url'};
+    if (($env{'form.command'} eq 'set') && ($env{'form.url'})
+	&& (!$env{'form.dis'})) {
+	my $url=$env{'form.url'};
 	$url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;
 	$pssymb=&Apache::lonnet::symbread($url);
 	if (!@pscat) { @pscat=('all'); }
 	$pschp='';
         $parmlev = 'full';
         $trimheader='yes';
-    } elsif ($ENV{'form.symb'}) {
-	$pssymb=$ENV{'form.symb'};
+    } elsif ($env{'form.symb'}) {
+	$pssymb=$env{'form.symb'};
 	if (!@pscat) { @pscat=('all'); }
 	$pschp='';
         $parmlev = 'full';
         $trimheader='yes';
     } else {
-	$ENV{'form.url'}='';
+	$env{'form.url'}='';
     }
 
-    my $id=$ENV{'form.id'};
+    my $id=$env{'form.id'};
     if (($id) && ($udom)) {
 	$uname=(&Apache::lonnet::idget($udom,$id))[1];
 	if ($uname) {
@@ -853,7 +946,7 @@ sub assessparms {
 		&mt('at domain')." '$udom'</font>";
 	}
     } else {
-	$uname=$ENV{'form.uname'};
+	$uname=$env{'form.uname'};
     }
     unless ($udom) { $uname=''; }
     $uhome='';
@@ -866,13 +959,13 @@ sub assessparms {
 	    $uname='';
         } else {
 	    $csec=&Apache::lonnet::getsection($udom,$uname,
-					      $ENV{'request.course.id'});
+					      $env{'request.course.id'});
 	    if ($csec eq '-1') {
 		$message="<font color=red>".
 		    &mt("User")." '$uname' ".&mt("at domain")." '$udom' ".
 		    &mt("not in this course")."</font>";
 		$uname='';
-		$csec=$ENV{'form.csec'};
+		$csec=$env{'form.csec'};
 	    } else {
 		my %name=&Apache::lonnet::userenvironment($udom,$uname,
 		      ('firstname','middlename','lastname','generation','id'));
@@ -886,50 +979,29 @@ sub assessparms {
 
     unless ($csec) { $csec=''; }
 
-    my $fcat=$ENV{'form.fcat'};
+    my $fcat=$env{'form.fcat'};
     unless ($fcat) { $fcat=''; }
 
-# ------------------------------------------------------------------- Tie hashs
-    if (!(tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
-	      &GDBM_READER(),0640))) {
-	$r->print("Unable to access course data. (File $ENV{'request.course.fn'}.db not tieable)");
-	return ;
-    }
-    if (!(tie(%parmhash,'GDBM_File',
-	      $ENV{'request.course.fn'}.'_parms.db',&GDBM_READER(),0640))) {
-	$r->print("Unable to access parameter data. (File $ENV{'request.course.fn'}_parms.db not tieable)");
-	return ;
-    }
-
 # --------------------------------------------------------- Get all assessments
-    extractResourceInformation(\%bighash, \@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp,\%maptitles);
+    &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp,\%maptitles,\%uris);
 
     $mapp{'0.0'} = '';
     $symbp{'0.0'} = '';
 
 # ---------------------------------------------------------- Anything to store?
-    if ($ENV{'form.pres_marker'}) {
-	$message.=&storeparm(split(/\&/,$ENV{'form.pres_marker'}),
-			     $ENV{'form.pres_value'},
-			     $ENV{'form.pres_type'},
+    if ($env{'form.pres_marker'}) {
+	$message.=&storeparm(split(/\&/,$env{'form.pres_marker'}),
+			     $env{'form.pres_value'},
+			     $env{'form.pres_type'},
                              $uname,$udom,$csec);
 # ---------------------------------------------------------------- Done storing
 	$message.='<h3>'.&mt('Changes can take up to 10 minutes before being active for all students.').&Apache::loncommon::help_open_topic('Caching').'</h3>';
     }
 # --------------------------------------------- Devalidate cache for this child
     &Apache::lonnet::devalidatecourseresdata(
-                 $ENV{'course.'.$ENV{'request.course.id'}.'.num'},
-                 $ENV{'course.'.$ENV{'request.course.id'}.'.domain'});
-    &Apache::lonnet::clear_EXT_cache_status();
-# -------------------------------------------------------------- Get coursedata
-    %courseopt = &Apache::lonnet::dump
-        ('resourcedata',
-         $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
-         $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
-# --------------------------------------------------- Get userdata (if present)
-    if ($uname) {
-        %useropt=&Apache::lonnet::dump('resourcedata',$udom,$uname);
-    }
+                 $env{'course.'.$env{'request.course.id'}.'.num'},
+                 $env{'course.'.$env{'request.course.id'}.'.domain'});
+    #&Apache::lonnet::clear_EXT_cache_status();
 
 # ------------------------------------------------------------------- Sort this
 
@@ -952,15 +1024,11 @@ sub assessparms {
     my $have_assesments=1;
     if (scalar(keys(%allkeys)) eq 0) { $have_assesments=0; }
 
+    $trimheader = 'yes';
     &startpage($r,$id,$udom,$csec,$uname,$have_assesments,$trimheader);
 
-    if (!$have_assesments) {
-	untie(%bighash);
-	untie(%parmhash);
-	return '';
-    }
-#    if ($ENV{'form.url'}) {
-#	$r->print('<input type="hidden" value="'.$ENV{'form.url'}.
+#    if ($env{'form.url'}) {
+#	$r->print('<input type="hidden" value="'.$env{'form.url'}.
 #		  '" name="url"><input type="hidden" name="command" value="set">');
 #    }
     $r->print('<input type="hidden" value="true" name="prevvisit">');
@@ -968,7 +1036,7 @@ sub assessparms {
     foreach ('tolerance','date_default','date_start','date_end',
 	     'date_interval','int','float','string') {
 	$r->print('<input type="hidden" value="'.
-		  $ENV{'form.recent_'.$_}.'" name="recent_'.$_.'">');
+		  $env{'form.recent_'.$_}.'" name="recent_'.$_.'">');
     }
 
     $r->print('<h2>'.$message.'</h2><table>');
@@ -1134,8 +1202,8 @@ sub assessparms {
     if (($prevvisit) || ($pschp) || ($pssymb)) {
 # ----------------------------------------------------------------- Start Table
         my @catmarker=map { tr|.|_|; 'parameter_'.$_; } @pscat;
-        my $csuname=$ENV{'user.name'};
-        my $csudom=$ENV{'user.domain'};
+        my $csuname=$env{'user.name'};
+        my $csudom=$env{'user.domain'};
 
         if ($parmlev eq 'full' || $parmlev eq 'brief') {
            my $coursespan=$csec?8:5;
@@ -1177,8 +1245,8 @@ ENDTABLETWO
            $r->print(<<ENDTABLEHEADFOUR);
 </tr><tr><th>$lt{'aut'}</th><th>$lt{'type'}</th>
 <th>$lt{'emof'}</th><th>$lt{'part'}</th><th>$lt{'pn'}</th>
-<th>$lt{'gen'}</th><th>$lt{'femof'}</th>
-<th>$lt{'def'}</th><th>$lt{'foremf'}</th><th>$lt{'fr'}</th>
+<th>$lt{'gen'}</th><th>$lt{'foremf'}</th>
+<th>$lt{'def'}</th><th>$lt{'femof'}</th><th>$lt{'fr'}</th>
 ENDTABLEHEADFOUR
 
            if ($csec) {
@@ -1221,7 +1289,7 @@ ENDTABLEHEADFOUR
                     my %display=();
                     my %type=   ();
                     my %default=();
-                    my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid});
+                    my $uri=&Apache::lonnet::declutter($uris{$rid});
 
                     foreach (split(/\,/,$keyp{$rid})) {
                         my $tempkeyp = $_;
@@ -1320,7 +1388,7 @@ ENDTABLEHEADFOUR
 #                  $r->print("$mapid:$map:   $rid <br /> \n");
 
                   if ($map eq $mapid) {
-                    my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid});
+                    my $uri=&Apache::lonnet::declutter($uris{$rid});
 #                    $r->print("Keys: $keyp{$rid} <br />\n");
 
 #--------------------------------------------------------------------
@@ -1408,7 +1476,7 @@ ENDMAPONE
             foreach (@ids) {
                 my $rid = $_;
         
-                my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid});
+                my $uri=&Apache::lonnet::declutter($uris{$rid});
 
 #--------------------------------------------------------------------
 # @catmarker contains list of all possible parameters including part #s
@@ -1468,8 +1536,6 @@ ENDMAPONE
         } # end of $parmlev eq general
     }
     $r->print('</form></body></html>');
-    untie(%bighash);
-    untie(%parmhash);
 } # end sub assessparms
 
 
@@ -1496,17 +1562,19 @@ sub crsenv {
     my $setoutput='';
     my $bodytag=&Apache::loncommon::bodytag(
                              'Set Course Environment Parameters');
-    my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
-    my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
+    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,
+						    'Edit Course Environment');
+    my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+    my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
 
     #
     # Go through list of changes
-    foreach (keys %ENV) {
+    foreach (keys %env) {
         next if ($_!~/^form\.(.+)\_setparmval$/);
         my $name  = $1;
-        my $value = $ENV{'form.'.$name.'_value'};
+        my $value = $env{'form.'.$name.'_value'};
         if ($name eq 'newp') {
-            $name = $ENV{'form.newp_name'};
+            $name = $env{'form.newp_name'};
         }
         if ($name eq 'url') {
             $value=~s/^\/res\///;
@@ -1582,7 +1650,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'});
 
 # -------------------------------------------------------- Get parameters again
 
@@ -1778,7 +1846,7 @@ sub crsenv {
     my $Set=&mt('Set');
     my $browse_js=&Apache::loncommon::browser_and_searcher_javascript('parmset');
     my $html=&Apache::lonxml::xmlbegin();
-    $r->print(<<ENDENV);
+    $r->print(<<ENDenv);
 $html
 <head>
 <script type="text/javascript" language="Javascript" >
@@ -1787,7 +1855,8 @@ $browse_js
 <title>LON-CAPA Course Environment</title>
 </head>
 $bodytag
-<form method="post" action="/adm/parmset" name="envform">
+$breadcrumbs
+<form method="post" action="/adm/parmset?action=crsenv" name="envform">
 $setoutput
 <p>
 <table border=2>
@@ -1798,7 +1867,7 @@ $output
 </form>
 </body>
 </html>    
-ENDENV
+ENDenv
 }
 ##################################################
 
@@ -1827,8 +1896,9 @@ sub overview {
     my $r=shift;
     my $bodytag=&Apache::loncommon::bodytag(
                              'Set/Modify Course Assessment Parameters');
-    my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
-    my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
+    my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+    my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
+    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');
     my $html=&Apache::lonxml::xmlbegin();
     $r->print(<<ENDOVER);
 $html
@@ -1836,7 +1906,8 @@ $html
 <title>LON-CAPA Course Environment</title>
 </head>
 $bodytag
-<form method="post" action="/adm/parmset" name="overviewform">
+$breadcrumbs
+<form method="post" action="/adm/parmset?action=setoverview" name="overviewform">
 <input type="hidden" name="overview" value="1" />
 ENDOVER
 # Setting
@@ -1845,17 +1916,17 @@ ENDOVER
     undef %newdata;
     my @deldata=();
     undef @deldata;
-    foreach (keys %ENV) {
+    foreach (keys %env) {
 	if ($_=~/^form\.([a-z]+)\_(.+)$/) {
 	    my $cmd=$1;
 	    my $thiskey=$2;
 	    if ($cmd eq 'set') {
-		my $data=$ENV{$_};
+		my $data=$env{$_};
 		if ($olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }
 	    } elsif ($cmd eq 'del') {
 		push (@deldata,$thiskey);
 	    } elsif ($cmd eq 'datepointer') {
-		my $data=&Apache::lonhtmlcommon::get_date_from_form($ENV{$_});
+		my $data=&Apache::lonhtmlcommon::get_date_from_form($env{$_});
 		if (defined($data) and $olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }
 	    }
 	}
@@ -1976,8 +2047,8 @@ Returns:
 sub change_clone {
     my ($clonelist,$oldcloner) = @_;
     my ($uname,$udom);
-    my $cnum = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
-    my $cdom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
+    my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+    my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $clone_crs = $cnum.':'.$cdom;
     
     if ($cnum && $cdom) {
@@ -2033,6 +2104,94 @@ sub change_clone {
     }
 }
 
+
+##################################################
+##################################################
+
+=pod
+
+=item * header
+
+Output html header for page
+
+=cut
+
+##################################################
+##################################################
+sub header {
+    my $html=&Apache::lonxml::xmlbegin();
+    my $bodytag=&Apache::loncommon::bodytag('Parameter Manager');
+    my $title = &mt('LON-CAPA Parameter Manager');
+    return(<<ENDHEAD);
+$html
+<head>
+<title>$title</title>
+</head>
+$bodytag
+ENDHEAD
+}
+##################################################
+##################################################
+sub print_main_menu {
+    my ($r,$parm_permission)=@_;
+    #
+    $r->print(<<ENDMAINFORMHEAD);
+<form method="post" enctype="multipart/form-data"
+      action="/adm/parmset" name="studentform">
+ENDMAINFORMHEAD
+#
+    my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+    my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+    my @menu =
+        (
+          { text => 'Set Course Environment Parameters',
+            help => 'Course_Setting_Parameters',
+            action => 'crsenv',
+            permission => $parm_permission,
+            },
+          { text => 'Set/Modify Course Assessment Parameters - Helper Mode',
+            url => '/adm/helper/parameter.helper',
+            permission => $parm_permission,
+            },
+          { text => 'Modify Course Assessment Parameters - Overview Mode',
+            action => 'setoverview',
+            permission => $parm_permission,
+            },
+          { text => 'Set/Modify Course Assessment Parameters - Table Mode',
+            action => 'settable',
+            permission => $parm_permission,
+            },
+#          { text => 'Set Parameter Default Preferences',
+#            help => 'Course_View_Class_List',
+#            action => 'setdefaults',
+#            permission => $parm_permission,
+#            },
+          );
+    my $menu_html = '';
+    foreach my $menu_item (@menu) {
+        next if (! $menu_item->{'permission'});
+        $menu_html.='<p>';
+        $menu_html.='<font size="+1">';
+        if (exists($menu_item->{'url'})) {
+            $menu_html.=qq{<a href="$menu_item->{'url'}">};
+        } else {
+            $menu_html.=
+                qq{<a href="/adm/parmset?action=$menu_item->{'action'}">};
+        }
+        $menu_html.= &mt($menu_item->{'text'}).'</a></font>';
+        if (exists($menu_item->{'help'})) {
+            $menu_html.=
+                &Apache::loncommon::help_open_topic($menu_item->{'help'});
+        }
+        $menu_html.='</p>'.$/;
+    }
+    $r->print($menu_html);
+    return;
+}
+
+
+
+
 ##################################################
 ##################################################
 
@@ -2043,7 +2202,6 @@ sub change_clone {
 Main handler.  Calls &assessparms and &crsenv subroutines.
 
 =cut
-
 ##################################################
 ##################################################
     use Data::Dumper;
@@ -2055,13 +2213,11 @@ sub handler {
 	$r->send_http_header;
 	return OK;
     }
-    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
+    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+					    ['action','state']);
 
 # ----------------------------------------------------------- Clear out garbage
 
-    %courseopt=();
-    %useropt=();
-    %parmhash=();
 
     @ids=();
     %symbp=();
@@ -2071,31 +2227,55 @@ sub handler {
 
     %maptitles=();
 
+    &Apache::lonhtmlcommon::clear_breadcrumbs();
+    &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/parmset",
+					    text=>"Parameter Manager",
+					    faq=>9,
+					    bug=>'Instructor Interface'});
 # ----------------------------------------------------- Needs to be in a course
+    my $parm_permission =
+	(&Apache::lonnet::allowed('opa',$env{'request.course.id'}) ||
+	 &Apache::lonnet::allowed('opa',$env{'request.course.id'}.'/'.
+				  $env{'request.course.sec'}));
+    if ($env{'request.course.id'} &&  $parm_permission) {
 
-    if (($ENV{'request.course.id'}) && 
-	(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}) || 
-	 &Apache::lonnet::allowed('opa',$ENV{'request.course.id'}.'/'.
-				  $ENV{'request.course.sec'})
-	 )) {
-
+        # Start Page
         &Apache::loncommon::content_type($r,'text/html');
         $r->send_http_header;
 
-	if (($ENV{'form.crsenv'}) || (!$ENV{'request.course.fn'})) {
-# ---------------------------------------------- This is for course environment
-# -------------------------- also call if toplevel map coudl not be initialized
-	    &crsenv($r);
-	} elsif ($ENV{'form.overview'}) {
-# --------------------------------------------------------------- Overview mode
+        #
+        # Main switch on form.action and form.state, as appropriate
+        #
+        # Check first if coming from someone else headed directly for
+        #  the table mode
+        if ((($env{'form.command'} eq 'set') && ($env{'form.url'})
+	     && (!$env{'form.dis'})) || ($env{'form.symb'})) {
+	    &assessparms($r);
+
+        } elsif (! exists($env{'form.action'})) {
+            $r->print(&header());
+            $r->print(&Apache::lonhtmlcommon::breadcrumbs(undef,
+							 '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',
+						    text=>"Course Environment"});
+            $r->print(&Apache::lonhtmlcommon::breadcrumbs(undef,
+						   'Edit Course Environment'));
+            &crsenv($r); 
+        } elsif ($env{'form.action'} eq 'setoverview' && $parm_permission) {
+            &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
+						    text=>"Overview Mode"});
 	    &overview($r);
-	} else {
-# --------------------------------------------------------- Bring up assessment
+        } elsif ($env{'form.action'} eq 'settable' && $parm_permission) {
+            &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
+						    text=>"Table Mode"});
 	    &assessparms($r);
-	}
+        }
+        
     } else {
 # ----------------------------- Not in a course, or not allowed to modify parms
-	$ENV{'user.error.msg'}=
+	$env{'user.error.msg'}=
 	    "/adm/parmset:opa:0:0:Cannot modify assessment parameters";
 	return HTTP_NOT_ACCEPTABLE;
     }