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 data from a DBI data source<BR><BR>
   5
   6 <%
   7   #false laziness with edit/cust_main.cgi
   8   my @agents = qsearch( 'agent', {} );
   9   die "No agents created!" unless @agents;
  10   my $agentnum = $agents[0]->agentnum; #default to first
  11
  12   if ( scalar(@agents) == 1 ) {
  13 %>
  14     <INPUT TYPE="hidden" NAME="agentnum" VALUE="<%= $agentnum %>">
  15 <% } else { %>
  16     <BR><BR>Agent <SELECT NAME="agentnum" SIZE="1">
  17   <% foreach my $agent (sort { $a->agent cmp $b->agent } @agents) { %>
  18     <OPTION VALUE="<%= $agent->agentnum %>" <%= " SELECTED"x($agent->agentnum==$agentnum) %>><%= $agent->agent %></OPTION>
  19   <% } %>
  20     </SELECT><BR><BR>
  21 <% } %>
  22
  23 <%
  24   my @referrals = qsearch('part_referral',{});
  25   die "No advertising sources created!" unless @referrals;
  26   my $refnum = $referrals[0]->refnum; #default to first
  27
  28   if ( scalar(@referrals) == 1 ) {
  29 %>
  30     <INPUT TYPE="hidden" NAME="refnum" VALUE="<%= $refnum %>">
  31 <% } else { %>
  32     <BR><BR>Advertising source <SELECT NAME="refnum" SIZE="1">
  33   <% foreach my $referral ( sort { $a->referral <=> $b->referral } @referrals) { %>
  34     <OPTION VALUE="<%= $referral->refnum %>" <%= " SELECTED"x($referral->refnum==$refnum) %>><%= $referral->refnum %>: <%= $referral->referral %></OPTION>
  35   <% } %>
  36     </SELECT><BR><BR>
  37 <% } %>
  38
  39     First package: <SELECT NAME="pkgpart"><OPTION VALUE="">(none)</OPTION>
  40 <% foreach my $part_pkg ( qsearch('part_pkg',{'disabled'=>'' }) ) { %>
  41      <OPTION VALUE="<%= $part_pkg->pkgpart %>"><%= $part_pkg->pkg. ' - '. $part_pkg->comment %></OPTION>
  42 <% } %>
  43 </SELECT><BR><BR>
  44
  45   <table>
  46     <tr>
  47       <td align="right">DBI data source: </td>
  48       <td><INPUT TYPE="text" NAME="data_source"></td>
  49     </tr>
  50     <tr>
  51       <td align="right">DBI username: </td>
  52       <td><INPUT TYPE="text" NAME="username"></td>
  53     </tr>
  54     <tr>
  55       <td align="right">DBI password: </td>
  56       <td><INPUT TYPE="text" NAME="password"></td>
  57     </tr>
  58   </table>
  59   <INPUT TYPE="submit" VALUE="Import">
  60
  61   </FORM>
  62   </BODY>
  63 <HTML>
  64