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

[raeburn]

raeburn		Sun Dec  6 21:22:50 2009 EDT

  Modified files:              
    /loncom/homework	structuretags.pm 
  Log:
  - Reversing changes in 1.461 (reverted to 1.460).
    - Customization for GCI_3 was supposed to be branched. 
  
  
Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.461 loncom/homework/structuretags.pm:1.462
--- loncom/homework/structuretags.pm:1.461	Sun Dec  6 21:18:24 2009
+++ loncom/homework/structuretags.pm	Sun Dec  6 21:22:50 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.461 2009/12/06 21:18:24 raeburn Exp $
+# $Id: structuretags.pm,v 1.462 2009/12/06 21:22:50 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -254,18 +254,15 @@
     my $page_start = &Apache::loncommon::start_page($name,$extra_head,
 						    \%body_args);
     $page_start .= $pageheader;
-
-    unless ($env{'request.gcicontext'} eq 'buildtest') {
-        if (!defined($found{'body'})
-            && $env{'request.state'} ne 'construct'
-            && ($target eq 'web' || $target eq 'webgrade')) {
-
-            my ($symb,undef,undef,undef,$publicuser)= &Apache::lonnet::whichuser();
-            if ($symb eq '' && !$publicuser) {
-                $page_start .= '<p class="LC_info">'
-                              .&mt('Browsing resource, all submissions are temporary.')
-                              .'</p>';
-            }
+    if (!defined($found{'body'}) 
+	&& $env{'request.state'} ne 'construct'
+	&& ($target eq 'web' || $target eq 'webgrade')) {
+
+	my ($symb,undef,undef,undef,$publicuser)= &Apache::lonnet::whichuser();
+        if ($symb eq '' && !$publicuser) {
+            $page_start .= '<p class="LC_info">'
+                          .&mt('Browsing resource, all submissions are temporary.')
+                          .'</p>';
         }
     }
 
@@ -917,34 +914,28 @@
 	if ($env{'request.state'} ne "construct" && 
 	    ($symb eq '' || $Apache::lonhomework::type eq 'practice')) {
 	    $form_tag_start.='<input type="hidden" name="rndseed" value="'.
-		$rndseed.'" />';
-            unless ($env{'request.gcicontext'} eq 'buildtest') {
-                $form_tag_start .= '<input type="submit" name="resetdata"'.
-                            ' value="'.&mt('New Problem Variation').'" />';
-            }
+		$rndseed.'" />'.
+		    '<input type="submit" name="resetdata"
+                             value="'.&mt('New Problem Variation').'" />';
 	    if (exists($env{'form.username'})) {
 		$form_tag_start.=
 		    '<input type="hidden" name="username"
                              value="'.$env{'form.username'}.'" />';
 	    }
-            unless ($env{'request.gcicontext'} eq 'buildtest') {
-	        if ($env{'request.role.adv'}) {
-		    $form_tag_start.= ' <label class="LC_nobreak">'
-                              .'<input type="checkbox" name="showallfoils"';
-		    if (defined($env{'form.showallfoils'})) {
-		        $form_tag_start.=' checked="checked"';
-		    }
-                    $form_tag_start.= ' /> '
-                                     .&mt('Show All Foils')
-                                     .'</label>';
-	        }
-            }
+	    if ($env{'request.role.adv'}) {
+		$form_tag_start.= ' <label class="LC_nobreak">'
+                         .'<input type="checkbox" name="showallfoils"';
+		if (defined($env{'form.showallfoils'})) {
+		    $form_tag_start.=' checked="checked"';
+		}
+                $form_tag_start.= ' /> '
+                                 .&mt('Show All Foils')
+                                 .'</label>';
+	    }
             if ($Apache::lonhomework::type eq 'practice') {
                 $form_tag_start.=&practice_problem_header();
             }
-            unless ($env{'request.gcicontext'} eq 'buildtest') {
-	        $form_tag_start.='<hr />';
-            }
+	    $form_tag_start.='<hr />';
 	}
 
 	($status,$accessmsg,my $slot_name,my $slot) =