--- loncom/interface/londocs.pm	2009/08/13 12:29:04	1.383
+++ loncom/interface/londocs.pm	2009/08/28 19:43:16	1.384
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.383 2009/08/13 12:29:04 tempelho Exp $
+# $Id: londocs.pm,v 1.384 2009/08/28 19:43:16 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1719,7 +1719,7 @@ sub process_file_upload {
             return 'failed';
         } else {
             if ($parseaction eq 'parse') {
-                my $total_embedded = keys(%{$allfiles});
+                my $total_embedded = scalar(keys(%{$allfiles}));
                 if ($total_embedded > 0) {
                     my $num = 0;
 		    my $state = '