Changeset 23138 for main/trunk/greenstone2/perllib/talkback.pm

Timestamp:

2010-10-14T23:58:30+13:00 (14 years ago)

Author:

davidb

Message:

Elimination of rand_string

File:

• main/trunk/greenstone2/perllib/talkback.pm (modified) (6 diffs)

main/trunk/greenstone2/perllib/talkback.pm

@@ -31 +31 @@
 sub generate_upload_form
 {
-    my ($rand_string) = @_;
+    my ($uniq_file) = @_;
 
     my $upload_html_form = <<EOF
@@ -44 +44 @@
       <input type="hidden" name="yes_upload" value="1" />
       <input type="hidden" name="process" value="1" />
-      <input type="hidden" name="rand_string" id="rand_string" value="$rand_string" />
 
       <p>
@@ -53 +52 @@
 
       <script language="Javascript"> 
-        setInterval("check_status(['check_upload__1', 'rand_string', 'uploadedfile'], ['statusbar']);", '1000');
+        setInterval("check_status(['check_upload__1', '', 'uploadedfile'], ['statusbar']);", '1000');
       </script> 
 
@@ -71 +70 @@
 sub generate_upload_form_progressbar
 {
-    my ($rand_string) = @_;
+    my ($uniq_file) = @_;
 
     my $upload_html_form = <<EOF
@@ -84 +83 @@
           action="talkback-progressbar.pl"
           enctype="multipart/form-data" method="post">
-      <input type="hidden" name="uploadedfile" value="test-medium.pdf" />
-      <input type="hidden" name="rand_string" id="rand_string" value="$rand_string" />
+      <input type="hidden" name="uploadedfile" value="$uniq_file" />
     </form>
 
 
     <script type="text/javascript"> 
-      setInterval("check_status(['check_upload__1', 'rand_string', 'uploadedfile'], ['statusbar']);", '1000');
+      setInterval("check_status(['check_upload__1', '$uniq_file', 'uploadedfile'], ['statusbar']);", '1000');
 
     </script> 
@@ -150 +148 @@
     <hr /> 
     <p> 
-     Malformed CGI arguments.  Need either CGI 'processing' or 'rand_string' set.
+     Malformed CGI arguments.
     </p>
   </body>