httemplate/edit/svc_external.cgi

   1 <% include('/elements/header.html', "External service $action") %>
   2
   3 <% include('/elements/error.html') %>
   4
   5 <FORM ACTION="<%$p1%>process/svc_external.cgi" METHOD=POST>
   6
   7 <INPUT TYPE="hidden" NAME="svcnum" VALUE="<% $svcnum %>">
   8 Service #<B><% $svcnum ? $svcnum : "(NEW)" %></B>
   9 <BR><BR>
  10
  11 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $pkgnum %>">
  12
  13 <INPUT TYPE="hidden" NAME="svcpart" VALUE="<% $svcpart %>">
  14
  15 % my $id    = $svc_external->id;
  16 % my $title = $svc_external->title;
  17 %
  18 <% &ntable("#cccccc",2) %>
  19   <TR>
  20     <TD ALIGN="right">External ID</TD>
  21     <TD><INPUT TYPE="text" NAME="id" VALUE="<% $id %>"></TD>
  22   </TR>
  23   <TR>
  24     <TD ALIGN="right">Title</TD>
  25     <TD><INPUT TYPE="text" NAME="title" VALUE="<% $title %>"></TD>
  26   </TR>
  27
  28 % foreach my $field ($svc_external->virtual_fields) {
  29 %   if ( $part_svc->part_svc_column($field)->columnflag ne 'F' ) {
  30 %     # If the flag is X, it won't even show up in $svc_acct->virtual_fields.
  31       <% $svc_external->pvf($field)->widget( 'HTML',
  32                                              'edit',
  33                                              $svc_external->getfield($field)
  34                                            )
  35       %>
  36 %   }
  37 % }
  38
  39 </TABLE>
  40 <BR>
  41
  42 <INPUT TYPE="submit" VALUE="Submit">
  43 </FORM>
  44
  45 <% include('/elements/footer.html') %>
  46
  47 <%init>
  48
  49 die "access denied"
  50   unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific?
  51
  52 my( $svcnum,  $pkgnum, $svcpart, $part_svc, $svc_external );
  53 if ( $cgi->param('error') ) {
  54
  55   $svc_external = new FS::svc_external ( {
  56     map { $_, scalar($cgi->param($_)) } fields('svc_external')
  57   } );
  58   $svcnum = $svc_external->svcnum;
  59   $pkgnum = $cgi->param('pkgnum');
  60   $svcpart = $cgi->param('svcpart');
  61   $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart});
  62   die "No part_svc entry!" unless $part_svc;
  63
  64 } elsif ( $cgi->param('pkgnum') && $cgi->param('svcpart') ) { #adding
  65
  66   $cgi->param('pkgnum') =~ /^(\d+)$/ or die 'unparsable pkgnum';
  67   $pkgnum = $1;
  68   $cgi->param('svcpart') =~ /^(\d+)$/ or die 'unparsable svcpart';
  69   $svcpart = $1;
  70
  71   $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart});
  72   die "No part_svc entry!" unless $part_svc;
  73
  74   $svc_external = new FS::svc_external { svcpart => $svcpart };
  75
  76   $svcnum='';
  77
  78   $svc_external->set_default_and_fixed;
  79
  80 } else { #adding
  81
  82   my($query) = $cgi->keywords;
  83   $query =~ /^(\d+)$/ or die "unparsable svcnum";
  84   $svcnum=$1;
  85   $svc_external=qsearchs('svc_external',{'svcnum'=>$svcnum})
  86     or die "Unknown (svc_external) svcnum!";
  87
  88   my($cust_svc)=qsearchs('cust_svc',{'svcnum'=>$svcnum})
  89     or die "Unknown (cust_svc) svcnum!";
  90
  91   $pkgnum=$cust_svc->pkgnum;
  92   $svcpart=$cust_svc->svcpart;
  93
  94   $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart});
  95   die "No part_svc entry!" unless $part_svc;
  96
  97 }
  98 my $action = $svc_external->svcnum ? 'Edit' : 'Add';
  99
 100 my $p1 = popurl(1);
 101
 102 </%init>