--- loncom/homework/essayresponse.pm	2005/04/19 00:56:39	1.64
+++ loncom/homework/essayresponse.pm	2005/05/03 05:31:51	1.65
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # essay (ungraded) style responses
 #
-# $Id: essayresponse.pm,v 1.64 2005/04/19 00:56:39 matthew Exp $
+# $Id: essayresponse.pm,v 1.65 2005/05/03 05:31:51 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -164,12 +164,14 @@ sub file_submission {
 	$Apache::lonhomework::results{"resource.$part.$id.$which"}=$files;
 	my @submitted_files = split(/,/,$files);
 	my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes");
-	$uploadedfiletypes=~s/[^\w\,]//g;
-	$uploadedfiletypes=','.$uploadedfiletypes.',';
-	foreach my $file (@submitted_files) {
-	    my ($extension)=($file=~/\.(\w+)$/);
-	    unless ($uploadedfiletypes=~/\,$extension\,/i) {
-		$$award='INVALID_FILETYPE';
+	if ($uploadedfiletypes) {
+	    $uploadedfiletypes=~s/[^\w\,]//g;
+	    $uploadedfiletypes=','.$uploadedfiletypes.',';
+	    foreach my $file (@submitted_files) {
+		my ($extension)=($file=~/\.(\w+)$/);
+		unless ($uploadedfiletypes=~/\,$extension\,/i) {
+		    $$award='INVALID_FILETYPE';
+		}
 	    }
 	}
 	if ($$award ne 'INVALID_FILETYPE' && ref($uploadedflag)) {