-# use Smart::Comments;
-
-my $dbh = C4::Context->dbh;
-my $input = new CGI;
-my $script_name="/cgi-bin/koha/admin/aqbookfund.pl";
-my $bookfundid=$input->param('bookfundid');
-my $branchcodeid=$input->param('branchcode')|'';
-my $pagesize = 10;
-my $op = $input->param('op') || '';
-
-my ($template, $borrowernumber, $cookie)
- = get_template_and_user(
- {template_name => "admin/aqbookfund.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {parameters => 1},
- debug => 1,
- }
- );
-
-if ($op) {
- $template->param(
- script_name => $script_name,
- $op => 1,
- ); # we show only the TMPL_VAR names $op
-}
-else {
- $template->param(script_name => $script_name,
- else => 1); # we show only the TMPL_VAR names $op
-}
-$template->param(action => $script_name);
+$template->param(
+ action => $script_name,
+ script_name => $script_name,
+ ($op||'else') => 1,
+);