httemplate/edit/elements/svc_Common.html

   1 <% include( 'edit.html',
   2
   3                  'menubar' => [],
   4
   5                  'error_callback' => sub {
   6                    my( $cgi, $svc_x ) = @_;
   7                    #$svcnum = $svc_x->svcnum;
   8                    $pkgnum  = $cgi->param('pkgnum');
   9                    $svcpart = $cgi->param('svcpart');
  10
  11                    $part_svc = qsearchs( 'part_svc', { svcpart=>$svcpart });
  12                    die "No part_svc entry!" unless $part_svc;
  13
  14                    $svc_x->setfield('svcpart', $svcpart);
  15                  },
  16
  17                  'edit_callback' => sub {
  18                    my( $cgi, $svc_x ) = @_;
  19                    #$svcnum = $svc_x->svcnum;
  20                    my $cust_svc = $svc_x->cust_svc
  21                      or die "Unknown (cust_svc) svcnum!";
  22
  23                    $pkgnum  = $cust_svc->pkgnum;
  24                    $svcpart = $cust_svc->svcpart;
  25
  26                    $part_svc = qsearchs ('part_svc', { svcpart=>$svcpart });
  27                    die "No part_svc entry!" unless $part_svc;
  28                  },
  29
  30                  'new_hashref_callback' => sub {
  31                    #my( $cgi, $svc_x ) = @_;
  32
  33                    { svcpart => $svcpart };
  34
  35                  },
  36
  37                  'new_callback' => sub {
  38                     my( $cgi, $svc_x ) = @_;;
  39
  40                     $part_svc = qsearchs( 'part_svc', { svcpart=>$svcpart });
  41                     die "No part_svc entry!" unless $part_svc;
  42
  43                     #$svcnum='';
  44
  45                     $svc_x->set_default_and_fixed;
  46
  47                  },
  48
  49                  'field_callback' => sub {
  50                    my ($cgi, $object, $f) = @_;
  51                    my $columndef = $part_svc->part_svc_column($f->{'field'});
  52                    my $flag = $columndef->columnflag;
  53                    if ( $flag eq 'F' ) {
  54                      $f->{'type'} = length($columndef->columnvalue)
  55                                       ? 'fixed'
  56                                       : 'hidden';
  57                      $f->{'value'} = $columndef->columnvalue;
  58                    }
  59                  },
  60
  61                  'html_init' => sub {
  62                    my $cust_main;
  63                    if ( $pkgnum ) {
  64                      my $cust_pkg = qsearchs('cust_pkg', {'pkgnum' => $pkgnum});
  65                      $cust_main = $cust_pkg->cust_main if $cust_pkg;
  66                    }
  67                    $cust_main
  68                      ? include( '/elements/small_custview.html',
  69                                 $cust_main,
  70                                 '',
  71                                 1,
  72                                 popurl(2). "view/cust_main.cgi"
  73                               ). '<BR>'
  74                      : '';
  75
  76                  },
  77
  78                  'html_table_bottom' => sub {
  79                    my $svc_x = shift;
  80                    my $html = '';
  81                    foreach my $field ($svc_x->virtual_fields) {
  82                      if ($part_svc->part_svc_column($field)->columnflag ne 'F'){
  83                        # If the flag is X, it won't even show up
  84                        # in $svc_acct->virtual_fields.
  85                        $html .=
  86                          $svc_x->pvf($field)->widget( 'HTML',
  87                                                       'edit',
  88                                                       $svc_x->getfield($field)
  89                                                     );
  90                      }
  91                    }
  92                    $html;
  93                  },
  94
  95                  'html_bottom' => sub {
  96                    qq!<INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">!.
  97                    qq!<INPUT TYPE="hidden" NAME="svcpart" VALUE="$svcpart">!;
  98                  },
  99
 100                  %opt #pass through/override params
 101              )
 102 %>
 103 <%init>
 104
 105 my %opt = @_;
 106
 107 #my( $svcnum, $pkgnum, $svcpart, $part_svc );
 108 my( $pkgnum, $svcpart, $part_svc );
 109
 110 #get & untaint pkgnum & svcpart
 111 if ( ! $cgi->param('error')
 112      && $cgi->param('pkgnum') && $cgi->param('svcpart')
 113    )
 114 {
 115   $cgi->param('pkgnum') =~ /^(\d+)$/ or die 'unparsable pkgnum';
 116   $pkgnum = $1;
 117   $cgi->param('svcpart') =~ /^(\d+)$/ or die 'unparsable svcpart';
 118   $svcpart = $1;
 119   #$cgi->delete_all(); #so edit.html treats this correctly as new??
 120 }
 121
 122 </%init>