--- loncom/homework/inputtags.pm 2010/10/31 12:33:02 1.272 +++ loncom/homework/inputtags.pm 2010/11/03 17:06:28 1.273 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # input definitons # -# $Id: inputtags.pm,v 1.272 2010/10/31 12:33:02 www Exp $ +# $Id: inputtags.pm,v 1.273 2010/11/03 17:06:28 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -576,6 +576,7 @@ sub current_file_submissions { } foreach my $name (sort(keys(%okfiles))) { if (ref($okfiles{$name}) eq 'ARRAY') { + my $num = 0; foreach my $url (@{$okfiles{$name}}) { if (ref($rows{$url}) eq 'HASH') { my $link = $rows{$url}{link}; @@ -592,7 +593,8 @@ sub current_file_submissions { if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') { $result .= '