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

[albertel]

albertel		Thu Jul  7 00:33:00 2005 EDT

  Modified files:              
    /loncom/interface	lonhelper.pm 
  Log:
  - BUG$4194, okay map level setting is good
  
  
Index: loncom/interface/lonhelper.pm
diff -u loncom/interface/lonhelper.pm:1.107 loncom/interface/lonhelper.pm:1.108
--- loncom/interface/lonhelper.pm:1.107	Thu Jul  7 00:19:20 2005
+++ loncom/interface/lonhelper.pm	Thu Jul  7 00:32:59 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.107 2005/07/07 04:19:20 albertel Exp $
+# $Id: lonhelper.pm,v 1.108 2005/07/07 04:32:59 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3336,6 +3336,9 @@
     if ($vars->{GRANULARITY} eq 'resource') {
 	$result .= "<input type='hidden' name='symb' value='".
 	    HTML::Entities::encode($symb,"'<>&\"") . "' />\n";
+    } elsif ($vars->{GRANULARITY} eq 'map') {
+	$result .= "<input type='hidden' name='pschp' value='".
+	    $affectedResourceId."' />\n";
     }
     my $part = $vars->{RESOURCE_ID_part};
     if ($part eq 'All Parts' || !$part) { $part=0; }
@@ -3422,7 +3425,6 @@
     
     # Make the table appear
     $result .= "\n<input type='hidden' value='true' name='prevvisit' />";
-    $result .= "\n<input type='hidden' value='all' name='pschp' />";
     $result .= "\n<input type='hidden' value='$symb' name='pssymb' />";
     $result .= "\n<input type='hidden' value='$paramlevel' name='parmlev' />";