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

raeburn raeburn@source.lon-capa.org
Sun, 06 Dec 2009 21:18:25 -0000


raeburn		Sun Dec  6 21:18:25 2009 EDT

  Modified files:              
    /loncom/homework	structuretags.pm 
  Log:
  - Customization for GCI_3. 
  
  
Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.460 loncom/homework/structuretags.pm:1.461
--- loncom/homework/structuretags.pm:1.460	Wed Nov 18 20:47:52 2009
+++ loncom/homework/structuretags.pm	Sun Dec  6 21:18:24 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.460 2009/11/18 20:47:52 droeschl Exp $
+# $Id: structuretags.pm,v 1.461 2009/12/06 21:18:24 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -254,15 +254,18 @@
     my $page_start = &Apache::loncommon::start_page($name,$extra_head,
 						    \%body_args);
     $page_start .= $pageheader;
-    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>';
+
+    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>';
+            }
         }
     }
 
@@ -914,28 +917,34 @@
 	if ($env{'request.state'} ne "construct" && 
 	    ($symb eq '' || $Apache::lonhomework::type eq 'practice')) {
 	    $form_tag_start.='<input type="hidden" name="rndseed" value="'.
-		$rndseed.'" />'.
-		    '<input type="submit" name="resetdata"
-                             value="'.&mt('New Problem Variation').'" />';
+		$rndseed.'" />';
+            unless ($env{'request.gcicontext'} eq 'buildtest') {
+                $form_tag_start .= '<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'}.'" />';
 	    }
-	    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>';
-	    }
+            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 ($Apache::lonhomework::type eq 'practice') {
                 $form_tag_start.=&practice_problem_header();
             }
-	    $form_tag_start.='<hr />';
+            unless ($env{'request.gcicontext'} eq 'buildtest') {
+	        $form_tag_start.='<hr />';
+            }
 	}
 
 	($status,$accessmsg,my $slot_name,my $slot) =