httemplate/elements/contact.html

   1 % unless ( $opt{'js_only'} ) {
   2
   3   <INPUT TYPE="hidden" NAME="<%$name%>" ID="<%$id%>" VALUE="<% $curr_value %>">
   4
   5   <TABLE>
   6     <TR>
   7       <TD>
   8         <INPUT TYPE = "text"
   9                NAME = "<%$name%>_first"
  10                ID   = "<%$id%>_id"
  11                VALUE = "<% $contact->first |h %>"
  12                <% $onchange %>
  13         ><BR>
  14         <FONT SIZE="-2">First name</FONT>
  15       </TD>
  16       <TD>
  17         <INPUT TYPE = "text"
  18                NAME = "<%$name%>_last"
  19                ID   = "<%$id%>_id"
  20                VALUE = "<% $contact->get('last') |h %>"
  21                <% $onchange %>
  22         ><BR>
  23         <FONT SIZE="-2">Last name</FONT>
  24       </TD>
  25       <TD>
  26         <INPUT TYPE = "text"
  27                NAME = "<%$name%>_title"
  28                ID   = "<%$id%>_id"
  29                VALUE = "<% $contact->title |h %>"
  30                <% $onchange %>
  31         ><BR>
  32         <FONT SIZE="-2">Title/Position</FONT>
  33       </TD>
  34       <TD>
  35         <INPUT TYPE = "text"
  36                NAME = "<%$name%>_comment"
  37                ID   = "<%$id%>_id"
  38                VALUE = "<% $contact->comment |h %>"
  39                <% $onchange %>
  40         ><BR>
  41         <FONT SIZE="-2">Comment</FONT>
  42       </TD>
  43     </TR>
  44   </TABLE>
  45
  46 % }
  47 <%init>
  48
  49 my( %opt ) = @_;
  50
  51 my $name = $opt{'element_name'} || $opt{'field'} || 'contactnum';
  52 my $id = $opt{'id'} || 'contactnum';
  53
  54 my $curr_value = $opt{'curr_value'} || $opt{'value'};
  55
  56 my $onchange = '';
  57 if ( $opt{'onchange'} ) {
  58   $onchange = $opt{'onchange'};
  59   $onchange .= '(this)' unless $onchange =~ /\(\w*\);?$/;
  60   $onchange =~ s/\(what\);/\(this\);/g; #ugh, terrible hack.  all onchange
  61                                         #callbacks should act the same
  62   $onchange = 'onChange="'. $onchange. '"';
  63 }
  64
  65 my $contact;
  66 if ( $curr_value ) {
  67   $contact = qsearchs('contact', { 'contactnum' => $curr_value } );
  68 } else {
  69   $contact = new FS::contact {};
  70 }
  71
  72 </%init>