diff options
| author | levinse <levinse> | 2011-01-20 20:46:30 +0000 |
|---|---|---|
| committer | levinse <levinse> | 2011-01-20 20:46:30 +0000 |
| commit | 98779ec47370ad67c716154f67f6a726b83e09ed (patch) | |
| tree | 808e131493ef786f9b63e13b1341167aaae72b3c /httemplate/edit/svc_dsl.cgi | |
| parent | 6f1653f32e2d7bef2b31832a0289482bc40613e5 (diff) | |
Ikano / svc_dsl / qualification improvements, RT7111
Diffstat (limited to 'httemplate/edit/svc_dsl.cgi')
| -rw-r--r-- | httemplate/edit/svc_dsl.cgi | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/httemplate/edit/svc_dsl.cgi b/httemplate/edit/svc_dsl.cgi index 9b4d1c77d..48464fbad 100644 --- a/httemplate/edit/svc_dsl.cgi +++ b/httemplate/edit/svc_dsl.cgi @@ -95,6 +95,16 @@ my $new_cb = sub { my $ddd = $cust_pkg->start_date; $ddd = time unless $ddd; + 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', type => 'select', @@ -105,7 +115,12 @@ my $new_cb = sub { 'password', { field => 'isp_chg', type => 'checkbox', }, 'isp_prev', - 'vendor_qual_id', + { field => 'vendor_qual_id', + type => 'select', + options => \@prequalids, + labels => \%prequal_labels, + onchange => 'ikano_vendor_qual_id_changed', + }, { field => 'vendor_order_type', type => 'hidden', value => 'NEW' }, |