diff options
Diffstat (limited to 'httemplate/edit')
| -rw-r--r-- | httemplate/edit/process/qual.cgi | 2 | ||||
| -rw-r--r-- | httemplate/edit/svc_dsl.cgi | 15 |
2 files changed, 6 insertions, 11 deletions
diff --git a/httemplate/edit/process/qual.cgi b/httemplate/edit/process/qual.cgi index 78e877009..789834ebf 100644 --- a/httemplate/edit/process/qual.cgi +++ b/httemplate/edit/process/qual.cgi @@ -16,7 +16,7 @@ my $curuser = $FS::CurrentUser::CurrentUser; die "access denied" - unless $curuser->access_right('Order customer package'); # XXX: fix me + unless $curuser->access_right('Qualify service'); $cgi->param('custnum') =~ /^(\d+)$/ or die 'illegal custnum '. $cgi->param('custnum'); diff --git a/httemplate/edit/svc_dsl.cgi b/httemplate/edit/svc_dsl.cgi index 79aeb1a10..7493d98b9 100644 --- a/httemplate/edit/svc_dsl.cgi +++ b/httemplate/edit/svc_dsl.cgi @@ -92,11 +92,8 @@ my $new_cb = sub { 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; + my $ddd = $cust_pkg->start_date; + $ddd = time unless $ddd; my @addl_fields = ( { field => 'loop_type', @@ -108,17 +105,15 @@ my $new_cb = sub { 'password', { field => 'isp_chg', type => 'checkbox', }, 'isp_prev', - { field => 'vendor_qual_id', - type => 'fixed', - value => $vendor_qual_id, }, + 'vendor_qual_id', { 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; |