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