summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjeff <jeff>2007-01-30 18:52:35 +0000
committerjeff <jeff>2007-01-30 18:52:35 +0000
commit5b30406d72c3f723582af30708352f2e671dc07d (patch)
treeb867966005fa2bbe5cbdc185116fbb5e38f88e34
parente75e410d0cdc5ca62af1888c3cb75163ca22d2ad (diff)
additional info available for self-service success (ticket 1420)
-rw-r--r--FS/FS/ClientAPI/Signup.pm23
-rwxr-xr-xfs_selfservice/FS-SelfService/cgi/signup.cgi8
-rw-r--r--fs_selfservice/FS-SelfService/cgi/success-delayed.html16
3 files changed, 41 insertions, 6 deletions
diff --git a/FS/FS/ClientAPI/Signup.pm b/FS/FS/ClientAPI/Signup.pm
index 963a73a36..bd8e1a4be 100644
--- a/FS/FS/ClientAPI/Signup.pm
+++ b/FS/FS/ClientAPI/Signup.pm
@@ -53,7 +53,11 @@ sub signup_info {
my $href = $_->pkgpart_hashref;
$_->agentnum =>
[
- map { { 'payby' => [ $_->payby ], %{$_->hashref} } }
+ map { { 'payby' => [ $_->payby ],
+ 'freq_pretty' => $_->freq_pretty,
+ 'options' => { $_->options },
+ %{$_->hashref}
+ } }
grep { $_->svcpart('svc_acct') && $href->{ $_->pkgpart } }
qsearch( 'part_pkg', { 'disabled' => '' } )
];
@@ -96,12 +100,17 @@ sub signup_info {
if ( grep { $conf->exists($_) } @addl ) {
$signup_info->{optional_packages} = [];
+ $signup_info->{optional_packages_options} = [];
foreach my $addl ( @addl ) {
my $classnum = $conf->config($addl) or next;
my @pkgs = map { $_->hashref }
qsearch( 'part_pkg', { classnum => $classnum } );
push @{$signup_info->{optional_packages}}, \@pkgs;
+ my @options = map { { $_->options,
+ 'freq_pretty' => $_->freq_pretty
+ } } @pkgs;
+ push @{$signup_info->{options_packages_options}}, \@options
}
}
@@ -139,7 +148,11 @@ sub signup_info {
if ( $packet->{'reg_code'} ) {
$signup_info->{'part_pkg'} =
- [ map { { 'payby' => [ $_->payby ], %{$_->hashref} } }
+ [ map { { 'payby' => [ $_->payby ],
+ 'freq_pretty' => $_->freq_pretty,
+ 'options' => { $_->options },
+ %{$_->hashref}
+ } }
grep { $_->svcpart('svc_acct') }
map { $_->part_pkg }
qsearchs( 'reg_code', { 'code' => $packet->{'reg_code'},
@@ -153,7 +166,11 @@ sub signup_info {
} elsif ( $packet->{'promo_code'} ) {
$signup_info->{'part_pkg'} =
- [ map { { 'payby' => [ $_->payby ], %{$_->hashref} } }
+ [ map { { 'payby' => [ $_->payby ],
+ 'freq_pretty' => $_->freq_pretty,
+ 'options' => { $_->options },
+ %{$_->hashref}
+ } }
grep { $_->svcpart('svc_acct') }
qsearch( 'part_pkg', { 'promo_code' => {
op=>'ILIKE',
diff --git a/fs_selfservice/FS-SelfService/cgi/signup.cgi b/fs_selfservice/FS-SelfService/cgi/signup.cgi
index ad98869ec..1514db52a 100755
--- a/fs_selfservice/FS-SelfService/cgi/signup.cgi
+++ b/fs_selfservice/FS-SelfService/cgi/signup.cgi
@@ -280,9 +280,10 @@ sub print_okay {
}
#global for template
- my $pkg = ( grep { $_->{'pkgpart'} eq $param{'pkgpart'} }
- @{ $init_data->{'part_pkg'} }
- )[0]->{'pkg'};
+ my $part_pkg = ( grep { $_->{'pkgpart'} eq $param{'pkgpart'} }
+ @{ $init_data->{'part_pkg'} }
+ )[0];
+ my $pkg = $part_pkg->{'pkg'};
if ( $ieak_template && $user_agent->windows && $user_agent->ie ) {
#send an IEAK config
@@ -299,6 +300,7 @@ sub print_okay {
exch => $exch,
loc => $loc,
pkg => $pkg,
+ part_pkg => \$part_pkg,
});
}
}
diff --git a/fs_selfservice/FS-SelfService/cgi/success-delayed.html b/fs_selfservice/FS-SelfService/cgi/success-delayed.html
new file mode 100644
index 000000000..5eeed5957
--- /dev/null
+++ b/fs_selfservice/FS-SelfService/cgi/success-delayed.html
@@ -0,0 +1,16 @@
+<HTML><HEAD><TITLE>Signup successful</TITLE></HEAD>
+<BODY BGCOLOR="#e8e8e8"><FONT SIZE=7>Signup successful</FONT><BR><BR>
+Thanks for signing up!
+<BR><BR>
+Signup information for <%= $email_name %>:
+<BR><BR>
+Username: <%= $username %><BR>
+Password: <%= $password %><BR>
+Access number: (<%= $ac %>) / <%= $exch %> - <%= $local %><BR>
+Package: <%= $pkg %><BR>
+Charge: <%= sprintf('$%.2f', $part_pkg->{'options'}->{'setup_fee'}) %><BR>
+In <%= $part_pkg->{'options'}->{'free_days'} %> days you will be charged
+ <%= sprintf('$%.2f', $part_pkg->{'options'}->{'recur_fee'}) %>
+and <%= $part_pkg->{'freq_pretty'} %> thereafter.<BR>
+
+</BODY></HTML>