[LON-CAPA-cvs] cvs: modules /gci londocsgci.pm

[gci]

gci		Wed Dec  2 18:35:59 2009 EDT

  Modified files:              
    /modules/gci	londocsgci.pm 
  Log:
  - Suppress unwanted button/text from lonindexer::showpreview()
     when called by londocsgci.pm in GCI Test assembly.
  
  
Index: modules/gci/londocsgci.pm
diff -u modules/gci/londocsgci.pm:1.3 modules/gci/londocsgci.pm:1.4
--- modules/gci/londocsgci.pm:1.3	Fri Nov 27 23:48:25 2009
+++ modules/gci/londocsgci.pm	Wed Dec  2 18:35:59 2009
@@ -2,7 +2,7 @@
 # Custom Edit Course Routines for Assembly of Valid Concept Tests from
 # Geoscience Concept Inventory. 
 #
-# $Id: londocsgci.pm,v 1.3 2009/11/27 23:48:25 gci Exp $
+# $Id: londocsgci.pm,v 1.4 2009/12/02 18:35:59 gci Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -164,6 +164,7 @@
    foreach my $item (@chosen) {
       $chosen{$item}=1;
    }
+   &Apache::lonnet::appenv({'request.gcicontext' => 'buildtest'});
    $r->print('<form name="selecteditems" method="post" action="/adm/coursedocs">');
    $r->print('<p>'.&mt('You may select test items from the list below and then press "Store Problem Selection" at the bottom of the screen.').'</p>');
    $r->print('<p>'.&mt('Tests should have at least one item from each bin and [_1] items total.',$reqnum).'</p>'); 
@@ -190,6 +191,7 @@
    $r->print(&Apache::loncommon::end_data_table());
    $r->print('<input type="hidden" name="phase" value="storemap" />');
    $r->print('<input type="submit" value="'.&mt('Store Problem Selection').'" /></form>');
+   &Apache::lonnet::delenv('request.gcicontext');
 }
 
 sub evaluate {