use HTML::Entities;
use Date::Format;
use Number::Format 1.50;
-use FS::SelfService qw( login_info login customer_info edit_info invoice
- payment_info process_payment realtime_collect
- process_prepay
- list_pkgs order_pkg signup_info order_recharge
- part_svc_info provision_acct provision_external
- unprovision_svc change_pkg domainselector
- list_svcs
- list_svc_usage list_cdr_usage list_support_usage
- myaccount_passwd
- );
+use FS::SelfService qw(
+ access_info login_info login customer_info edit_info invoice
+ payment_info process_payment realtime_collect process_prepay
+ list_pkgs order_pkg signup_info order_recharge
+ part_svc_info provision_acct provision_external
+ unprovision_svc change_pkg domainselector
+ list_svcs list_svc_usage list_cdr_usage list_support_usage
+ myaccount_passwd
+);
$template_dir = '.';
do_template($action, {
'session_id' => $session_id,
'action' => $action, #so the menu knows what tab we're on...
- %{ payment_info( 'session_id' => $session_id ) }, # cust_paybys for the menu
+ #%{ payment_info( 'session_id' => $session_id ) }, # cust_paybys for the menu
%{$result}
});
$cgi->param('city') =~ /^(.{0,80})$/ or die "illegal city";
my $city = $1;
- $cgi->param('state') =~ /^(.{2})$/ or die "illegal state";
+ $cgi->param('state') =~ /^(.{0,80})$/ or die "illegal state";
my $state = $1;
$cgi->param('zip') =~ /^(.{0,10})$/ or die "illegal zip";
my $zip = $1;
+ $cgi->param('country') =~ /^(.{0,2})$/ or die "illegal country";
+ my $country = $1;
+
my $save = 0;
$save = 1 if $cgi->param('save');
'city' => $city,
'state' => $state,
'zip' => $zip,
+ 'country' => $country,
'save' => $save,
'auto' => $auto,
'paybatch' => $paybatch,
$fill_in->{'selfurl'} = $cgi->self_url;
$fill_in->{'cgi'} = \$cgi;
+ my $access_info = $session_id
+ ? access_info( 'session_id' => $session_id )
+ : {};
+ $fill_in->{$_} = $access_info->{$_} foreach keys %$access_info;
+
my $source = "$template_dir/$name.html";
#warn "creating template for $source\n";
my $template = new Text::Template( TYPE => 'FILE',