diff options
author | ivan <ivan> | 2003-05-20 05:43:47 +0000 |
---|---|---|
committer | ivan <ivan> | 2003-05-20 05:43:47 +0000 |
commit | e354694764fb1442b6bc74a63189f094c51f1a89 (patch) | |
tree | 129a7e85829c554f9a6db556c6401c60f0676e26 /fs_selfservice | |
parent | e2a51e422dbd070a4571f229f8e5c6929950d137 (diff) |
working self-service self-payments!
Diffstat (limited to 'fs_selfservice')
-rw-r--r-- | fs_selfservice/FS-SelfService/cgi/make_payment.html | 2 | ||||
-rw-r--r-- | fs_selfservice/FS-SelfService/cgi/payment_results.html (renamed from fs_selfservice/FS-SelfService/cgi/process_payment.html) | 2 | ||||
-rw-r--r-- | fs_selfservice/FS-SelfService/cgi/selfservice.cgi | 4 |
3 files changed, 4 insertions, 4 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/make_payment.html b/fs_selfservice/FS-SelfService/cgi/make_payment.html index 1d860f08a..a1cda6d49 100644 --- a/fs_selfservice/FS-SelfService/cgi/make_payment.html +++ b/fs_selfservice/FS-SelfService/cgi/make_payment.html @@ -8,7 +8,7 @@ <FONT SIZE=4>Make a payment</FONT><BR><BR> <FORM NAME="OneTrueForm" METHOD="POST" ACTION="<%=$selfurl%>" onSubmit="document.OneTrueForm.process.disabled=true"> <INPUT TYPE="hidden" NAME="session" VALUE="<%=$session_id%>"> -<INPUT TYPE="hidden" NAME="action" VALUE="do_payment"> +<INPUT TYPE="hidden" NAME="action" VALUE="payment_results"> <TABLE BGCOLOR="#cccccc"> <TR> <TD ALIGN="right">Amount Due</TD> diff --git a/fs_selfservice/FS-SelfService/cgi/process_payment.html b/fs_selfservice/FS-SelfService/cgi/payment_results.html index e4946dc8f..92c8cf51b 100644 --- a/fs_selfservice/FS-SelfService/cgi/process_payment.html +++ b/fs_selfservice/FS-SelfService/cgi/payment_results.html @@ -7,7 +7,7 @@ </TD><TD VALIGN="top"> <FONT SIZE=4>Payment results</FONT><BR><BR> <%= if ( $error ) { - $OUT .= qq!<FONT SIZE="+1" COLOR="#ff0000">Error processing your payment: $error</FONT!; + $OUT .= qq!<FONT SIZE="+1" COLOR="#ff0000">Error processing your payment: $error</FONT>!; } else { $OUT .= 'Your payment was processed sucessfully. Thank you.'; } %> diff --git a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi index 456d2dde2..6d6716ddc 100644 --- a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi +++ b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi @@ -55,7 +55,7 @@ if ( $cgi->param('session') eq 'login' ) { $session_id = $cgi->param('session'); $cgi->param('action') =~ - /^(myaccount|view_invoice|make_payment|do_payment)$/ + /^(myaccount|view_invoice|make_payment|payment_results)$/ or die "unknown action ". $cgi->param('action'); my $action = $1; @@ -95,7 +95,7 @@ sub make_payment { payment_info( 'session_id' => $session_id ); } -sub do_payment { +sub payment_results { use Business::CreditCard; |