Ignore:
Timestamp:
2010-10-11T23:13:37+13:00 (14 years ago)
Author:
davidb
Message:

Minor tweak to talkback.pm

File:
1 edited

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;
Note: See TracChangeset for help on using the changeset viewer.