-
-END
+my $paybatch = "webui-$_date-$$-". rand() * 2**32;
-print qq!Invoice #$invnum!;
+my $title = 'Post '. $payby{$payby}. ' payment';
+$title .= " against Invoice #$linknum" if $link eq 'invnum';
-print qq!
Date: !, time2str("%D",$_date), qq!!;
-
-print qq!
Amount \$!;
-
-print qq!
Payby: $payby!;
+%>
-#payinfo (check # now as payby="BILL" hardcoded.. what to do later?)
-print qq!
Check #!;
+<%= include("/elements/header.html",$title, '') %>
+
+<% if ( $cgi->param('error') ) { %>
+Error: <%= $cgi->param('error') %>
+
+<% } %>
+
+
+
+
+
+
+