--- loncom/interface/lonhtmlcommon.pm 2011/07/28 03:14:04 1.291 +++ loncom/interface/lonhtmlcommon.pm 2011/10/23 00:27:10 1.294 @@ -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.294 2011/10/23 00:27:10 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1244,9 +1244,9 @@ sub htmlareaheaders { ENDEDITOR } $s.=(< - - + + + ENDJQUERY return $s; } @@ -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 }