--- loncom/interface/lonhtmlcommon.pm	2011/07/28 03:14:04	1.291
+++ loncom/interface/lonhtmlcommon.pm	2011/08/15 12:55:45	1.292
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.291 2011/07/28 03:14:04 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.292 2011/08/15 12:55:45 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2344,7 +2344,7 @@ sub file_submissionchk_js {
                       &mt('Continue submission and overwrite the file(s)?');
     my $delfilewarn = &mt('You have indicated you wish to remove some files previously included in your submission.').'\\n'.
                       &mt('Continue submission with these files removed?');
-    my ($turninpathtext,$multtext);
+    my ($turninpathtext,$multtext,$arrayindexofjs);
     if (ref($turninpaths) eq 'HASH') {
         foreach my $key (sort(keys(%{$turninpaths}))) {
             $turninpathtext .= "    if (prefix == '$key') {\n".
@@ -2361,6 +2361,8 @@ sub file_submissionchk_js {
         }
     }
     $multtext .= "    return '';\n";
+
+    $arrayindexofjs = &Apache::loncommon::javascript_array_indexof()
     return <<"ENDSCRIPT";
 <script type="text/javascript">
 // <![CDATA[
@@ -2573,6 +2575,8 @@ $turninpathtext
 // ]]>
 </script>
 
+$arrayindexofjs
+
 ENDSCRIPT
 }