--- 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 }