--- loncom/interface/lonhtmlcommon.pm 2011/07/28 03:14:04 1.291
+++ loncom/interface/lonhtmlcommon.pm 2011/12/08 21:37:46 1.295
@@ -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.295 2011/12/08 21:37:46 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -748,13 +748,12 @@ parameter setting wizard.
sub pjump_javascript_definition {
my $Str = <
-
-
+
+
+
ENDJQUERY
return $s;
}
@@ -2344,7 +2343,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 +2360,8 @@ sub file_submissionchk_js {
}
}
$multtext .= " return '';\n";
+
+ $arrayindexofjs = &Apache::loncommon::javascript_array_indexof();
return <<"ENDSCRIPT";
+$arrayindexofjs
+
ENDSCRIPT
}