[freeside-commits] freeside/fs_selfservice/FS-SelfService/cgi myaccount.html, 1.20, 1.21 provision.html, 1.7, 1.8 provision_list.html, 1.6, 1.7 ws_list.html, 1.1, 1.2

[Erik Levinson]

Update of /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi
In directory wavetail.420.am:/tmp/cvs-serv11226/fs_selfservice/FS-SelfService/cgi

Modified Files:
	myaccount.html provision.html provision_list.html ws_list.html 
Log Message:
self-service improvements, RT10883

Index: myaccount.html
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi/myaccount.html,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -w -d -r1.20 -r1.21
--- myaccount.html	17 Dec 2010 01:16:00 -0000	1.20
+++ myaccount.html	17 Dec 2010 19:32:06 -0000	1.21
@@ -85,9 +85,9 @@
 <%=
   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 @@
         $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;
     }

Index: provision.html
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi/provision.html,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -w -d -r1.7 -r1.8
--- provision.html	15 Dec 2010 15:09:44 -0000	1.7
+++ provision.html	17 Dec 2010 19:32:06 -0000	1.8
@@ -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) %>

Index: provision_list.html
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi/provision_list.html,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -w -d -r1.6 -r1.7
--- provision_list.html	23 Nov 2010 01:39:01 -0000	1.6
+++ provision_list.html	17 Dec 2010 19:32:06 -0000	1.7
@@ -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">
 
 <%=

Index: ws_list.html
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi/ws_list.html,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -d -r1.1 -r1.2
--- ws_list.html	15 Dec 2010 15:09:44 -0000	1.1
+++ ws_list.html	17 Dec 2010 19:32:06 -0000	1.2
@@ -67,6 +67,37 @@
        $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
 }
 
 %>