<%= 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

<% } %> <% 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

<% } %> First package:

DBI data source:
DBI username:
DBI password: