--- 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";
+$arrayindexofjs
+
ENDSCRIPT
}