MyAccount

From dbb388836b7951a3db49deda05a1ff9ba5125c17 Mon Sep 17 00:00:00 2001 From: jeff Date: Thu, 30 Nov 2006 02:27:57 +0000 Subject: prepaid download/upload tracking --- fs_selfservice/FS-SelfService/cgi/view_usage.html | 49 +++++++++++++++++++++++ 1 file changed, 49 insertions(+) create mode 100644 fs_selfservice/FS-SelfService/cgi/view_usage.html (limited to 'fs_selfservice/FS-SelfService/cgi/view_usage.html') diff --git a/fs_selfservice/FS-SelfService/cgi/view_usage.html b/fs_selfservice/FS-SelfService/cgi/view_usage.html new file mode 100644 index 000000000..40aec7bcf --- /dev/null +++ b/fs_selfservice/FS-SelfService/cgi/view_usage.html @@ -0,0 +1,49 @@ +MyAccount +MyAccount

+<%= $url = "$selfurl?session=$session_id;action="; ''; %> +<%= include('myaccount_menu') %> + + +Service usage

+ +

+ + + + + + + + + + +<%= foreach my $svc ( @svcs ) { + my $totalbytes = ''; + if ( ($svc->{'upbytes'} + 0) eq $svc->{'upbytes'} + || ($svc->{'downbytes'} + 0) eq $svc->{'downbytes'} ) { + + $totalbytes = $svc->{'upbytes'} + $svc->{'downbytes'}; + } + + $OUT .= ''; + } %> + +

Account	Time remaining	Upload remaining	Download remaining	Total remaining
'; + $OUT .= $svc->{'label'}. ': '. $svc->{'value'}; + $OUT .= '	'; + $OUT .= $svc->{'seconds'}; + $OUT .= '	'; + $OUT .= $svc->{'upbytes'}; + $OUT .= '	'; + $OUT .= $svc->{'downbytes'}; + $OUT .= '	'; + $OUT .= $totalbytes; + $OUT .= '

+
+ +

+ + +

+powered by freeside + -- cgit v1.2.1 From 6194551336a925ae5455cede68a7f73660b06bb6 Mon Sep 17 00:00:00 2001 From: jeff Date: Thu, 7 Dec 2006 02:40:32 +0000 Subject: retouch bandwidth countdown --- fs_selfservice/FS-SelfService/cgi/view_usage.html | 32 ++++++++++++++--------- 1 file changed, 20 insertions(+), 12 deletions(-) (limited to 'fs_selfservice/FS-SelfService/cgi/view_usage.html') diff --git a/fs_selfservice/FS-SelfService/cgi/view_usage.html b/fs_selfservice/FS-SelfService/cgi/view_usage.html index 40aec7bcf..73ad1e4af 100644 --- a/fs_selfservice/FS-SelfService/cgi/view_usage.html +++ b/fs_selfservice/FS-SelfService/cgi/view_usage.html @@ -6,8 +6,9 @@ Service usage

-

- +<%= if ( $error ) { + $OUT .= qq!$error

!; +} ''; %> @@ -18,13 +19,6 @@ <%= foreach my $svc ( @svcs ) { - my $totalbytes = ''; - if ( ($svc->{'upbytes'} + 0) eq $svc->{'upbytes'} - || ($svc->{'downbytes'} + 0) eq $svc->{'downbytes'} ) { - - $totalbytes = $svc->{'upbytes'} + $svc->{'downbytes'}; - } - $OUT .= ''; + if ( $svc->{'recharge_amount'} ) { + my $link = "${url}process_order_recharge;". + "svcnum=$svc->{'svcnum'}"; + $OUT .= ''; + } } %>

Total remaining
'; $OUT .= $svc->{'label'}. ': '. $svc->{'value'}; $OUT .= '	'; @@ -34,15 +28,29 @@ $OUT .= '	'; $OUT .= $svc->{'downbytes'}; $OUT .= '	'; - $OUT .= $totalbytes; + $OUT .= $svc->{'totalbytes'}; $OUT .= '
'; + $OUT .= qq!!.'Recharge for $'; + $OUT .= $svc->{'recharge_amount'} . ' with'; + $OUT .= '	'; + $OUT .= $svc->{'recharge_seconds'} if $svc->{'recharge_seconds'}; + $OUT .= '	'; + $OUT .= $svc->{'recharge_upbytes'} if $svc->{'recharge_upbytes'}; + $OUT .= '	'; + $OUT .= $svc->{'recharge_downbytes'} if $svc->{'recharge_downbytes'}; + $OUT .= '	'; + $OUT .= $svc->{'recharge_totalbytes'} if $svc->{'recharge_totalbytes'}; + $OUT .= '

powered by freeside -- cgit v1.2.1 From 66bf9d2b3998894588d73a10a459aa1453283ef1 Mon Sep 17 00:00:00 2001 From: jeff Date: Fri, 5 Jan 2007 05:19:35 +0000 Subject: more self-servicey stuff (change package, detailed usage) --- fs_selfservice/FS-SelfService/cgi/view_usage.html | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'fs_selfservice/FS-SelfService/cgi/view_usage.html') diff --git a/fs_selfservice/FS-SelfService/cgi/view_usage.html b/fs_selfservice/FS-SelfService/cgi/view_usage.html index 73ad1e4af..79d07d4df 100644 --- a/fs_selfservice/FS-SelfService/cgi/view_usage.html +++ b/fs_selfservice/FS-SelfService/cgi/view_usage.html @@ -19,8 +19,10 @@ Total remaining <%= foreach my $svc ( @svcs ) { + my $link = "${url}view_usage_details;". + "svcnum=$svc->{'svcnum'};beginning=0;ending=0"; $OUT .= ''; - $OUT .= $svc->{'label'}. ': '. $svc->{'value'}; + $OUT .= qq!!. $svc->{'label'}. ': '. $svc->{'value'}.''; $OUT .= ''; $OUT .= $svc->{'seconds'}; $OUT .= ''; -- cgit v1.2.1