diff options
Diffstat (limited to 'fs_selfservice/FS-SelfService/cgi/ws_list.html')
| -rw-r--r-- | fs_selfservice/FS-SelfService/cgi/ws_list.html | 150 |
1 files changed, 0 insertions, 150 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/ws_list.html b/fs_selfservice/FS-SelfService/cgi/ws_list.html deleted file mode 100644 index 2bdcd74..0000000 --- a/fs_selfservice/FS-SelfService/cgi/ws_list.html +++ /dev/null @@ -1,150 +0,0 @@ -<%= - -sub ws_pkglink { - my($cat,$count,$link) = (shift,shift,shift); - return "0 $cat <BR>" unless $count->{$cat}; - return qq! <A HREF="${link};filter=$cat">$count->{$cat}</A> $cat <BR> !; -} - -sub ws_pkgstatus { - my $pkg = shift; - $status = "unbilled"; - $status = "active" if ( $pkg->{setup} && !$pkg->{cancel} - && !$pkg->{susp} ); - $status = "suspended" if ( $pkg->{susp} && !$pkg->{cancel} ); - $status = "cancelled" if $pkg->{cancel}; - $status; -} - -sub pdate { - my($field,$date_format) = (shift,shift); - return "<TD>".Date::Format::time2str($date_format,$field)."</TD>" - if $field && $field > 0; - '<TD></TD>'; -} - -if ( $pkgpart ) { - $OUT .= qq! <TABLE BORDER="1" style="empty-cells: show"><TR><TH>Package</TH><TH>Status</TH> !; - $OUT .= "<TH>Setup</TH><TH>Last Bill</TH><TH>Next Bill</TH><TH>Adjourn</TH>"; - $OUT .= "<TH>Suspend</TH><TH>Expire</TH><TH>Contract End</TH>"; - $OUT .= "<TH>Cancel</TH><TH>Services</TH></TR>"; - foreach my $pkg ( @cust_pkg ) { - my $part_pkg = $pkg->{part_pkg}[0]; - $status = ws_pkgstatus($pkg); - if($pkg->{pkgpart} == $pkgpart && - ( ($filter && $filter eq $status) || !$filter) ) { - $OUT .= "<TR><TD>$part_pkg->{pkg}</TD><TD>$status</TD>"; - $OUT .= pdate($pkg->{setup},$date_format); - $OUT .= pdate($pkg->{last_bill},$date_format); - $OUT .= pdate($pkg->{bill},$date_format); - $OUT .= pdate($pkg->{adjourn},$date_format); - $OUT .= pdate($pkg->{susp},$date_format); - $OUT .= pdate($pkg->{expire},$date_format); - $OUT .= pdate($pkg->{contract_end},$date_format); - $OUT .= pdate($pkg->{cancel},$date_format); - - $OUT .= "<TD style='font-size: 85%'>"; - my @cust_svc = @{$pkg->{cust_svc}}; - foreach my $cust_svc ( @cust_svc ) { - my @label = @{$cust_svc->{'label'}}; - $OUT .= qq!$label[0]: $label[1] <BR><BR>!; - } - my @part_svc = @{$pkg->{part_svc}}; - foreach my $part_svc ( @part_svc ) { - my $link = qq!<A HREF="${url}provision_svc;! - . qq!pkgnum=$pkg->{'pkgnum'};svcpart=$part_svc->{'svcpart'}! - . qq!;numavail=$part_svc->{'num_avail'}">Setup ! - . qq!$part_svc->{'svc'}</A> ($part_svc->{'num_avail'}! - . qq! available)<BR><BR>!; - $OUT .= $link if $part_svc->{'can_get_dids'}; - - if($part_svc->{'svcdb'} eq 'svc_phone' && $lnp) { - $OUT .= qq!<A HREF="${url}provision_svc;lnp=1;! - . qq!pkgnum=$pkg->{'pkgnum'};svcpart=$part_svc->{'svcpart'}! - . qq!">Port-In $part_svc->{'svc'}</A>!; - } - } - - $OUT .= "</TD></TR>"; - } - } - $OUT .= "</TABLE>"; -} -else { - my %pkgparts; - foreach my $pkg ( @cust_pkg ) { - my $status = ws_pkgstatus($pkg); - $pkgparts{$pkg->{pkgpart}}{$status}++; - my $part_pkg = $pkg->{part_pkg}[0]; - $pkgparts{$pkg->{pkgpart}}{pkg} = $part_pkg->{pkg}; - } - - $OUT .= "<TABLE><TR><TD>"; - - $OUT .= qq! <TABLE BORDER="1"><TR><TH>Package</TH><TH>Status</TH></TR> !; - my($pkgpart,$counts); - while(($pkgpart,$count) = each %pkgparts){ - my $link = "${url}provision;pkgpart=$pkgpart"; - $OUT .= qq! <TR><TD><A HREF="$link">$count->{pkg}</A></TD><TD> !; - $OUT .= ws_pkglink("unbilled",$count,$link); - $OUT .= ws_pkglink("active",$count,$link); - $OUT .= ws_pkglink("suspended",$count,$link); - $OUT .= ws_pkglink("cancelled",$count,$link); - $OUT .= "</TD></TR>"; - } - $OUT .= "</TABLE>"; - - $OUT .= qq!</TD><TD VALIGN="TOP" STYLE="padding-left: 11px;">!; - - if ( @login_svcpart ) { - $OUT .= "<B>Self-service accounts</B><BR>"; - foreach my $pkg ( @cust_pkg ) { - @cust_svc = @{$pkg->{cust_svc}}; - @part_svc = @{$pkg->{part_svc}}; - - foreach my $cust_svc ( @cust_svc ) { - $svcpart = $cust_svc->{'svcpart'}; - next unless grep($_ eq $svcpart, @login_svcpart); - @label = @{$cust_svc->{'label'}}; - $OUT .= $label[1] . " "; - unless ( $cust_svc->{'svcnum'} == $svcnum ) { - $OUT .= qq!<A HREF="javascript:areyousure('${url}delete_svc;svcnum=$cust_svc->{svcnum}', 'This will permanently delete the $label[1] $label[0]. Are you sure?')">!. - 'Delete</A>'; - } - $OUT .= "<BR>"; - } - - foreach my $part_svc ( @part_svc ) { - $svcpart = $part_svc->{'svcpart'}; - next unless grep($_ eq $svcpart, @login_svcpart); - $link = "${url}provision_svc;pkgnum=$pkg->{'pkgnum'};". - "svcpart=$part_svc->{'svcpart'}"; - $OUT .= qq!<A HREF="$link">!. 'Setup '. $part_svc->{'svc'}. - '</A> ('. $part_svc->{'num_avail'}. ' available)' - if $part_svc->{'svcdb'} eq 'svc_acct'; - } - - } # 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 .= "<BR><BR><BR>Download currently allocated DIDs:<BR>"; - $OUT .= qq! <A HREF="${link}csv">CSV</A> | - <A HREF="${link}xls">Excel</A>!; - $OUT .= "<BR><BR>Download recently allocated DIDs:<BR>"; - $OUT .= qq! <A HREF="${link}csv;recentonly=1">CSV</A> | - <A HREF="${link}xls;recentonly=1">Excel</A>!; - } - - $OUT .= "</TD></TR></TABLE>"; -} -%> |