<% include("/elements/header.html",'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: