[LON-CAPA-cvs] cvs: loncom /homework structuretags.pm

[albertel]

albertel		Thu Apr  3 16:08:33 2003 EDT

  Modified files:              
    /loncom/homework	structuretags.pm 
  Log:
  - only put up the problem variation button when _not_ a real hw problem
  
  
Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.162 loncom/homework/structuretags.pm:1.163
--- loncom/homework/structuretags.pm:1.162	Thu Apr  3 15:05:21 2003
+++ loncom/homework/structuretags.pm	Thu Apr  3 16:08:33 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.162 2003/04/03 20:05:21 albertel Exp $
+# $Id: structuretags.pm,v 1.163 2003/04/03 21:08:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -319,7 +319,7 @@
 	#handle rand seed in construction space
 	my $rndseed=&setup_rndseed($safeeval);
 	my ($symb)=&Apache::lonxml::whichuser();
-	if ($ENV{'request.state'} ne "construct" || $symb eq '') {
+	if ($ENV{'request.state'} ne "construct" && $symb eq '') {
 	    $form_tag_start.='<input type="hidden" name="rndseed" value="'.
 		$rndseed.'" />'.
 		    '<input type="submit" name="resetdata"