ikano.pm initial commit, svc_dsl UI initial commit, and svc_dsl on-going work, RT7111

1 files changed, 125 insertions, 0 deletions

diff --git a/httemplate/edit/svc_dsl.cgi b/httemplate/edit/svc_dsl.cgi
new file mode 100644
index 000000000..3568fbd7d
--- /dev/null
+++ b/httemplate/edit/svc_dsl.cgi
@@ -0,0 +1,125 @@
+<% include( 'elements/svc_Common.html',
+            'table'   	=> 'svc_dsl',
+	    'fields'	=> \@fields,
+	    'svc_new_callback' => $new_cb,
+	    'svc_edit_callback' => $edit_cb,
+	  )
+%>
+<%init>
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific?
+
+my $conf = new FS::Conf;
+my $date_format = $conf->config('date_format') || '%m/%d/%Y';
+
+my $ti_fields = FS::svc_dsl->table_info->{'fields'};
+
+my @fields = ();
+my @uneditable = qw( pushed vendor_qual_id isp_chg isp_prev staticips last_pull notes );
+
+my $edit_cb = sub {
+    my( $cgi,$svc_x, $part_svc,$cust_pkg, $fields1,$opt) = @_;
+    my @exports = $part_svc->part_export_dsl_pull;
+    die "more than one DSL-pulling export attached to svcpart ".$part_svc->svcpart
+	if ( scalar(@exports) > 1 );
+
+    if ( scalar(@exports) == 1 ) {
+	my $export = @exports[0];		
+	if($export->exporttype eq 'ikano') {
+	    @fields = ( 'password', 'monitored', );
+
+	    foreach my $hf ( keys %$ti_fields ) {
+		push @fields, {
+		    field => $hf,
+		    type => 'hidden',
+		    value => $svc_x->$hf,
+		} unless ( $hf eq 'password' || $hf eq 'monitored' );
+	    }
+	}
+	else {
+	    # XXX
+	}
+    }
+    else {
+	# XXX
+    }
+};
+
+my $new_cb = sub {
+    my( $cgi,$svc_x, $part_svc,$cust_pkg, $fields1,$opt) = @_;
+    my @exports = $part_svc->part_export_dsl_pull;
+    die "more than one DSL-pulling export attached to svcpart ".$part_svc->svcpart
+	if ( scalar(@exports) > 1 );
+
+    if ( scalar(@exports) == 1 ) {
+	my $cust_main = $cust_pkg->cust_main;
+	my $defsvctn = $cust_main->ship_daytime ? $cust_main->ship_daytime
+						: $cust_main->daytime;
+	$defsvctn =~ s/[^0-9]//g;
+
+	@fields = (
+	    { field => 'first',
+	      value => $cust_main->ship_first ? $cust_main->ship_first
+					      : $cust_main->first,
+	    },
+	    { field => 'last',
+	      value => $cust_main->ship_last ? $cust_main->ship_last
+					     : $cust_main->last,
+	    },
+	    { field => 'company',
+	      value => $cust_pkg->cust_main->ship_company,
+	      value => $cust_main->ship_company ? $cust_main->ship_company
+						: $cust_main->company,
+	    },
+	    { field => 'svctn',
+	      value => $defsvctn,
+	    },
+	);
+
+	my $loop_type = { field => 'loop_type' };
+
+	my $export = @exports[0];		
+	if($export->exporttype eq 'ikano') {
+	    $cgi->param('vendor_qual_id') =~ /^(\d+)$/ 
+		or die 'unparsable vendor_qual_id';
+	    my $vendor_qual_id = $1;
+
+	    die "no start date set on customer package" if !$cust_pkg->start_date;
+
+	    $loop_type = { field => 'loop_type',
+		    type => 'select',
+		    options => [ '', '0' ],
+		    labels => { '' => 'Line-share', '0', => 'Standalone' },
+		   # onchange => "document.getElementById('svctn').value = ''",
+		};
+	    push @fields, { field => 'isp_chg', type => 'checkbox', };
+	    push @fields, 'isp_prev';
+	    push @fields, { field => 'vendor_qual_id',
+			    type => 'fixed',
+			    value => $vendor_qual_id, 
+			  };
+	}
+	else {
+	    push @fields, 'username';
+	}
+	
+	push @fields, 'password';
+
+	push @fields, $loop_type;
+	    
+	push @fields, { field => 'vendor_order_type',
+			type => 'hidden',
+			value => 'N' };
+	push @fields, { field => 'desired_dd',
+			type => 'fixed',
+			formatted_value => 
+			    time2str($date_format,$cust_pkg->start_date),
+			value => $cust_pkg->start_date, 
+		      };
+    }
+    else {
+	# XXX
+    }
+};
+</%init>