--- loncom/interface/lonparmset.pm	2005/06/03 14:25:49	1.203
+++ loncom/interface/lonparmset.pm	2005/06/03 19:16:25	1.205
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.203 2005/06/03 14:25:49 www Exp $
+# $Id: lonparmset.pm,v 1.205 2005/06/03 19:16:25 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -451,7 +451,7 @@ sub startpage {
 
     my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',
                                             'onUnload="pclose()"');
-    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Table');
+    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Table Mode Parameter Setting');
     my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
         &Apache::loncommon::selectstudent_link('parmform','uname','udom');
     my $selscript=&Apache::loncommon::studentbrowser_javascript();
@@ -463,9 +463,6 @@ sub startpage {
 		    'oi'    => "or ID",
 		    'ad'    => "at Domain"
 				       );
-    my $overallhelp=
-	&Apache::loncommon::help_open_menu('','Setting Parameters','Course_Setting_Parameters','',10,'Instructor Interface');
-    my $assessparmhelp=&Apache::loncommon::help_open_topic("Cascading_Parameters","Assessment Parameters");
     my $html=&Apache::lonxml::xmlbegin();
     $r->print(<<ENDHEAD);
 $html
@@ -516,7 +513,6 @@ $selscript
 </head>
 $bodytag
 $breadcrumbs
-$overallhelp
 ENDHEAD
     my %sectionhash=();
     my $sections='';
@@ -639,11 +635,6 @@ sub print_row {
     if ($parmlev eq 'full') {
         my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.
                                         '.'.$$name{$which},$$symbp{$rid});
-
-# this doesn't seem to work, and I don't think is correct
-#    my $sessionvaltype=&Apache::lonnet::EXT('resource.'.$$part{$which}.
-#                                      '.'.$$name{$which}.'.type',$symbp{$rid});
-# this seems to work
         my $sessionvaltype=$typeoutpar[$result];
         if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }
         $r->print('<td bgcolor=#999999 align="center"><font color=#FFFFFF>'.
@@ -943,10 +934,15 @@ sub assessparms {
 
 # ---------------------------------------------------------- Anything to store?
     if ($env{'form.pres_marker'}) {
-	$message.=&storeparm(split(/\&/,$env{'form.pres_marker'}),
-			     $env{'form.pres_value'},
-			     $env{'form.pres_type'},
-                             $uname,$udom,$csec);
+        my @markers=split(/\&\&\&/,$env{'form.pres_marker'});
+        my @values=split(/\&\&\&/,$env{'form.pres_value'});
+        my @types=split(/\&\&\&/,$env{'form.pres_type'});
+	for (my $i=0;$i<=$#markers;$i++) {
+	    $message.=&storeparm(split(/\&/,$markers[$i]),
+				 $values[$i],
+				 $types[$i],
+				 $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>';
     }
@@ -970,10 +966,6 @@ sub assessparms {
 
     &startpage($r,$id,$udom,$csec,$uname,scalar(keys(%allkeys)));
 
-#    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">');
 
     foreach ('tolerance','date_default','date_start','date_end',
@@ -1885,6 +1877,7 @@ ENDOVER
 	    $r->print('<h2><font color="red">'.
 		      &mt('Error deleting parameters').'</font></h2>');
 	}
+	&Apache::lonnet::devalidatecourseresdata($crs,$dom);
     }
     if ($putentries) {
 	if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {
@@ -1893,6 +1886,7 @@ ENDOVER
 	    $r->print('<h2><font color="red">'.
 		      &mt('Error storing parameters').'</font></h2>');
 	}
+	&Apache::lonnet::devalidatecourseresdata($crs,$dom);
     }
 # Read and display
     my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs);
@@ -2088,8 +2082,7 @@ ENDMAINFORMHEAD
     my @menu =
         (
           { text => 'Set Course Environment Parameters',
-            help => 'Course_Setting_Parameters',
-            action => 'crsenv',
+	    action => 'crsenv',
             permission => $parm_permission,
             },
           { text => 'Set/Modify Course Assessment Parameters - Helper Mode',
@@ -2103,6 +2096,7 @@ ENDMAINFORMHEAD
           { text => 'Set/Modify Course Assessment Parameters - Table Mode',
             action => 'settable',
             permission => $parm_permission,
+            help => 'Cascading_Parameters',
             },
 #          { text => 'Set Parameter Default Preferences',
 #            help => 'Course_View_Class_List',
@@ -2157,13 +2151,16 @@ sub handler {
 	return OK;
     }
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
-					    ['action','state']);
+					    ['action','state',
+                                             'pres_marker',
+                                             'pres_value',
+                                             'pres_type']);
 
 
     &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/parmset",
 					    text=>"Parameter Manager",
-					    faq=>9,
+					    faq=>10,
 					    bug=>'Instructor Interface'});
 
 # ----------------------------------------------------- Needs to be in a course
@@ -2208,7 +2205,8 @@ sub handler {
 	    &overview($r);
         } elsif ($env{'form.action'} eq 'settable' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
-						    text=>"Table Mode"});
+						    text=>"Table Mode",
+						    help => 'Course_Setting_Parameters'});
 	    &assessparms($r);
         }