httemplate/edit/process/acct_snarf.html

   1 <% include( 'elements/process.html',
   2               'table'       => 'acct_snarf',
   3               'redirect'    => $redirect,
   4               'noerror_callback' => sub {
   5                 my( $cgi, $object ) = @_;
   6                 my $error = $object->svc_export;
   7                 #shit, not a good place for error handling :/
   8                 die $error if $error;
   9               },
  10           )
  11 %>
  12 <%init>
  13
  14 my $redirect = sub {
  15   my($cgi, $new) = @_;
  16   my $svcnum = $new->svcnum;
  17   popurl(3)."browse/acct_snarf.html?svcnum=$svcnum;snarfnum=";
  18 };
  19
  20 </%init>