X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fselfservice.cgi;h=4c666cb14283202bc893151934e8b93a39ebac2c;hp=0e60791ba60088556ef65015f3b1e04b8b408248;hb=b2f5f42600f11ab24e5393353ed4c0de48816862;hpb=602566b7790de0d29c0828487a6c424e56606db5 diff --git a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi index 0e60791ba..4c666cb14 100755 --- a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi +++ b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi @@ -23,6 +23,7 @@ use FS::SelfService qw( mason_comp port_graph start_thirdparty finish_thirdparty reset_passwd check_reset_passwd process_reset_passwd + billing_history ); $template_dir = '.'; @@ -83,6 +84,7 @@ my @actions = ( qw( customer_suspend_pkg process_suspend_pkg switch_cust + history )); my @nologin_actions = (qw( @@ -353,6 +355,10 @@ sub invoices { list_invoices( 'session_id' => $session_id, ); } +sub history { + billing_history( 'session_id' => $session_id, ); +} + sub tktcreate { my $customer_info = customer_info( 'session_id' => $session_id ); return $customer_info if ( $customer_info->{'error'} );