|
Lines 168-174
sub add_accounts_to_template {
Link Here
|
| 168 |
sub get_for_redirect { |
168 |
sub get_for_redirect { |
| 169 |
my ( $name, $name_in, $money ) = @_; |
169 |
my ( $name, $name_in, $money ) = @_; |
| 170 |
my $s = q{&} . $name . q{=}; |
170 |
my $s = q{&} . $name . q{=}; |
| 171 |
my $value = uri_escape_utf8( $input->param($name_in) ); |
171 |
my $value; |
|
|
172 |
if (defined $input->param($name_in)) { |
| 173 |
$value = uri_escape_utf8( scalar $input->param($name_in) ); |
| 174 |
} |
| 172 |
if ( !defined $value ) { |
175 |
if ( !defined $value ) { |
| 173 |
$value = ( $money == 1 ) ? 0 : q{}; |
176 |
$value = ( $money == 1 ) ? 0 : q{}; |
| 174 |
} |
177 |
} |
|
Lines 196-202
sub redirect_to_paycollect {
Link Here
|
| 196 |
$redirect .= get_for_redirect( 'notify_id', "notify_id$line_no", 0 ); |
199 |
$redirect .= get_for_redirect( 'notify_id', "notify_id$line_no", 0 ); |
| 197 |
$redirect .= get_for_redirect( 'notify_level', "notify_level$line_no", 0 ); |
200 |
$redirect .= get_for_redirect( 'notify_level', "notify_level$line_no", 0 ); |
| 198 |
$redirect .= get_for_redirect( 'accountlines_id', "accountlines_id$line_no", 0 ); |
201 |
$redirect .= get_for_redirect( 'accountlines_id', "accountlines_id$line_no", 0 ); |
| 199 |
$redirect .= q{&} . 'payment_note' . q{=} . uri_escape_utf8( $input->param("payment_note_$line_no") ); |
202 |
$redirect .= q{&} . 'payment_note' . q{=} . uri_escape_utf8( scalar $input->param("payment_note_$line_no") ); |
| 200 |
$redirect .= '&remote_user='; |
203 |
$redirect .= '&remote_user='; |
| 201 |
$redirect .= $user; |
204 |
$redirect .= $user; |
| 202 |
return print $input->redirect($redirect); |
205 |
return print $input->redirect($redirect); |
| 203 |
- |
|
|