blob: ef59016313860416246da4b52d6a45b0b5eb670e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
<% $note %>\
<%init>
my ($batchnum, $format) = $cgi->param('arg');
my $note = '';
if ( $batchnum =~ /^(\d+)$/ ) {
my $pay_batch = FS::pay_batch->by_key($batchnum);
if ( $pay_batch and $format =~ /^(\w+)$/ ) {
my $class = "FS::pay_batch::$format";
if ( $class->can('download_note') ) {
# now we can actually do something
$note = $class->download_note($pay_batch);
}
}
}
</%init>
|