[freeside-commits] freeside/fs_selfservice/FS-SelfService/cgi provision_svc_phone.html, 1.2, 1.3 selfservice.cgi, 1.54, 1.55 ws_list.html, 1.4, 1.5

[Erik Levinson]

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

Modified Files:
	provision_svc_phone.html selfservice.cgi ws_list.html 
Log Message:
added basic LNP capability to svc_phone including SS, RT10948

Index: selfservice.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi/selfservice.cgi,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -w -d -r1.54 -r1.55
--- selfservice.cgi	21 Dec 2010 23:44:54 -0000	1.54
+++ selfservice.cgi	26 Dec 2010 04:09:26 -0000	1.55
@@ -710,6 +710,7 @@
   $action .= "_$1";
 
   $result->{'numavail'} = $cgi->param('numavail');
+  $result->{'lnp'} = $cgi->param('lnp');
 
   $result;
 }
@@ -717,13 +718,25 @@
 sub process_svc_phone {
     my @bulkdid = $cgi->param('bulkdid');
     my $phonenum = $cgi->param('phonenum');
+    my $lnp = $cgi->param('lnp');
 
-    my $result = provision_phone (
+    my $result;
+    if($lnp) {
+	$result = provision_phone (
+	    'session_id' => $session_id,
+	    'countrycode' => '1',
+	     map { $_ => $cgi->param($_) } qw( pkgnum svcpart phonenum 
+		lnp_desired_due_date lnp_other_provider 
+		lnp_other_provider_account )
+	);
+    } else {
+	$result = provision_phone (
 	'session_id' => $session_id,
 	'bulkdid' => [ @bulkdid ],
 	'countrycode' => '1',
 	 map { $_ => $cgi->param($_) } qw( pkgnum svcpart phonenum )
     );
+    }
 
     if ( exists $result->{'error'} && $result->{'error'} ) { 
 	$action = 'provision_svc_phone';

Index: provision_svc_phone.html
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi/provision_svc_phone.html,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -d -r1.2 -r1.3
--- provision_svc_phone.html	21 Dec 2010 23:44:54 -0000	1.2
+++ provision_svc_phone.html	26 Dec 2010 04:09:26 -0000	1.3
@@ -1,6 +1,15 @@
-<%= $url = "$selfurl?session=$session_id;action="; ''; %>
-<%= include('header', 'Setup phone number') %>
+<%= $url = "$selfurl?session=$session_id;action="; 
+ $heading2 = $lnp ? "Port-In Number" : "Setup phone number";
+ '';
+%>
+<%= include('header', $heading2) %>
 <%=
+
+sub lnp_textfield {
+    my ($name,$label) = (shift,shift);
+   qq!<tr><td>$label</td><td><input type="text" name="$name"></td></tr>!;
+}
+
 if($error) {
     $OUT .= qq!<div style="color:red; font-size: 115%">$error</div>!;
 }
@@ -12,10 +21,21 @@
 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="<%= $pkgnum %>">
 <INPUT TYPE="hidden" NAME="svcpart" VALUE="<%= $svcpart %>">
 <INPUT TYPE="hidden" NAME="numavail" VALUE="<%= $numavail %>">
-<%= didselector('field' => 'phonenum', 
+<%=
+if($lnp) {
+    $OUT .= "<table>"
+	    . qq!<input type="hidden" name="lnp" value="1">!
+	    . 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 {
+    didselector('field' => 'phonenum', 
 		'svcpart' => $svcpart,
 		'bulknum' => $numavail,
 		);
+}
 %>
 <BR><BR><INPUT TYPE="submit" VALUE="Setup">
 </FORM>

Index: ws_list.html
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi/ws_list.html,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -d -r1.4 -r1.5
--- ws_list.html	21 Dec 2010 06:26:12 -0000	1.4
+++ ws_list.html	26 Dec 2010 04:09:26 -0000	1.5
@@ -57,6 +57,12 @@
 		    . 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>";