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>
 |