httemplate/edit/cust_main_county-add.cgi

   1 <% include('/elements/header-popup.html', "Enter additional $title") %>
   2
   3 <% include('/elements/error.html') %>
   4
   5 <FORM ACTION="<% $p1 %>process/cust_main_county-add.cgi" METHOD=POST>
   6
   7 <INPUT TYPE="hidden" NAME="taxnum"  VALUE="<% $taxnum %>">
   8 <INPUT TYPE="hidden" NAME="what"  VALUE="<% $what %>">
   9
  10 <TEXTAREA NAME="expansion" COLS="50" ROWS="16"><% $expansion |h %></TEXTAREA>
  11
  12 <BR>
  13 <INPUT TYPE="submit" VALUE="Add <% $title %>">
  14
  15 </FORM>
  16 </BODY>
  17 </HTML>
  18
  19 <%init>
  20
  21 die "access denied"
  22   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
  23
  24 $cgi->param('taxnum') =~ /^(\d+)$/ or die "Illegal taxnum";
  25 my $taxnum = $1;
  26
  27 my $expansion = '';
  28 if ( $cgi->param('error') ) {
  29   $expansion = $cgi->param('expansion');
  30 }
  31
  32 my $cust_main_county = qsearchs('cust_main_county',{'taxnum'=>$taxnum})
  33   or die "cust_main_county.taxnum $taxnum not found";
  34
  35 $cgi->param('what') =~ /^(\w+)$/ or die "Illegal what";
  36 my $what = $1;
  37
  38 my $title;
  39 if ( $what eq 'city' ) {
  40   $title = 'Cities';
  41 } elsif ( $what eq 'county' ) {
  42   $title = 'Counties';
  43 } else { #???
  44   die "unknown what $what";
  45   #$title = 'States/Provinces';
  46 }
  47
  48 my $p1 = popurl(1);
  49
  50 </%init>