Changeset 23085

Show
Ignore:
Timestamp:
11.10.2010 23:13:37 (9 years ago)
Author:
davidb
Message:

Minor tweak to talkback.pm

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/talkback.pm

    r23084 r23085  
    2727 
    2828use strict; 
     29 
    2930 
    3031sub generate_upload_form 
     
    134135} 
    135136 
     137sub generate_malformed_args_html 
     138{ 
     139    my ($full_filename) = @_; 
     140 
     141    my $done_html = <<EOF 
     142 
     143<html> 
     144  <head> 
     145  </head> 
     146  <body> 
     147    <h3> 
     148      Oops! 
     149    </h3> 
     150    <hr />  
     151    <p>  
     152     Malformed CGI arguments.  Need either CGI 'processing' or 'rand_string' set. 
     153    </p> 
     154  </body> 
     155</html> 
     156 
     157EOF 
     158    ;  
     159 
     160    return $done_html; 
     161} 
     162 
     163 
    1361641;