<%= header('Import') %>

Import data from a DBI data source

<% #false laziness with edit/cust_main.cgi my @agents = qsearch( 'agent', {} ); die "No agents created!" unless @agents; my $agentnum = $agents[0]->agentnum; #default to first if ( scalar(@agents) == 1 ) { %> <% } else { %>

Agent <% foreach my $agent (sort { $a->agent cmp $b->agent } @agents) { %> agentnum==$agentnum) %>><%= $agent->agent %> <% } %>

<% } %> <% my @referrals = qsearch('part_referral',{}); die "No advertising sources created!" unless @referrals; my $refnum = $referrals[0]->refnum; #default to first if ( scalar(@referrals) == 1 ) { %> <% } else { %>

Advertising source <% foreach my $referral ( sort { $a->referral <=> $b->referral } @referrals) { %> refnum==$refnum) %>><%= $referral->refnum %>: <%= $referral->referral %> <% } %>

<% } %> First package: (none) <% foreach my $part_pkg ( qsearch('part_pkg',{'disabled'=>'' }) ) { %> <%= $part_pkg->pkg. ' - '. $part_pkg->comment %> <% } %>

DBI data source:
DBI username:
DBI password: