=item location_hash
Returns a list of key/value pairs, with the following keys: address1, address2,
-city, county, state, zip, country, geocode.
+city, county, state, zip, country, geocode, location_type, location_number,
+location_kind.
=cut
return;
}
+=item alternize
+
+Attempts to parse data for location_type and location_number from address1
+and address2.
+
+=cut
+
+sub alternize {
+ my $self = shift;
+
+ return '' if $self->get('location_type')
+ || $self->get('location_number');
+
+ my %parse;
+ if ( 1 ) { #ikano, switch on via config
+ { no warnings 'void';
+ eval { 'use FS::part_export::ikano;' };
+ die $@ if $@;
+ }
+ %parse = FS::part_export::ikano->location_types_parse;
+ } else {
+ %parse = (); #?
+ }
+
+ foreach my $from ('address1', 'address2') {
+ foreach my $parse ( keys %parse ) {
+ my $value = $self->get($from);
+ if ( $value =~ s/(^|\W+)$parse\W+(\w+)\W*$//i ) {
+ $self->set('location_type', $parse{$parse});
+ $self->set('location_number', $2);
+ $self->set($from, $value);
+ return '';
+ }
+ }
+ }
+
+ #nothing matched, no changes
+ $self->get('address2')
+ ? "Can't parse unit type and number from address2"
+ : '';
+}
+
+=item dealternize
+
+Moves data from location_type and location_number to the end of address1.
+
+=cut
+
+sub dealternize {
+ my $self = shift;
+
+ #false laziness w/geocode_Mixin.pm::line
+ my $lt = $self->get('location_type');
+ if ( $lt ) {
+
+ my %location_type;
+ if ( 1 ) { #ikano, switch on via config
+ { no warnings 'void';
+ eval { 'use FS::part_export::ikano;' };
+ die $@ if $@;
+ }
+ %location_type = FS::part_export::ikano->location_types;
+ } else {
+ %location_type = (); #?
+ }
+
+ $self->address1( $self->address1. ' '. $location_type{$lt} || $lt );
+ $self->location_type('');
+ }
+
+ if ( length($self->location_number) ) {
+ $self->address1( $self->address1. ' '. $self->location_number );
+ $self->location_number('');
+ }
+
+ '';
+}
+
=back
=head1 BUGS
$notfirst++;
}
- if ( $self->get($prefix.'location_type') ) {
+ my $lt = $self->get($prefix.'location_type');
+ if ( $lt ) {
my %location_type;
if ( 1 ) { #ikano, switch on via config
{ no warnings 'void';
%location_type = (); #?
}
- $line .= ' '.&$escape( $location_type{ $self->get($prefix.'location_type') }
- || $self->get($prefix.'location_type')
- );
+ $line .= ' '.&$escape( $location_type{$lt} || $lt );
}
$line .= ' '. &$escape($self->get($prefix.'location_number'))
$geocode;
}
-=item alternize
-
-Attempts to parse data for location_type and location_number from address1
-and address2.
-
-=cut
-
-sub alternize {
- my $self = shift;
- my $prefix = $self->has_ship_address ? 'ship_' : '';
-
- return '' if $self->get($prefix.'location_type')
- || $self->get($prefix.'location_number');
-
- my %parse;
- if ( 1 ) { #ikano, switch on via config
- { no warnings 'void';
- eval { 'use FS::part_export::ikano;' };
- die $@ if $@;
- }
- %parse = FS::part_export::ikano->location_types_parse;
- } else {
- %parse = (); #?
- }
-
- foreach my $from ('address1', 'address2') {
- foreach my $parse ( keys %parse ) {
- my $value = $self->get($prefix.$from);
- if ( $value =~ s/(^|\W+)$parse\W+(\w+)\W*$//i ) {
- $self->set($prefix.'location_type', $parse{$parse});
- $self->set($prefix.'location_number', $2);
- $self->set($prefix.$from, $value);
- return '';
- }
- }
- }
-
- #nothing matched, no changes
- $self->get($prefix.'address2')
- ? "Can't parse unit type and number from ${prefix}address2"
- : '';
-}
-
=back
=head1 BUGS
my @onotes = $svc_dsl->notes;
# assume notes we already have don't change & no notes added from our side
# so using the horrible code below just find what we're missing and add it
- my $error;
foreach my $inote ( @inotes ) {
my $found = 0;
foreach my $onote ( @onotes ) {
last;
}
}
- $error = $inote->insert unless ( $found );
+ my $error = $inote->insert unless ( $found );
if ( $error ) {
$dbh->rollback if $oldAutoCommit;
return "Cannot add note: $error";
$svc_dsl->last_pull((time));
local $FS::svc_Common::noexport_hack = 1;
- $error = $svc_dsl->replace;
+ my $error = $svc_dsl->replace;
if ( $error ) {
$dbh->rollback if $oldAutoCommit;
return "Cannot update DSL data: $error";
$not_avail{$externalid} = $externalid; #a better label?
}
- { 'header' => 'Qualifying Packages',
+ {
'pkglist' => \%pkglist,
'not_avail' => \%not_avail,
};
if $self->option('debug');
# common to all order types/status/loop_type
- my $error = !($svc_dsl->desired_due_date
- && grep($_ eq $svc_dsl->vendor_order_type, Net::Ikano->orderTypes)
- && $svc_dsl->first
- && $svc_dsl->last
- && defined $svc_dsl->loop_type
- && $svc_dsl->vendor_qual_id
- );
- return 'Missing or invalid order data' if $error;
-
+ return 'No desired_due_date' unless $svc_dsl->desired_due_date;
+ return 'Unknown vendor_order_type'
+ unless grep $_ eq $svc_dsl->vendor_order_type, Net::Ikano->orderTypes;
+ return 'No first name' unless $svc_dsl->first;
+ return 'No last name' unless $svc_dsl->get('last');
+ return 'No loop type' unless defined $svc_dsl->loop_type;
+ return 'No vendor_qual_id' unless $svc_dsl->vendor_qual_id;
+
my %vendor_pkg_ids = $svc_dsl->cust_svc->cust_pkg->part_pkg->vendor_pkg_ids;
return 'Package does not have an external id configured'
unless defined $vendor_pkg_ids{$self->exportnum};
# weird ifs & long lines for readability and ease of understanding - don't change
if($svc_dsl->vendor_order_type eq 'NEW') {
if($svc_dsl->pushed) {
- $error = !( ($action eq 'pull' || $action eq 'statuschg'
+ my $error = !( ($action eq 'pull' || $action eq 'statuschg'
|| $action eq 'delete' || $action eq 'expire')
&& length($svc_dsl->vendor_order_id) > 0
&& length($svc_dsl->vendor_order_status) > 0
if ($action eq 'statuschg' && length($svc_dsl->phonenum) < 1);
}
else { # unpushed New order - cannot do anything other than push it
- $error = !($action eq 'insert'
+ my $error = !($action eq 'insert'
&& length($svc_dsl->vendor_order_id) < 1
&& length($svc_dsl->vendor_order_status) < 1
&& ( ($svc_dsl->phonenum eq '' && $svc_dsl->loop_type eq '0') # dry
return $result unless $result eq '';
my $isp_chg = $svc_dsl->isp_chg eq 'Y' ? 'YES' : 'NO';
- my $contactTN = $svc_dsl->cust_svc->cust_pkg->cust_main->daytime;
+ my $cust_main = $svc_dsl->cust_svc->cust_pkg->cust_main;
+ my $contactTN = $cust_main->daytime || $cust_main->night || '5555555555';
$contactTN =~ s/[^0-9]//g;
my %vendor_pkg_ids = $svc_dsl->cust_svc->cust_pkg->part_pkg->vendor_pkg_ids;
'';
}
+sub cust_location {
+ my $self = shift;
+ return '' unless $self->locationnum;
+ qsearchs('cust_location', { 'locationnum' => $self->locationnum } );
+}
+
+sub cust_main {
+ my $self = shift;
+ return '' unless $self->custnum;
+ qsearchs('cust_main', { 'custnum' => $self->custnum } );
+}
+
sub location_hash {
- my $self = shift;
- if ( $self->locationnum ) {
- my $l = qsearchs( 'cust_location',
- { 'locationnum' => $self->locationnum });
- if ( $l ) {
- my %loc_hash = $l->location_hash;
- $loc_hash{locationnum} = $self->locationnum;
- return %loc_hash;
- }
- }
- if ( $self->custnum ) {
- my $c = qsearchs( 'cust_main', { 'custnum' => $self->custnum });
-
- if($c) {
- # always override location_kind as it would never be known in the
- # case of cust_main "default service address"
- my %loc_hash = $c->location_hash;
- $loc_hash{location_kind} = $c->company ? 'B' : 'R';
- return %loc_hash;
- }
- }
+ my $self = shift;
+
+ if ( my $l = $self->cust_location ) {
+ my %loc_hash = $l->location_hash;
+ $loc_hash{locationnum} = $self->locationnum;
+ return %loc_hash;
+ }
+
+ if ( my $c = $self->cust_main ) {
+ # always override location_kind as it would never be known in the
+ # case of cust_main "default service address"
+ my %loc_hash = $c->location_hash;
+ $loc_hash{location_kind} = $c->company ? 'B' : 'R';
+ return %loc_hash;
+ }
warn "prospectnum does not imply any particular address! must specify locationnum";
return ();
if $self->custnum;
return qsearchs('prospect_main', { 'prospectnum' => $self->prospectnum })
if $self->prospectnum;
+ '';
}
sub status_long {
%# STYLE="margin-top: 0; margin-bottom: 0">
>
-<INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
+<INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
+<INPUT TYPE="hidden" NAME="prospectnum" VALUE="<% $prospectnum %>">
% if ( $custnum ) {
Customer #<B><% $cust_main->display_custnum %></B> -
'popnum' => $popnum,
'saved_domsvc' => $saved_domsvc,
%svc_phone,
+ %svc_dsl,
)
%>
my $pkgpart_svcpart = ''; #first_pkg
my($username, $password, $popnum, $saved_domsvc) = ( '', '', 0, 0 ); #svc_acct
my %svc_phone = ();
+my %svc_dsl = ();
+my $prospectnum = '';
if ( $cgi->param('error') ) {
$svc_phone{$_} = $cgi->param($_)
foreach qw( countrycode phonenum sip_password pin phone_name );
+ #svc_dsl (phonenum came in with svc_phone)
+ $svc_phone{$_} = $cgi->param($_)
+ foreach qw( password isp_chg isp_prev vendor_qual_id );
+
} elsif ( $cgi->keywords ) { #editing
die "access denied"
$stateid = '';
$payinfo = '';
+ if ( $cgi->param('qualnum') =~ /^(\d+)$/ ) {
+ my $qualnum = $1;
+ my $qual = qsearchs('qual', { 'qualnum' => $qualnum } )
+ or die "unknown qualnum $qualnum";
+
+ my $prospect_main = $qual->cust_or_prospect;
+ $prospectnum = $prospect_main->prospectnum
+ or die "qualification not on a prospect";
+
+ $cust_main->agentnum( $prospect_main->agentnum );
+ $cust_main->company( $prospect_main->company );
+
+ #first contact? -> name
+ my @contacts = $prospect_main->contact;
+ my $contact = $contacts[0];
+ $cust_main->first( $contact->first );
+ $cust_main->set( 'last', $contact->get('last') );
+ #XXX contact phone numbers
+
+ #XXX additional/all contacts -> alas (notes for now? add add'l contact support?)
+
+ #XXX move all contacts and locations
+
+ #location -> address (all prospect quals have location, right?)
+ my $cust_location = $qual->cust_location;
+ $cust_location->dealternize;
+ $cust_main->$_( $cust_location->$_ )
+ foreach qw( address1 address2 city county state zip country geocode );
+
+ #pkgpart handled by lock_pkgpart below
+
+ #XXX locationnum -> package order
+
+ #service telephone & vendor_qual_id -> svc_dsl
+ $svc_dsl{$_} = $qual->$_
+ foreach qw( phonenum vendor_qual_id );
+ }
+
if ( $cgi->param('lock_pkgpart') =~ /^(\d+)$/ ) {
my $pkgpart = $1;
my $part_pkg = qsearchs('part_pkg', { 'pkgpart' => $pkgpart } )
<TR>
<TD COLSPAN=2>
<% include('first_pkg/select-part_pkg.html',
- 'part_pkg' => \@part_pkg,
+ 'part_pkg' => \@part_pkg,
+ 'first_svc' => \@first_svc,
%opt,
# map { $_ => $opt{$_} } qw( pkgpart_svcpart saved_domsvc )
)
}
-my @first_svc = ( 'svc_acct', 'svc_phone' );
+my @first_svc = ( 'svc_acct', 'svc_phone', 'svc_dsl' );
@part_pkg =
grep { $_->svcpart(\@first_svc)
my $url_prefix = $opt{'relurls'} ? '' : $p;
-my @part_pkg = @{$opt{'part_pkg'}};
-
-my @first_svc = ( 'svc_acct', 'svc_phone' );
+my @part_pkg = @{ $opt{'part_pkg'} };
+my @first_svc = @{ $opt{'first_svc'} };
my %pkgpart_svcpart = ();
my %svcdb = ();
--- /dev/null
+<% ntable("#cccccc") %>
+
+% if ( $opt{'phonenum'} ) {
+
+ <INPUT TYPE="hidden" NAME="loop_type" VALUE="">
+ <INPUT TYPE="hidden" NAME="phonenum" VALUE="<% $opt{'phonenum'} %>">
+
+ <TR>
+ <TD ALIGN="right">Loop Type</TD>
+ <TD BGCOLOR="#eeeeee">Line-share</TD>
+ </TR>
+
+ <TR>
+ <TD ALIGN="right">Phone Number</TD>
+ <TD BGCOLOR="#eeeeee"><% $opt{'phonenum'} %></TD>
+ </TR>
+
+% } else {
+
+ <INPUT TYPE="hidden" NAME="loop_type" VALUE="0">
+ <INPUT TYPE="hidden" NAME="phonenum" VALUE="">
+
+ <TR>
+ <TD ALIGN="right">Loop Type</TD>
+ <TD BGCOLOR="#eeeeee">Standalone</TD>
+ </TR>
+
+% }
+
+<TR>
+ <TD ALIGN="right">PPPoE password</TD>
+ <TD>
+ <INPUT TYPE = "text"
+ NAME = "password"
+ VALUE = "<% $opt{'password'} %>"
+ >
+ </TD>
+</TR>
+
+<TR>
+ <TD ALIGN="right">ISP Changing?</TD>
+ <TD>
+ <INPUT TYPE = "checkbox"
+ NAME = "isp_chg"
+ VALUE = "Y"
+ <% $opt{'isp_chg'} eq 'Y' ? 'CHECKED' : '' %>
+ >
+ </TD>
+</TR>
+
+<TR>
+ <TD ALIGN="right">Current or Previous ISP</TD>
+ <TD>
+ <INPUT TYPE = "text"
+ NAME = "isp_prev"
+ VALUE = "<% $opt{'isp_prev'} %>"
+ >
+ </TD>
+</TR>
+
+<INPUT TYPE="hidden" NAME="vendor_qual_id" VALUE="<% $opt{'vendor_qual_id'} %>">
+<TR>
+ <TD ALIGN="right">Vendor Qualification ID</TD>
+ <TD BGCOLOR="#eeeeee"><% $opt{'vendor_qual_id'} %></TD>
+</TR>
+
+</TABLE>
+
+<%init>
+
+my %opt = @_;
+
+#my $conf = new FS::Conf;
+
+</%init>
} elsif ( $svcdb eq 'svc_phone' ) {
my %svc_phone = (
- 'svcpart' => $svcpart,
- map { $_ => scalar($cgi->param($_)) }
- qw( countrycode phonenum sip_password pin phone_name )
- );
+ 'svcpart' => $svcpart,
+ map { $_ => scalar($cgi->param($_)) }
+ qw( countrycode phonenum sip_password pin phone_name )
+ );
$svc = new FS::svc_phone \%svc_phone;
+ } elsif ( $svcdb eq 'svc_dsl' ) {
+
+ my %svc_dsl = (
+ 'svcpart' => $svcpart,
+ ( map { $_ => scalar($cgi->param("ship_$_")) || scalar($cgi->param($_))}
+ qw( first last company )
+ ),
+ ( map { $_ => scalar($cgi->param($_)) }
+ qw( loop_type phonenum password isp_chg isp_prev vendor_qual_id )
+ ),
+ 'desired_due_date' => time, #XXX enter?
+ 'vendor_order_type' => 'NEW',
+ );
+ $svc = new FS::svc_dsl \%svc_dsl;
+
} else {
die "$svcdb not handled on new customer yet";
}
<% include( 'elements/svc_Common.html',
- 'table' => 'svc_dsl',
- 'fields' => \@fields,
- 'svc_new_callback' => $new_cb,
- 'svc_edit_callback' => $edit_cb,
- 'html_foot' => $html_foot,
- )
+ 'table' => 'svc_dsl',
+ 'fields' => \@fields,
+ 'svc_new_callback' => $new_cb,
+ 'svc_edit_callback' => $edit_cb,
+ 'html_foot' => $html_foot,
+ )
%>
<%init>
my @fields = ();
-my $html_foot = sub {
- return "
+my $html_foot = sub { "
<SCRIPT TYPE=\"text/javascript\">
function ikano_loop_type_changed() {
- var loop_type = document.getElementById('loop_type').value;
- var phonenum = document.getElementById('phonenum');
- if(loop_type == '0') {
- phonenum.value = '';
- phonenum.disabled = true;
- }
- else phonenum.disabled = false;
+ var loop_type = document.getElementById('loop_type').value;
+ var phonenum = document.getElementById('phonenum');
+ if(loop_type == '0') {
+ phonenum.value = '';
+ phonenum.disabled = true;
+ }
+ else phonenum.disabled = false;
}
-</SCRIPT>";
-};
+</SCRIPT>
+"; };
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 );
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 add any other export-specific stuff here
+ 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 add any other export-specific stuff here
}
else {
- push @fields, qw( first last company phonenum circuitnum rate_band vpi vci );
+ push @fields, qw( first last company phonenum circuitnum rate_band vpi vci );
}
};
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 );
-
- 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 => 'phonenum',
- value => $defsvctn,
- },
- );
+ 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 => 'phonenum',
+ value => $defsvctn,
+ },
+ );
if ( scalar(@exports) == 1 ) {
- my $export = @exports[0];
- if($export->exporttype eq 'ikano') {
- 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',
- options => [ '', '0' ],
- labels => { '' => 'Line-share', '0', => 'Standalone' },
- onchange => 'ikano_loop_type_changed',
- },
- 'password',
- { field => 'isp_chg', type => 'checkbox', },
- 'isp_prev',
- { 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' },
- { field => 'desired_due_date',
- type => 'fixed',
- formatted_value =>
- time2str($date_format,$ddd),
- value => $ddd,
- },
- );
- push @fields, @addl_fields;
- }
- # else add any other export-specific stuff here
- }
- else { # display non-export and non-Ikano fields
- push @fields, qw( rate_band circuitnum vpi vci );
+ my $export = @exports[0];
+ if($export->exporttype eq 'ikano') {
+ 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;
+ }
+
+ splice @fields, -1, 0,
+ { field => 'loop_type',
+ type => 'select',
+ options => [ '', '0' ],
+ labels => { '' => 'Line-share', '0', => 'Standalone' },
+ onchange => 'ikano_loop_type_changed',
+ },
+ ;
+
+ push @fields,
+ 'password',
+ { field => 'isp_chg', type => 'checkbox', value=>'Y', },
+ 'isp_prev',
+ { 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' },
+ { field => 'desired_due_date',
+ type => 'fixed',
+ formatted_value =>
+ time2str($date_format,$ddd),
+ value => $ddd,
+ },
+ ;
+ }
+ # else add any other export-specific stuff here
+
+ } else { # display non-export and non-Ikano fields
+ push @fields, qw( rate_band circuitnum vpi vci );
}
};
</%init>
--- /dev/null
+% my $link = "${p}view/prospect_main.html?". $prospect_main->prospectnum;
+Prospect: <A HREF="<%$link%>"><% $prospect_main->name %></A>
+<%init>
+
+my($prospect_main, %opt) = @_;
+
+$prospect_main = qsearchs('prospect_main', { 'prospectnum' => $prospect_main } )
+ || die "unknown prospectnum $prospect_main"
+ unless ref($prospect_main);
+
+</%init>
<% include("/elements/header.html","View Qualification") %>
-% if ( $cust_or_prospect->get('custnum') ) {
+% if ( $cust_or_prospect->custnum ) {
- <% include( '/elements/small_custview.html', $cust_or_prospect->custnum, '', 1,
- "${p}view/cust_main.cgi") %>
+ <% include( '/elements/small_custview.html', $cust_or_prospect,
+ '', #countrydefault override
+ 1, #no balance
+ "${p}view/cust_main.cgi"), #url
+ %>
+
+% } elsif ( $cust_or_prospect->prospectnum ) {
+
+ <% include( '/elements/small_prospect_view.html', $cust_or_prospect) %>
-% } elsif ( $cust_or_prospect->get('prospectnum') ) {
-% my $prospectnum = $cust_or_prospect->get('prospectnum');
-% my $link = "${p}view/prospect_main.html?$prospectnum";
- <A HREF="<%$link%>">Prospect #<%$prospectnum%></A>
% }
<BR><BR>
<BR><BR>
% if ( $export ) {
-% my $qual_result = $export->qual_result($qual);
-% if ($qual_result->{'header'}) {
- <B><% $qual_result->{'header'} %></B>
-% }
-% if ($qual_result->{'pkglist'}) { # one of the possible formats
-% my $svcpart = '';
-% my $pkglist = $qual_result->{'pkglist'};
-% my $cust_or_prospect = $qual->cust_or_prospect;
-% my $locationnum = '';
-% my %location = $qual->location_hash;
-% if (%location && $location{'locationnum'}) {
-% $locationnum = $location{'locationnum'};
-% }
- <UL>
+% my $qual_result = $export->qual_result($qual);
+% if ($qual_result->{'pkglist'}) { # one of the possible formats (?)
+ <B>Qualifying Packages</B> - click to order
+% my $svcpart = '';
+% my $pkglist = $qual_result->{'pkglist'};
+% my $cust_or_prospect = $qual->cust_or_prospect;
+% my $locationnum = '';
+% my %location = $qual->location_hash;
+% my $locationnum = $location{'locationnum'};
+ <UL>
% foreach my $pkgpart ( keys %$pkglist ) {
-% my %opt = ( 'label' => $pkglist->{$pkgpart},
-% 'pkgpart' => $pkgpart,
-% 'locationnum' => $locationnum, );
-% if ( $export->exporttype eq 'ikano' ) {
-% my $pkg_svc = qsearchs('pkg_svc', { 'pkgpart' => $pkgpart,
-% 'primary_svc' => 'Y',
-% } );
-% $opt{'svcpart'} = $pkg_svc->svcpart if $pkg_svc;
+ <LI>
+
+% if($cust_or_prospect->custnum) {
+
+% my %opt = ( 'label' => $pkglist->{$pkgpart},
+% 'pkgpart' => $pkgpart,
+% 'locationnum' => $location{'locationnum'},
+% );
+% if ( $export->exporttype eq 'ikano' ) {
+% my $pkg_svc = qsearchs('pkg_svc', { 'pkgpart' => $pkgpart,
+% 'primary_svc' => 'Y',
+% }
+% );
+% $opt{'svcpart'} = $pkg_svc->svcpart if $pkg_svc;
+% }
+
+ <% include('/view/cust_main/order_pkg_link.html',
+ $cust_or_prospect, %opt) %>
+
+% } elsif ($cust_or_prospect->prospectnum) {
+
+% my $link = "${p}edit/cust_main.cgi?qualnum=". $qual->qualnum.
+% ";lock_pkgpart=$pkgpart";
+ <A HREF="<% $link %>"><% $pkglist->{$pkgpart} |h %></A>
+
% }
- <LI>
-% if($cust_or_prospect && $cust_or_prospect->custnum) {
- <% include('/view/cust_main/order_pkg_link.html', $qual->cust_or_prospect, %opt) %>
-% }
-% else {
- <% $opt{label} %>
-% }
- </LI>
+ </LI>
% }
- </UL>
+ </UL>
% }
% my $not_avail = $qual_result->{'not_avail'};
$location_kind = "Residential" if $cust_location->get('location_kind') eq 'R';
$location_kind = "Business" if $cust_location->get('location_kind') eq 'B';
-my $cust_or_prospect = $qual->cust_or_prospect;
+my $cust_or_prospect = $qual->cust_or_prospect; #or die? qual without this?
my $export = $qual->part_export;
</%init>
projects / freeside.git / commitdiff