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