--- loncom/homework/inputtags.pm	2005/11/03 17:44:15	1.178
+++ loncom/homework/inputtags.pm	2005/11/10 22:19:27	1.179
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.178 2005/11/03 17:44:15 albertel Exp $
+# $Id: inputtags.pm,v 1.179 2005/11/10 22:19:27 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -386,6 +386,22 @@ sub checkstatus {
     return(undef,undef);
 }
 
+sub valid_award {
+    my ($award) =@_;
+    foreach my $possibleaward ('MISSING_ANSWER', 'ERROR', 'NO_RESPONSE',
+			       'TOO_LONG', 'UNIT_INVALID_INSTRUCTOR',
+			       'UNIT_INVALID_STUDENT', 'UNIT_IRRECONCIBLE',
+			       'UNIT_FAIL', 'NO_UNIT',
+			       'UNIT_NOTNEEDED', 'WANTED_NUMERIC',
+			       'BAD_FORMULA', 'SIG_FAIL', 'INCORRECT', 
+			       'MISORDERED_RANK', 'INVALID_FILETYPE',
+			       'DRAFT', 'SUBMITTED', 'ASSIGNED_SCORE',
+			       'APPROX_ANS', 'EXACT_ANS','COMMA_FAIL') {
+	if ($award eq $possibleaward) { return 1; }
+    }
+    return 0;
+}
+
 sub finalizeawards {
     my ($awardref,$msgref)=@_;
     my $result=undef;