X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fws_list.html;h=dcc62ec86fe3e6d3c5c8c3037463ae23b856d13f;hb=6c621a877528c9eebab92579a243ca739175320d;hp=93425e10722f1d0e749be02e92caf81dbe3e1145;hpb=7dc0206e7ff40bfd3e95018a7d724a63ce0af8ab;p=freeside.git diff --git a/fs_selfservice/FS-SelfService/cgi/ws_list.html b/fs_selfservice/FS-SelfService/cgi/ws_list.html index 93425e107..dcc62ec86 100644 --- a/fs_selfservice/FS-SelfService/cgi/ws_list.html +++ b/fs_selfservice/FS-SelfService/cgi/ws_list.html @@ -19,19 +19,21 @@ sub ws_pkgstatus { sub pdate { my($field,$date_format) = (shift,shift); return "
Package | Status | !; + $OUT .= qq!
---|
Package | Status | !; $OUT .= "Setup | Last Bill | Next Bill | Adjourn | "; $OUT .= "Suspend | Expire | Contract End | "; - $OUT .= "Cancel | Cancel | Services | "; foreach my $pkg ( @cust_pkg ) { my $part_pkg = $pkg->{part_pkg}[0]; $status = ws_pkgstatus($pkg); - if($pkg->{pkgpart} == $pkgpart && ($filter eq $status || !$filter) ) { + if($pkg->{pkgpart} == $pkgpart && + ( ($filter && $filter eq $status) || !$filter) ) { $OUT .= "
---|---|---|---|---|---|---|---|---|---|
$part_pkg->{pkg} | $status | "; $OUT .= pdate($pkg->{setup},$date_format); $OUT .= pdate($pkg->{last_bill},$date_format); @@ -41,7 +43,30 @@ if ( $pkgpart ) { $OUT .= pdate($pkg->{expire},$date_format); $OUT .= pdate($pkg->{contract_end},$date_format); $OUT .= pdate($pkg->{cancel},$date_format); - $OUT .= "";
+ my @cust_svc = @{$pkg->{cust_svc}};
+ foreach my $cust_svc ( @cust_svc ) {
+ my @label = @{$cust_svc->{'label'}};
+ $OUT .= qq!$label[0]: $label[1] !; + } + my @part_svc = @{$pkg->{part_svc}}; + foreach my $part_svc ( @part_svc ) { + my $link = qq!Setup ! + . qq!$part_svc->{'svc'} ($part_svc->{'num_avail'}! + . qq! available) !; + $OUT .= $link if $part_svc->{'can_get_dids'}; + + if($part_svc->{'svcdb'} eq 'svc_phone' && $lnp) { + $OUT .= qq!Port-In $part_svc->{'svc'}!; + } + } + + $OUT .= " | ";
}
}
$OUT .= "
Package | Status |
---|
";
+
+ $OUT .= qq!
| !;
+
if ( @login_svcpart ) {
- $OUT .= " Self-service accounts "; + $OUT .= "Self-service accounts "; foreach my $pkg ( @cust_pkg ) { @cust_svc = @{$pkg->{cust_svc}}; @part_svc = @{$pkg->{part_svc}}; @@ -98,6 +127,25 @@ else { } # foreach cust_pkg } # login_svcpart -} + my $hasPhone = 0; + foreach my $pkg ( @cust_pkg ) { + @cust_svc = @{$pkg->{cust_svc}}; + foreach my $cust_svc ( @cust_svc ) { + @label = @{$cust_svc->{'label'}}; + $hasPhone = 1 if $label[2] eq 'svc_phone'; + } + } + if ( $hasPhone ) { + $link = "${url}didreport;type="; + $OUT .= " Download currently allocated DIDs: "; + $OUT .= qq! CSV | + Excel!; + $OUT .= " Download recently allocated DIDs: "; + $OUT .= qq! CSV | + Excel!; + } + + $OUT .= " |