--- loncom/homework/inputtags.pm	2008/09/11 14:47:17	1.247
+++ loncom/homework/inputtags.pm	2008/11/16 02:46:25	1.248
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.247 2008/09/11 14:47:17 bisitz Exp $
+# $Id: inputtags.pm,v 1.248 2008/11/16 02:46:25 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -525,7 +525,8 @@ sub valid_award {
 			       'UNIT_NOTNEEDED', 'WANTED_NUMERIC',
 			       'BAD_FORMULA', 'SIG_FAIL', 'INCORRECT', 
 			       'MISORDERED_RANK', 'INVALID_FILETYPE',
-			       'DRAFT', 'SUBMITTED', 'ASSIGNED_SCORE',
+                               'EXCESS_FILESIZE', 'DRAFT',
+			       'SUBMITTED', 'ASSIGNED_SCORE',
 			       'APPROX_ANS', 'EXACT_ANS','COMMA_FAIL') {
 	if ($award eq $possibleaward) { return 1; }
     }
@@ -539,8 +540,8 @@ sub valid_award {
 		  'UNIT_IRRECONCIBLE', 'UNIT_FAIL', 'NO_UNIT',
 		  'UNIT_NOTNEEDED', 'WANTED_NUMERIC', 'BAD_FORMULA',
 		  'COMMA_FAIL', 'SIG_FAIL', 'INCORRECT', 'MISORDERED_RANK',
-		  'INVALID_FILETYPE', 'DRAFT', 'SUBMITTED', 'ASSIGNED_SCORE',
-		  'APPROX_ANS', 'EXACT_ANS');
+		  'INVALID_FILETYPE', 'EXCESS_FILESIZE', 'DRAFT', 'SUBMITTED',
+                  'ASSIGNED_SCORE', 'APPROX_ANS', 'EXACT_ANS');
     my $i=0;
     my %fwd_awards = map { ($_,$i++) } @awards;
     my $max=scalar(@awards);
@@ -761,6 +762,11 @@ sub decideoutput {
         }
 	$css_class=$possible_class{'not_charged_try'};
 	$button=1;
+    } elsif ($award eq 'EXCESS_FILESIZE') {
+        $message = &mt('Submission won\'t be graded. The combined size of submitted files exceeded the amount allowed.');
+        $css_class=$possible_class{'not_charged_try'};
+        $button=1;
+
     } elsif ($award eq 'INVALID_FILETYPE') {
 	$message = &mt('Submission won\'t be graded. The type of file submitted is not allowed.');
 	$css_class=$possible_class{'not_charged_try'};