X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fsvc_dsl.cgi;h=48464fbad61bf5aa794164c23097dc436566ce2f;hb=8d534e61d74e561a15f0863a835cda4af639a9ea;hp=79aeb1a105d4eb99ffe5d9a4bc380b42d7a392e8;hpb=4e1e6d1a69d6c1f08c24859f7ed70b4489b691bf;p=freeside.git

diff --git a/httemplate/edit/svc_dsl.cgi b/httemplate/edit/svc_dsl.cgi
index 79aeb1a10..48464fbad 100644
--- a/httemplate/edit/svc_dsl.cgi
+++ b/httemplate/edit/svc_dsl.cgi
@@ -55,7 +55,7 @@ my $edit_cb = sub {
 	# else add any other export-specific stuff here
     }
     else {
-	# XXX allow editing everything
+	push @fields, qw( first last company phonenum circuitnum rate_band vpi vci );
     }
 };
 
@@ -65,7 +65,6 @@ my $new_cb = sub {
     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;
@@ -90,13 +89,21 @@ my $new_cb = sub {
 	    },
 	);
 
+    if ( scalar(@exports) == 1 ) {
 	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;
+	    my $ddd = $cust_pkg->start_date;
+	    $ddd = time unless $ddd;
 
-	    die "no start date set on customer package" if !$cust_pkg->start_date;
+	    my @quals = $export->quals_by_cust_and_pkg($cust_pkg->cust_main->custnum,$cust_pkg->pkgpart);
+	    my @prequalids;
+	    my %prequal_labels;
+	    foreach my $qual ( @quals ) {
+		my $prequalid = $qual->vendor_qual_id;
+		push @prequalids, $prequalid;
+		$prequal_labels{$prequalid} = "$prequalid - qualification #"
+							    .$qual->qualnum;
+	    }
 
 	    my @addl_fields = ( 
 		{ field => 'loop_type',
@@ -109,24 +116,27 @@ my $new_cb = sub {
 		{ field => 'isp_chg', type => 'checkbox', },
 		'isp_prev',
 		{ field => 'vendor_qual_id', 
-		  type => 'fixed', 
-		  value => $vendor_qual_id,  },
+		  type => 'select',
+		  options => \@prequalids,
+		  labels => \%prequal_labels,
+		  onchange => 'ikano_vendor_qual_id_changed',
+		},
 		{ field => 'vendor_order_type', 
 		  type => 'hidden', 
 		  value => 'NEW' },
 		{ field => 'desired_due_date',
 		  type => 'fixed',
 		  formatted_value => 
-		    time2str($date_format,$cust_pkg->start_date),
-		  value => $cust_pkg->start_date, 
+		    time2str($date_format,$ddd),
+		  value => $ddd, 
 		},
 	    );
 	    push @fields, @addl_fields;
 	}
 	# else add any other export-specific stuff here
     }
-    else {
-	# XXX display everything when no exports attached
+    else { # display non-export and non-Ikano fields
+	push @fields, qw( rate_band circuitnum vpi vci );
     }
 };
 </%init>