view/set svc_phone forwardst and email from self-service, RT13622

3 files changed, 25 insertions, 5 deletions

diff --git a/fs_selfservice/FS-SelfService/cgi/provision_list.html b/fs_selfservice/FS-SelfService/cgi/provision_list.html
index a1a519490..22054e644 100644
--- a/fs_selfservice/FS-SelfService/cgi/provision_list.html
+++ b/fs_selfservice/FS-SelfService/cgi/provision_list.html
@@ -39,6 +39,14 @@ foreach my $pkg (
               "$td><B>". $cust_svc->{label}[1]. '</B>';
     $OUT .= '<BR><I>password: '. encode_entities($cust_svc->{_password}). '</I>'
       if exists($cust_svc->{_password});
+    if ( exists($cust_svc->{svchash}) ) {
+        $OUT .= '<BR><I>Email: '. encode_entities($cust_svc->{svchash}->{email}). '</I>'
+          if exists($cust_svc->{svchash}->{email}) 
+              && length($cust_svc->{svchash}->{email});
+        $OUT .= '<BR><I>Forward to: '. encode_entities($cust_svc->{svchash}->{forwarddst}). '</I>'
+          if exists($cust_svc->{svchash}->{forwarddst}) 
+              && length($cust_svc->{svchash}->{forwarddst});
+    }
     $OUT .= '</TD>'.
               "$td><FONT SIZE=-1>";
               
@@ -50,7 +58,8 @@ foreach my $pkg (
     unless ( $cust_svc->{'svcnum'} == $svcnum ) {
       $OUT .= qq!(<A HREF="javascript:areyousure('${url}delete_svc;svcnum=$cust_svc->{svcnum}', 'This will permanently delete the $cust_svc->{label}[1] $cust_svc->{label}[0].  Are you sure?')">!.
               'delete</A>)';
-
+      $OUT .=  qq!<BR>(<A HREF="${url}provision_svc;pkgnum=$pkg->{pkgnum};svcpart=$cust_svc->{'svcpart'};svcnum=$cust_svc->{'svcnum'}">modify</A>)!
+            if ( exists($cust_svc->{svchash}) && $cust_svc->{label}[2] eq 'svc_phone' );
     }
     $OUT .= '</FONT></TD></TR>';
     $col = $col eq $col1 ? $col2 : $col1;
diff --git a/fs_selfservice/FS-SelfService/cgi/provision_svc_phone.html b/fs_selfservice/FS-SelfService/cgi/provision_svc_phone.html
index ab9827e93..9a07e7da1 100644
--- a/fs_selfservice/FS-SelfService/cgi/provision_svc_phone.html
+++ b/fs_selfservice/FS-SelfService/cgi/provision_svc_phone.html
@@ -25,16 +25,27 @@ if($error) {
 if($lnp) {
     $OUT .= "<table>"
 	    . qq!<input type="hidden" name="lnp" value="1">!
-	    . lnp_textfield(phonenum,"Phone Number")
+	    . lnp_textfield("phonenum","Phone Number")
 	    . lnp_textfield("lnp_desired_due_date","Requested Port-In Date")
 	    . lnp_textfield("lnp_other_provider","Current Provider")
 	    . lnp_textfield("lnp_other_provider_account","Current Provider's Account #")
 	    . "</table>";
 } else {
+    if ( $svcnum ) {
+       $OUT .= qq!<INPUT TYPE="hidden" NAME="svcnum" VALUE="$svcnum">!;
+       $OUT .= qq!<INPUT TYPE="hidden" NAME="phonenum" VALUE="">!;
+       $OUT .= qq!<TABLE><TR><TD>Email</TD><TD><INPUT TYPE="text" NAME="email"
+                    VALUE="$email"></TD></TR>
+                    <TR><TD>Forward to</TD><TD>
+                        <INPUT TYPE="text" NAME="forwarddst" VALUE="$forwarddst">
+                        </TD></TR></TABLE>!;
+    }
+    else {
     didselector('field' => 'phonenum', 
 		'svcpart' => $svcpart,
 		'bulknum' => $numavail,
 		);
+    }
 }
 %>
 <BR><BR><INPUT TYPE="submit" VALUE="Setup">
diff --git a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
index 58f2d0f1b..8f1c4a568 100644
--- a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
+++ b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
@@ -722,7 +722,7 @@ sub provision_svc {
 
   my $result = part_svc_info(
     'session_id' => $session_id,
-    map { $_ => $cgi->param($_) } qw( pkgnum svcpart ),
+    map { $_ => $cgi->param($_) } qw( pkgnum svcpart svcnum ),
   );
   die $result->{'error'} if exists $result->{'error'} && $result->{'error'};
 
@@ -756,7 +756,7 @@ sub process_svc_phone {
 	    'session_id' => $session_id,
 	    'bulkdid' => [ @bulkdid ],
 	    'countrycode' => '1',
-	     map { $_ => $cgi->param($_) } qw( pkgnum svcpart phonenum )
+	     map { $_ => $cgi->param($_) } qw( pkgnum svcpart phonenum svcnum email forwarddst )
 	);
     }
 
@@ -765,7 +765,7 @@ sub process_svc_phone {
 	return {
 	  $cgi->Vars,
 	  %{ part_svc_info( 'session_id' => $session_id,
-                        map { $_ => $cgi->param($_) } qw( pkgnum svcpart )
+                        map { $_ => $cgi->param($_) } qw( pkgnum svcpart svcnum )
 	      )
 	  },
 	  'error' => $result->{'error'},