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

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 11 Jul 2005 19:45:11 -0000


albertel		Mon Jul 11 15:45:11 2005 EDT

  Modified files:              
    /loncom/homework	inputtags.pm 
  Log:
  - I think this looks even more betterer (BUG#4139)
  
  
Index: loncom/homework/inputtags.pm
diff -u loncom/homework/inputtags.pm:1.171 loncom/homework/inputtags.pm:1.172
--- loncom/homework/inputtags.pm:1.171	Mon Jul 11 15:41:53 2005
+++ loncom/homework/inputtags.pm	Mon Jul 11 15:45:07 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.171 2005/07/11 19:41:53 albertel Exp $
+# $Id: inputtags.pm,v 1.172 2005/07/11 19:45:07 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -426,19 +426,18 @@
 	    $message=&mt('Incorrect.');
 	    $bgcolor=$possiblecolors{'charged_try'};
 	}
-	
-	if ($target eq 'tex') {
-	    $message = '\textbf{'.$message.'}';
-	} else {
-	    $message = "<b>".$message."</b>";
-	}
-	$added_computer_text=1;
-	
-	if ($env{'request.filename'} !~ 
+	if ($env{'request.filename'} =~ 
 	    m|/res/lib/templates/examupload.problem$|) {
-	    if ($target ne 'tex') {
+	    $message = &mt("A score has been assigned.");
+	    $added_computer_text=1;
+	} else {
+	    if ($target eq 'tex') {
+		$message = '\textbf{'.$message.'}';
+	    } else {
+		$message = "<b>".$message."</b>";
 		$message.=" ".&mt("Computer's answer now shown above.");
 	    }
+	    $added_computer_text=1;
 	    unless ($env{'course.'.
 			     $env{'request.course.id'}.
 			     '.disable_receipt_display'} eq 'yes') {