diff options
| author | ivan <ivan> | 2003-05-18 06:20:21 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-05-18 06:20:21 +0000 |
| commit | d1d57ae4fa0f2a30b36a70c656aa2672744f75a3 (patch) | |
| tree | 7c3eff6ac0983e67ab838b5d50b169e4a38bb94e /fs_selfservice/FS-SelfService/cgi/selfservice.cgi | |
| parent | ac15b7153b154f5bb951f0ce62731f8216ff9fc4 (diff) | |
self-service: make payment UI done
Diffstat (limited to 'fs_selfservice/FS-SelfService/cgi/selfservice.cgi')
| -rw-r--r-- | fs_selfservice/FS-SelfService/cgi/selfservice.cgi | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi index 9b8bdc100..7b392bcf4 100644 --- a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi +++ b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi @@ -6,7 +6,7 @@ use subs qw(do_template); use CGI; use CGI::Carp qw(fatalsToBrowser); use Text::Template; -use FS::SelfService qw(login customer_info invoice); +use FS::SelfService qw(login customer_info invoice payment_info); $template_dir = '.'; @@ -68,6 +68,7 @@ if ( $result->{error} eq "Can't resume session" ) { #ick #warn $result->{'open_invoices'}; #warn scalar(@{$result->{'open_invoices'}}); +warn "processing template $action\n"; do_template($action, { 'session_id' => $session_id, %{$result} @@ -89,7 +90,7 @@ sub view_invoice { } sub make_payment { - + payment_info( 'session_id' => $session_id ); } #-- |
