--- loncom/homework/inputtags.pm	2005/06/28 21:41:08	1.170
+++ loncom/homework/inputtags.pm	2005/08/02 18:15:27	1.174
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.170 2005/06/28 21:41:08 albertel Exp $
+# $Id: inputtags.pm,v 1.174 2005/08/02 18:15:27 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -46,6 +46,10 @@ sub initialize_inputtags {
     @Apache::inputtags::response=();
     # list of all response ids seen in this problem
     @Apache::inputtags::responselist=();
+    # list of all current hint ids
+    @Apache::inputtags::hint=();
+    # list of all hint ids seen in this problem
+    @Apache::inputtags::hintlist=();
     # list of whether or not a specific response was previously used
     @Apache::inputtags::previous=();
     # submission it was used in
@@ -75,6 +79,7 @@ sub check_for_duplicate_ids {
     my %check;
     foreach my $id (@Apache::inputtags::partlist,
 		    @Apache::inputtags::responselist,
+		    @Apache::inputtags::hintlist,
 		    @Apache::inputtags::importlist) {
 	$check{$id}++;
     }
@@ -426,8 +431,10 @@ sub decideoutput {
 	    $message=&mt('Incorrect.');
 	    $bgcolor=$possiblecolors{'charged_try'};
 	}
-	if ($award eq 'ASSIGNED_SCORE') {
+	if ($env{'request.filename'} =~ 
+	    m|/res/lib/templates/examupload.problem$|) {
 	    $message = &mt("A score has been assigned.");
+	    $added_computer_text=1;
 	} else {
 	    if ($target eq 'tex') {
 		$message = '\textbf{'.$message.'}';