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

www lon-capa-cvs-allow@mail.lon-capa.org
Mon, 28 Jan 2008 21:42:30 -0000


www		Mon Jan 28 16:42:30 2008 EDT

  Modified files:              
    /loncom/homework	inputtags.pm structuretags.pm 
  Log:
  Bug #5601: Better info that this is a practice problem
  
  
Index: loncom/homework/inputtags.pm
diff -u loncom/homework/inputtags.pm:1.236 loncom/homework/inputtags.pm:1.237
--- loncom/homework/inputtags.pm:1.236	Mon Jan 14 09:32:14 2008
+++ loncom/homework/inputtags.pm	Mon Jan 28 16:42:28 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.236 2008/01/14 14:32:14 raeburn Exp $
+# $Id: inputtags.pm,v 1.237 2008/01/28 21:42:28 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -672,7 +672,8 @@
 		if (($symb ne '') 
 		    &&
 		    ($env{'course.'.$env{'request.course.id'}.
-			      '.disable_receipt_display'} ne 'yes')) { 
+			      '.disable_receipt_display'} ne 'yes') &&
+                    ($Apache::lonhomework::type ne 'practice')) { 
 		    $message.=(($target eq 'web')?'<br />':' ').
 			&mt('Your receipt is [_1]',
 			    (&Apache::lonnet::receipt($Apache::inputtags::part).
@@ -844,6 +845,10 @@
 	$message.= $computer;
 	$added_computer_text=1;
     }
+    if ($Apache::lonhomework::type eq 'practice') {
+       $message.='<br />'.&mt('Submissions to practice problems are not permanently recorded.');
+    }
+
     return ($button,$css_class,$message,$previousmsg);
 }
 
Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.416 loncom/homework/structuretags.pm:1.417
--- loncom/homework/structuretags.pm:1.416	Mon Jan 14 22:09:09 2008
+++ loncom/homework/structuretags.pm	Mon Jan 28 16:42:28 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.416 2008/01/15 03:09:09 raeburn Exp $
+# $Id: structuretags.pm,v 1.417 2008/01/28 21:42:28 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -862,6 +862,10 @@
 		$form_tag_start.= ' />'.&mt('&nbsp;Show&nbsp;All&nbsp;Foils').
 		    '</label>';
 	    }
+            if ($Apache::lonhomework::type eq 'practice') {
+               $form_tag_start.='<span class="LC_info"><h3>'.&mt('Practice Problem').'</h3></span>'.
+                                '<span class="LC_info">'.&mt('Submissions are not permanently recorded').'</span>';
+            }
 	    $form_tag_start.='<hr />';
 	}