|
Lines 86-92
if ( $backends_available ) {
Link Here
|
| 86 |
whole => $backend_result, |
86 |
whole => $backend_result, |
| 87 |
request => $request |
87 |
request => $request |
| 88 |
); |
88 |
); |
| 89 |
handle_commit_maybe($backend_result, $request); |
89 |
redirect_user($backend_result, $request); |
| 90 |
|
90 |
|
| 91 |
} elsif ( $op eq 'migrate' ) { |
91 |
} elsif ( $op eq 'migrate' ) { |
| 92 |
# We're in the process of migrating a request |
92 |
# We're in the process of migrating a request |
|
Lines 118-124
if ( $backends_available ) {
Link Here
|
| 118 |
request => $request |
118 |
request => $request |
| 119 |
); |
119 |
); |
| 120 |
} |
120 |
} |
| 121 |
handle_commit_maybe( $backend_result, $request ); |
121 |
redirect_user( $backend_result, $request ); |
| 122 |
|
122 |
|
| 123 |
} elsif ( $op eq 'confirm' ) { |
123 |
} elsif ( $op eq 'confirm' ) { |
| 124 |
# Backend 'confirm' method |
124 |
# Backend 'confirm' method |
|
Lines 131-137
if ( $backends_available ) {
Link Here
|
| 131 |
); |
131 |
); |
| 132 |
|
132 |
|
| 133 |
# handle special commit rules & update type |
133 |
# handle special commit rules & update type |
| 134 |
handle_commit_maybe($backend_result, $request); |
134 |
redirect_user($backend_result, $request); |
| 135 |
|
135 |
|
| 136 |
} elsif ( $op eq 'cancel' ) { |
136 |
} elsif ( $op eq 'cancel' ) { |
| 137 |
# Backend 'cancel' method |
137 |
# Backend 'cancel' method |
|
Lines 144-150
if ( $backends_available ) {
Link Here
|
| 144 |
); |
144 |
); |
| 145 |
|
145 |
|
| 146 |
# handle special commit rules & update type |
146 |
# handle special commit rules & update type |
| 147 |
handle_commit_maybe($backend_result, $request); |
147 |
redirect_user($backend_result, $request); |
| 148 |
|
148 |
|
| 149 |
} elsif ( $op eq 'edit_action' ) { |
149 |
} elsif ( $op eq 'edit_action' ) { |
| 150 |
# Handle edits to the Illrequest object. |
150 |
# Handle edits to the Illrequest object. |
|
Lines 189-195
if ( $backends_available ) {
Link Here
|
| 189 |
next => 'illlist', |
189 |
next => 'illlist', |
| 190 |
value => {} |
190 |
value => {} |
| 191 |
}; |
191 |
}; |
| 192 |
handle_commit_maybe($backend_result, $request); |
192 |
redirect_user($backend_result, $request); |
| 193 |
} |
193 |
} |
| 194 |
|
194 |
|
| 195 |
} elsif ( $op eq 'moderate_action' ) { |
195 |
} elsif ( $op eq 'moderate_action' ) { |
|
Lines 230-236
if ( $backends_available ) {
Link Here
|
| 230 |
); |
230 |
); |
| 231 |
|
231 |
|
| 232 |
# handle special commit rules & update type |
232 |
# handle special commit rules & update type |
| 233 |
handle_commit_maybe($backend_result, $request); |
233 |
redirect_user($backend_result, $request); |
| 234 |
|
234 |
|
| 235 |
} elsif ( $op eq 'generic_confirm' ) { |
235 |
} elsif ( $op eq 'generic_confirm' ) { |
| 236 |
my $backend_result; |
236 |
my $backend_result; |
|
Lines 266-272
if ( $backends_available ) {
Link Here
|
| 266 |
}; |
266 |
}; |
| 267 |
|
267 |
|
| 268 |
# handle special commit rules & update type |
268 |
# handle special commit rules & update type |
| 269 |
handle_commit_maybe($backend_result, $request); |
269 |
redirect_user($backend_result, $request); |
| 270 |
} elsif ( $op eq 'illlist') { |
270 |
} elsif ( $op eq 'illlist') { |
| 271 |
|
271 |
|
| 272 |
# If we receive a pre-filter, make it available to the template |
272 |
# If we receive a pre-filter, make it available to the template |
|
Lines 315-321
if ( $backends_available ) {
Link Here
|
| 315 |
); |
315 |
); |
| 316 |
|
316 |
|
| 317 |
# handle special commit rules & update type |
317 |
# handle special commit rules & update type |
| 318 |
handle_commit_maybe($backend_result, $request); |
318 |
redirect_user($backend_result, $request); |
| 319 |
} |
319 |
} |
| 320 |
} |
320 |
} |
| 321 |
|
321 |
|
|
Lines 328-334
$template->param(
Link Here
|
| 328 |
|
328 |
|
| 329 |
output_html_with_http_headers( $cgi, $cookie, $template->output ); |
329 |
output_html_with_http_headers( $cgi, $cookie, $template->output ); |
| 330 |
|
330 |
|
| 331 |
sub handle_commit_maybe { |
331 |
sub redirect_user { |
| 332 |
my ( $backend_result, $request ) = @_; |
332 |
my ( $backend_result, $request ) = @_; |
| 333 |
|
333 |
|
| 334 |
# We need to special case 'commit' |
334 |
# We need to special case 'commit' |
| 335 |
- |
|
|