summaryrefslogtreecommitdiff
path: root/httemplate/misc/xmlhttp-pay_batch-note.html
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>