@@ -, +, @@ --- members/pay.pl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) --- a/members/pay.pl +++ a/members/pay.pl @@ -168,7 +168,10 @@ sub add_accounts_to_template { sub get_for_redirect { my ( $name, $name_in, $money ) = @_; my $s = q{&} . $name . q{=}; - my $value = uri_escape_utf8( $input->param($name_in) ); + my $value; + if (defined $input->param($name_in)) { + $value = uri_escape_utf8( scalar $input->param($name_in) ); + } if ( !defined $value ) { $value = ( $money == 1 ) ? 0 : q{}; } @@ -196,7 +199,7 @@ sub redirect_to_paycollect { $redirect .= get_for_redirect( 'notify_id', "notify_id$line_no", 0 ); $redirect .= get_for_redirect( 'notify_level', "notify_level$line_no", 0 ); $redirect .= get_for_redirect( 'accountlines_id', "accountlines_id$line_no", 0 ); - $redirect .= q{&} . 'payment_note' . q{=} . uri_escape_utf8( $input->param("payment_note_$line_no") ); + $redirect .= q{&} . 'payment_note' . q{=} . uri_escape_utf8( scalar $input->param("payment_note_$line_no") ); $redirect .= '&remote_user='; $redirect .= $user; return print $input->redirect($redirect); --