summaryrefslogtreecommitdiff
path: root/fs_selfservice/FS-SelfService
diff options
context:
space:
mode:
authorlevinse <levinse>2010-12-17 19:32:06 +0000
committerlevinse <levinse>2010-12-17 19:32:06 +0000
commit7dc0206e7ff40bfd3e95018a7d724a63ce0af8ab (patch)
treee916a6d0af968394c91cdeb4c2b399d5b044c438 /fs_selfservice/FS-SelfService
parent0a9c2506f72162e9fc99679a35a6540b27a22848 (diff)
self-service improvements, RT10883
Diffstat (limited to 'fs_selfservice/FS-SelfService')
-rw-r--r--fs_selfservice/FS-SelfService/cgi/myaccount.html5
-rw-r--r--fs_selfservice/FS-SelfService/cgi/provision.html8
-rw-r--r--fs_selfservice/FS-SelfService/cgi/provision_list.html7
-rw-r--r--fs_selfservice/FS-SelfService/cgi/ws_list.html31
4 files changed, 42 insertions, 9 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/myaccount.html b/fs_selfservice/FS-SelfService/cgi/myaccount.html
index eaf4164bf..a57bfb14a 100644
--- a/fs_selfservice/FS-SelfService/cgi/myaccount.html
+++ b/fs_selfservice/FS-SelfService/cgi/myaccount.html
@@ -85,9 +85,9 @@ Hello <%= $name %>!<BR><BR>
<%=
if ( @tickets ) {
$OUT .= '<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#eeeeee">'.
- '<TR><TH BGCOLOR="#ff6666" COLSPAN=5>Open Tickets</TH></TR>'.
+ '<TR><TH BGCOLOR="#ff6666" COLSPAN=6>Open Tickets</TH></TR>'.
'<TR><TH>#</TH><TH>Subject</TH><TH>Priority</TH><TH>Queue</TH>'.
- '<TH>Status</TH></TR>';
+ '<TH>Status</TH><TH>Created</TH></TR>';
my $col1 = "ffffff";
my $col2 = "dddddd";
my $col = $col1;
@@ -101,6 +101,7 @@ Hello <%= $name %>!<BR><BR>
$td. ($ticket->{'content'} || $ticket->{'priority'}). "</TD>".
$td. $ticket->{'queue'}. "</TD>".
$td. $ticket->{'status'}. "</TD>".
+ $td. $ticket->{'created'}. "</TD>".
'</TR>';
$col = $col eq $col1 ? $col2 : $col1;
}
diff --git a/fs_selfservice/FS-SelfService/cgi/provision.html b/fs_selfservice/FS-SelfService/cgi/provision.html
index 10d17f537..cd8028a0d 100644
--- a/fs_selfservice/FS-SelfService/cgi/provision.html
+++ b/fs_selfservice/FS-SelfService/cgi/provision.html
@@ -4,6 +4,14 @@
$provision_list = "provision_list";
$provision_list = "ws_list" if $wholesale_view;
''; %>
+
+<SCRIPT>
+function areyousure(href, message) {
+ if (confirm(message) == true)
+ window.location.href = href;
+}
+</SCRIPT>
+
<%= include('header', $heading1) %>
<%= include($provision_list) %>
diff --git a/fs_selfservice/FS-SelfService/cgi/provision_list.html b/fs_selfservice/FS-SelfService/cgi/provision_list.html
index 818cd9f35..a1a519490 100644
--- a/fs_selfservice/FS-SelfService/cgi/provision_list.html
+++ b/fs_selfservice/FS-SelfService/cgi/provision_list.html
@@ -1,12 +1,5 @@
<FONT SIZE=4>Setup services</FONT><BR><BR>
-<SCRIPT>
-function areyousure(href, message) {
- if (confirm(message) == true)
- window.location.href = href;
-}
-</SCRIPT>
-
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#ffffff">
<%=
diff --git a/fs_selfservice/FS-SelfService/cgi/ws_list.html b/fs_selfservice/FS-SelfService/cgi/ws_list.html
index 7b62db452..93425e107 100644
--- a/fs_selfservice/FS-SelfService/cgi/ws_list.html
+++ b/fs_selfservice/FS-SelfService/cgi/ws_list.html
@@ -67,6 +67,37 @@ else {
$OUT .= "</TD></TR>";
}
$OUT .= "</TABLE>";
+
+ if ( @login_svcpart ) {
+ $OUT .= "<BR><BR><BR><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] . " &nbsp; ";
+ 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
}
%>