| … | |
… | |
| 164 | unless (@recipients) { |
164 | unless (@recipients) { |
| 165 | $self->feedbackForm($user, $returnURL, |
165 | $self->feedbackForm($user, $returnURL, |
| 166 | "No recipients specified."); |
166 | "No recipients specified."); |
| 167 | return ""; |
167 | return ""; |
| 168 | } |
168 | } |
|
|
169 | unless ($feedback) { |
|
|
170 | $self->feedbackForm($user, $returnURL, |
|
|
171 | "Message was blank."); |
|
|
172 | return ""; |
|
|
173 | } |
| 169 | |
174 | |
| 170 | # get some network settings |
175 | # get some network settings |
| 171 | my $hostname = $r->hostname(); |
176 | my $hostname = $r->hostname(); |
| 172 | my $port = $r->get_server_port(); |
177 | my $port = $r->get_server_port(); |
| 173 | my $remoteIdent = $r->get_remote_logname() || "UNKNOWN"; |
178 | my $remoteIdent = $r->get_remote_logname() || "UNKNOWN"; |
| … | |
… | |
| 274 | print CGI::p("Your message was sent successfully."); |
279 | print CGI::p("Your message was sent successfully."); |
| 275 | print CGI::p(CGI::a({-href => $returnURL}, "Return to your work")); |
280 | print CGI::p(CGI::a({-href => $returnURL}, "Return to your work")); |
| 276 | print CGI::p( wrap("", "", $feedback) ); |
281 | print CGI::p( wrap("", "", $feedback) ); |
| 277 | } else { |
282 | } else { |
| 278 | # just print the feedback form, with no message |
283 | # just print the feedback form, with no message |
| 279 | $self->feedbackForm($returnURL, $user, "",); |
284 | $self->feedbackForm( $user, $returnURL,"",); |
| 280 | } |
285 | } |
| 281 | |
286 | |
| 282 | return ""; |
287 | return ""; |
| 283 | } |
288 | } |
| 284 | |
289 | |
| 285 | sub feedbackForm($;$$$) { |
290 | sub feedbackForm($;$$$) { |
| 286 | my ($self, $returnURL, $user, $message, ) = @_; |
291 | my ($self, $user,$returnURL, $message, ) = @_; |
| 287 | my $r = $self->{r}; |
292 | my $r = $self->{r}; |
| 288 | |
293 | |
| 289 | print CGI::start_form(-method=>"POST", -action=>$r->uri); |
294 | print CGI::start_form(-method=>"POST", -action=>$r->uri); |
| 290 | print $self->hidden_authen_fields; |
295 | print $self->hidden_authen_fields; |
| 291 | print $self->hidden_state_fields($r); |
296 | print $self->hidden_state_fields($r); |
Parent Directory
| 
Revision Log
| 
Patch