[LON-CAPA-cvs] cvs: loncom /publisher loncfile.pm

[raeburn]

raeburn		Sat Nov 27 23:20:46 2010 EDT

  Modified files:              
    /loncom/publisher	loncfile.pm 
  Log:
  - Inhibit menu in directory selector page in pop-up for testbank and IMS import
    to Construction Space.
  
  
Index: loncom/publisher/loncfile.pm
diff -u loncom/publisher/loncfile.pm:1.103 loncom/publisher/loncfile.pm:1.104
--- loncom/publisher/loncfile.pm:1.103	Wed Dec  2 09:53:02 2009
+++ loncom/publisher/loncfile.pm	Sat Nov 27 23:20:46 2010
@@ -9,7 +9,7 @@
 #  and displays a page showing the results of the action.
 #
 #
-# $Id: loncfile.pm,v 1.103 2009/12/02 09:53:02 bisitz Exp $
+# $Id: loncfile.pm,v 1.104 2010/11/27 23:20:46 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -756,10 +756,9 @@
     if ($type eq 'error') {
 	$request->print('</form>');
     } else {
-	if ($mode eq 'testbank') {
-	    $request->print('<input type="hidden" name="callingmode" value="testbank" />');
-	} elsif ($mode eq 'imsimport') {
-	    $request->print('<input type="hidden" name="callingmode" value="imsimport" />');
+	if (($mode eq 'testbank') || ($mode eq 'imsimport')) {
+	    $request->print('<input type="hidden" name="callingmode" value="'.$mode.'" />'."\n".
+                            '<input type="hidden" name="inhibitmenu" value="yes" />');
 	}
         $request->print('<input type="hidden" name="newfilename" value="'
                        .$newfilename.'" />'