[LON-CAPA-cvs] cvs: loncom /interface lonhelper.pm

[albertel]

albertel		Thu Jul  7 00:12:04 2005 EDT

  Modified files:              
    /loncom/interface	lonhelper.pm 
  Log:
  - BUG$4194, helper works now for 
     - full course, all resources, maxtries
       (off to thest the rest) 
  
  
Index: loncom/interface/lonhelper.pm
diff -u loncom/interface/lonhelper.pm:1.104 loncom/interface/lonhelper.pm:1.105
--- loncom/interface/lonhelper.pm:1.104	Wed Jul  6 23:56:52 2005
+++ loncom/interface/lonhelper.pm	Thu Jul  7 00:12:01 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.104 2005/07/07 03:56:52 albertel Exp $
+# $Id: lonhelper.pm,v 1.105 2005/07/07 04:12:01 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3323,11 +3323,15 @@
         $paramlevel = 'full';
     }
 
-    my $result = "<form name='helpform' method='get' action='/adm/parmset#$affectedResourceId&$parm_name&$level'>\n";
+    my $result = "<form name='helpform' method='POST' action='/adm/parmset#$affectedResourceId&$parm_name&$level'>\n";
     $result .= "<input type='hidden' name='action' value='settable' />\n";
     $result .= "<input type='hidden' name='dis' value='helper' />\n";
-    $result .= "<input type='hidden' name='pscat' value='".
-	HTML::Entities::encode($vars->{ACTION_TYPE},"'<>&\"") . "' />\n";
+    if ($vars->{ACTION_TYPE} eq 'tries') {
+	$result .= "<input type='hidden' name='pscat' value='maxtries' />\n";
+    } else {
+	$result .= "<input type='hidden' name='pscat' value='".
+	    HTML::Entities::encode($vars->{ACTION_TYPE},"'<>&\"") . "' />\n";
+    }
     if ($vars->{GRANULARITY} eq 'resource') {
 	$result .= "<input type='hidden' name='symb' value='".
 	    HTML::Entities::encode($symb,"'<>&\"") . "' />\n";