httemplate/edit/ac_type.cgi

   1 <!-- mason kludge -->
   2 <%
   3
   4 my $ac_type;
   5 if ( $cgi->param('error') ) {
   6   $ac_type = new FS::ac_type ( {
   7     map { $_, scalar($cgi->param($_)) } fields('ac_type')
   8   } );
   9 } elsif ( $cgi->keywords ) { #editing
  10   my($query)=$cgi->keywords;
  11   $query =~ /^(\d+)$/;
  12   $ac_type=qsearchs('ac_type',{'actypenum'=>$1});
  13 } else { #adding
  14   $ac_type = new FS::ac_type {};
  15 }
  16 my $action = $ac_type->actypenum ? 'Edit' : 'Add';
  17 my $hashref = $ac_type->hashref;
  18
  19 my @ut_types = qw( float number text alpha anything ip domain );
  20
  21 my $p1 = popurl(1);
  22 print header("$action Access Concentrator Type", menubar(
  23   'Main Menu' => popurl(2),
  24   'View all Access Concentrator types' => popurl(2). "browse/ac_type.cgi",
  25 ));
  26
  27 print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
  28       "</FONT>"
  29   if $cgi->param('error');
  30
  31 print qq!<FORM ACTION="${p1}process/ac_type.cgi" METHOD=POST>!;
  32
  33 #display
  34
  35 print qq!<INPUT TYPE="hidden" NAME="actypenum" VALUE="$hashref->{actypenum}">!,
  36       "AC Type #", $hashref->{actypenum} ? $hashref->{actypenum} : "(NEW)";
  37
  38 print <<TROZ;
  39 <PRE>
  40 AC Type Name <INPUT TYPE="text" NAME="actypename" SIZE=15 VALUE="$hashref->{actypename}">
  41 </PRE>
  42
  43 TROZ
  44
  45 print qq!<BR><INPUT TYPE="submit" VALUE="!,
  46       $hashref->{actypenum} ? "Apply changes" : "Add AC Type",
  47       qq!"></FORM>!;
  48
  49
  50 if ($hashref->{actypenum}) {
  51   print qq!   <BR>Available fields:<BR>! .  table();
  52
  53   print qq!    <TH><TD>Field name</TD><TD>Field type</TD><TD></TD></TH>!;
  54
  55   my @part_ac_field = qsearch ( 'part_ac_field',
  56                                 { actypenum => $hashref->{actypenum} } );
  57   foreach ( @part_ac_field ) {
  58     my $pf_hashref = $_->hashref;
  59     print <<END;
  60       <TR>
  61         <TD>$pf_hashref->{acfieldpart}</TD>
  62         <TD>$pf_hashref->{name}</TD>
  63         <TD>$pf_hashref->{ut_type}</TD>
  64       </TR>
  65 END
  66   }
  67
  68   my $name, $ut_type = '';
  69   if ($cgi->param('error')) {
  70     $name = $cgi->param('name');
  71     $ut_type = $cgi->param('ut_type');
  72   }
  73
  74   print <<END;
  75       <FORM ACTION="${p1}process/part_ac_field.cgi" METHOD=GET>
  76       <TR>
  77        <TD><SMALL>(NEW)</SMALL>
  78          <INPUT TYPE="hidden" NAME="actypenum" VALUE="$hashref->{actypenum}">
  79        </TD>
  80        <TD>
  81          <INPUT TYPE="text" NAME="name" VALUE="${name}">
  82        </TD>
  83        <TD>
  84          <SELECT NAME="ut_type" SIZE=1><OPTION>
  85 END
  86
  87   foreach ( @ut_types ) {
  88     print qq!<OPTION! . ($ut_type ? " SELECTED>$_" : ">$_");
  89   }
  90
  91   print <<END;
  92         </SELECT>
  93       </TD>
  94       <TD><INPUT TYPE="submit" VALUE="Add"></TD>
  95     </TR>
  96     </FORM>
  97   </TABLE>
  98 END
  99
 100 }
 101
 102 %>
 103
 104  </BODY>
 105 </HTML>
 106