Changeset 23138 for main/trunk/greenstone2/perllib/talkback.pm
- Timestamp:
- 2010-10-14T23:58:30+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/talkback.pm
r23085 r23138 31 31 sub generate_upload_form 32 32 { 33 my ($ rand_string) = @_;33 my ($uniq_file) = @_; 34 34 35 35 my $upload_html_form = <<EOF … … 44 44 <input type="hidden" name="yes_upload" value="1" /> 45 45 <input type="hidden" name="process" value="1" /> 46 <input type="hidden" name="rand_string" id="rand_string" value="$rand_string" />47 46 48 47 <p> … … 53 52 54 53 <script language="Javascript"> 55 setInterval("check_status(['check_upload__1', ' rand_string', 'uploadedfile'], ['statusbar']);", '1000');54 setInterval("check_status(['check_upload__1', '', 'uploadedfile'], ['statusbar']);", '1000'); 56 55 </script> 57 56 … … 71 70 sub generate_upload_form_progressbar 72 71 { 73 my ($ rand_string) = @_;72 my ($uniq_file) = @_; 74 73 75 74 my $upload_html_form = <<EOF … … 84 83 action="talkback-progressbar.pl" 85 84 enctype="multipart/form-data" method="post"> 86 <input type="hidden" name="uploadedfile" value="test-medium.pdf" /> 87 <input type="hidden" name="rand_string" id="rand_string" value="$rand_string" /> 85 <input type="hidden" name="uploadedfile" value="$uniq_file" /> 88 86 </form> 89 87 90 88 91 89 <script type="text/javascript"> 92 setInterval("check_status(['check_upload__1', ' rand_string', 'uploadedfile'], ['statusbar']);", '1000');90 setInterval("check_status(['check_upload__1', '$uniq_file', 'uploadedfile'], ['statusbar']);", '1000'); 93 91 94 92 </script> … … 150 148 <hr /> 151 149 <p> 152 Malformed CGI arguments. Need either CGI 'processing' or 'rand_string' set.150 Malformed CGI arguments. 153 151 </p> 154 152 </body>
Note:
See TracChangeset
for help on using the changeset viewer.