# Suite 330, Boston, MA 02111-1307 USA
use strict;
+use C4::Auth;
use C4::Output;
+use C4::Interface::CGI::Output;
use CGI;
use HTML::Template;
use C4::Search;
$amount = -$amount;
my $type=$input->param('type');
manualinvoice($bornum,$itemnum,$desc,$type,$amount);
- print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=$bornum");
+ print $input->redirect("/cgi-bin/koha/boraccount.pl?bornum=$bornum");
} else {
- my $template = gettemplate("mancredit.tmpl");
+ my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "mancredit.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
$template->param( bornum => $bornum);
- print "Content-Type: text/html\n\n", $template->output;
+ print $input->header(
+ -type => guesstype($template->output),
+ -cookie => $cookie
+ ),$template->output;
+
}