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 %><%= include('/elements/header.html', "$action Virtual Field Definition") %>
  25
  26 <% if ( $cgi->param('error') ) { %>
  27   <FONT SIZE="+1" COLOR="#ff0000">Error: <%= $cgi->param('error') %></FONT>
  28   <BR><BR>
  29 <% } %>
  30
  31 <FORM ACTION="<%=$p1%>process/generic.cgi" METHOD="POST">
  32
  33 <INPUT TYPE="hidden" NAME="table" VALUE="part_virtual_field">
  34 <INPUT TYPE="hidden" NAME="redirect_ok"
  35     VALUE="<%=popurl(2)%>browse/part_virtual_field.cgi">
  36 <INPUT TYPE="hidden" NAME="vfieldpart" VALUE="<%=
  37   $vfieldpart%>">
  38 Field #<B><%=$vfieldpart or "(NEW)"%></B><BR><BR>
  39
  40 <%=ntable("#cccccc",2)%>
  41   <TR>
  42     <TD ALIGN="right">Name</TD>
  43     <TD><INPUT TYPE="text" NAME="name" MAXLENGTH=15 VALUE="<%=
  44     $part_virtual_field->name%>"></TD>
  45   </TR>
  46   <TR>
  47     <TD ALIGN="right">Table</TD>
  48     <TD><% if ($action eq 'Add') { %>
  49       <SELECT SIZE=1 NAME="dbtable"><%
  50         my $dbdef = dbdef;  # ick
  51         foreach my $dbtable (sort { $a cmp $b } $dbdef->tables) {
  52           if ($dbtable !~ /^h_/
  53           and $dbdef->table($dbtable)->primary_key) { %>
  54             <OPTION VALUE="<%=$dbtable%>"><%=$dbtable%></OPTION><%
  55           }
  56         }
  57       %></SELECT><%
  58     } else { # Edit
  59     %><%=$part_virtual_field->dbtable%>
  60     <INPUT TYPE="hidden" NAME="dbtable" VALUE="<%=$part_virtual_field->dbtable%>">
  61  <% } %>
  62     </TD>
  63   <TR>
  64     <TD ALIGN="right">Label</TD>
  65     <TD><INPUT TYPE="text" NAME="label" MAXLENGTH="20" VALUE="<%=
  66     $part_virtual_field->label%>"></TD>
  67   </TR>
  68   <TR>
  69     <TD ALIGN="right">Length</TD>
  70     <TD><INPUT TYPE="text" NAME="length" MAXLENGTH=4 VALUE="<%=
  71     $part_virtual_field->length%>"></TD>
  72   </TR>
  73   <TR>
  74     <TD ALIGN="right">Check</TD>
  75     <TD><TEXTAREA COLS="20" ROWS="4" NAME="check_block"><%=
  76     $part_virtual_field->check_block%></TEXTAREA></TD>
  77   </TR>
  78   <TR>
  79     <TD ALIGN="right">List source</TD>
  80     <TD><TEXTAREA COLS="20" ROWS="4" NAME="list_source"><%=
  81     $part_virtual_field->list_source%></TEXTAREA></TD>
  82   </TR>
  83 </TABLE><BR><INPUT TYPE="submit" VALUE="Submit">
  84
  85 </FORM>
  86
  87 <BR>
  88 <FONT SIZE=-2>If you don't understand what <I>check_block</I> and
  89 <I>list_source</I> mean, <B>LEAVE THEM BLANK</B>.  We mean it.</FONT>
  90
  91 <%= include('/elements/footer.html') %>