Changeset 23085 for main/trunk
- Timestamp:
- 2010-10-11T23:13:37+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/talkback.pm
r23084 r23085 27 27 28 28 use strict; 29 29 30 30 31 sub generate_upload_form … … 134 135 } 135 136 137 sub 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 157 EOF 158 ; 159 160 return $done_html; 161 } 162 163 136 164 1;
Note:
See TracChangeset
for help on using the changeset viewer.