httemplate/misc/meta-import.cgi

   1 <!-- mason kludge -->
   2 <%= header('Import') %>
   3 <FORM ACTION="process/meta-import.cgi" METHOD="post" ENCTYPE="multipart/form-data">
   4 Import a CSV file containing customer records (zip tar etc).<BR><BR>
   5
   6 ##no##Default file format is CSV, with the following field order: <i>cust_pkg.setup, dayphone, first, last, address1, address2, city, state, zip, comments</i><BR><BR>
   7
   8 <%
   9   #false laziness with edit/cust_main.cgi
  10   my @agents = qsearch( 'agent', {} );
  11   die "No agents created!" unless @agents;
  12   my $agentnum = $agents[0]->agentnum; #default to first
  13
  14   if ( scalar(@agents) == 1 ) {
  15 %>
  16     <INPUT TYPE="hidden" NAME="agentnum" VALUE="<%= $agentnum %>">
  17 <% } else { %>
  18     <BR><BR>Agent <SELECT NAME="agentnum" SIZE="1">
  19   <% foreach my $agent (sort { $a->agent cmp $b->agent } @agents) { %>
  20     <OPTION VALUE="<%= $agent->agentnum %>" <%= " SELECTED"x($agent->agentnum==$agentnum) %>><%= $agent->agent %></OPTION>
  21   <% } %>
  22     </SELECT><BR><BR>
  23 <% } %>
  24
  25 <%
  26   my @referrals = qsearch('part_referral',{});
  27   die "No advertising sources created!" unless @referrals;
  28   my $refnum = $referrals[0]->refnum; #default to first
  29
  30   if ( scalar(@referrals) == 1 ) {
  31 %>
  32     <INPUT TYPE="hidden" NAME="refnum" VALUE="<%= $refnum %>">
  33 <% } else { %>
  34     <BR><BR>Advertising source <SELECT NAME="refnum" SIZE="1">
  35   <% foreach my $referral ( sort { $a->referral <=> $b->referral } @referrals) { %>
  36     <OPTION VALUE="<%= $referral->refnum %>" <%= " SELECTED"x($referral->refnum==$refnum) %>><%= $referral->refnum %>: <%= $referral->referral %></OPTION>
  37   <% } %>
  38     </SELECT><BR><BR>
  39 <% } %>
  40
  41     First package: <SELECT NAME="pkgpart"><OPTION VALUE="">(none)</OPTION>
  42 <% foreach my $part_pkg ( qsearch('part_pkg',{'disabled'=>'' }) ) { %>
  43      <OPTION VALUE="<%= $part_pkg->pkgpart %>"><%= $part_pkg->pkg. ' - '. $part_pkg->comment %></OPTION>
  44 <% } %>
  45 </SELECT><BR><BR>
  46
  47     CSV (zip, tar etc) Filename: <INPUT TYPE="file" NAME="csvfile"><BR><BR>
  48     <INPUT TYPE="submit" VALUE="Import">
  49     </FORM>
  50   </BODY>
  51 <HTML>
  52