httemplate/edit/part_virtual_field.cgi

   1 %
   2 %my ($vfieldpart, $part_virtual_field);
   3 %
   4 %if ( $cgi->param('error') ) {
   5 %  $part_virtual_field = new FS::part_virtual_field ( {
   6 %    map { $_, scalar($cgi->param($_)) } fields('part_virtual_field')});
   7 %  $vfieldpart = $part_virtual_field->vfieldpart;
   8 %} else {
   9 %  my($query) = $cgi->keywords;
  10 %  if ( $query =~ /^(\d+)$/ ) { #editing
  11 %    $vfieldpart=$1;
  12 %    $part_virtual_field=qsearchs('part_virtual_field',
  13 %        {'vfieldpart' => $vfieldpart})
  14 %      or die "Unknown vfieldpart!";
  15 %
  16 %  } else { #adding
  17 %    $part_virtual_field = new FS::part_virtual_field({});
  18 %  }
  19 %}
  20 %my $action = $part_virtual_field->vfieldpart ? 'Edit' : 'Add';
  21 %
  22 %my $p1 = popurl(1);
  23 %
  24 %
  25 <% include('/elements/header.html', "$action Virtual Field Definition") %>
  26 % if ( $cgi->param('error') ) {
  27
  28   <FONT SIZE="+1" COLOR="#ff0000">Error: <% $cgi->param('error') %></FONT>
  29   <BR><BR>
  30 % }
  31
  32
  33 <FORM ACTION="<%$p1%>process/generic.cgi" METHOD="POST">
  34
  35 <INPUT TYPE="hidden" NAME="table" VALUE="part_virtual_field">
  36 <INPUT TYPE="hidden" NAME="redirect_ok"
  37     VALUE="<%popurl(2)%>browse/part_virtual_field.cgi">
  38 <INPUT TYPE="hidden" NAME="vfieldpart" VALUE="<%
  39   $vfieldpart%>">
  40 Field #<B><%$vfieldpart or "(NEW)"%></B><BR><BR>
  41
  42 <%ntable("#cccccc",2)%>
  43   <TR>
  44     <TD ALIGN="right">Name</TD>
  45     <TD><INPUT TYPE="text" NAME="name" MAXLENGTH=32 VALUE="<%
  46     $part_virtual_field->name%>"></TD>
  47   </TR>
  48   <TR>
  49     <TD ALIGN="right">Table</TD>
  50     <TD>
  51 % if ($action eq 'Add') {
  52
  53       <SELECT SIZE=1 NAME="dbtable">
  54 %
  55 %        my $dbdef = dbdef;  # ick
  56 %        #foreach my $dbtable (sort { $a cmp $b } $dbdef->tables) {
  57 %        foreach my $dbtable (qw( svc_broadband router )) {
  58 %          if ($dbtable !~ /^h_/
  59 %          and $dbdef->table($dbtable)->primary_key) {
  60
  61             <OPTION VALUE="<%$dbtable%>"><%$dbtable%></OPTION>
  62 %
  63 %          }
  64 %        }
  65 %
  66 </SELECT>
  67 %
  68 %    } else { # Edit
  69 %
  70 <%$part_virtual_field->dbtable%>
  71     <INPUT TYPE="hidden" NAME="dbtable" VALUE="<%$part_virtual_field->dbtable%>">
  72 % }
  73
  74     </TD>
  75   <TR>
  76     <TD ALIGN="right">Label</TD>
  77     <TD><INPUT TYPE="text" NAME="label" MAXLENGTH="80" VALUE="<%
  78     $part_virtual_field->label%>"></TD>
  79   </TR>
  80   <TR>
  81     <TD ALIGN="right">Length</TD>
  82     <TD><INPUT TYPE="text" NAME="length" MAXLENGTH=4 VALUE="<%
  83     $part_virtual_field->length%>"></TD>
  84   </TR>
  85   <TR>
  86     <TD ALIGN="right">Check</TD>
  87     <TD><TEXTAREA COLS="20" ROWS="4" NAME="check_block"><%
  88     $part_virtual_field->check_block%></TEXTAREA></TD>
  89   </TR>
  90   <TR>
  91     <TD ALIGN="right">List source</TD>
  92     <TD><TEXTAREA COLS="20" ROWS="4" NAME="list_source"><%
  93     $part_virtual_field->list_source%></TEXTAREA></TD>
  94   </TR>
  95 </TABLE><BR><INPUT TYPE="submit" VALUE="Submit">
  96
  97 </FORM>
  98
  99 <BR>
 100 <FONT SIZE=-2>If you don't understand what <I>check_block</I> and
 101 <I>list_source</I> mean, <B>LEAVE THEM BLANK</B>.  We mean it.</FONT>
 102
 103 <% include('/elements/footer.html') %>