Allow Library select on new bookfund and term update.

[koha_gimpoz] / admin / currency.pl

diff --git a/admin/currency.pl b/admin/currency.pl
index f78f0e6..4140635 100755 (executable)
--- a/admin/currency.pl
+++ b/admin/currency.pl
@@ -40,14 +40,11 @@
 use strict;
 use CGI;
 use C4::Context;
-use C4::Output;
-use C4::Search;
-use HTML::Template;
 use C4::Auth;
-use C4::Interface::CGI::Output;
+use C4::Output;
 
 sub StringSearch  {
-       my ($env,$searchstring,$type)=@_;
+       my ($searchstring,$type)=@_;
        my $dbh = C4::Context->dbh;
        $searchstring=~ s/\'/\\\'/g;
        my @data=split(' ',$searchstring);
@@ -80,7 +77,7 @@ my ($template, $loggedinuser, $cookie)
     = get_template_and_user({template_name => "admin/currency.tmpl",
                              query => $input,
                              type => "intranet",
-                            flagsrequired => {parameters => 1, management => 1},
+                            flagsrequired => {parameters => 1},
                             authnotrequired => 0,
                              debug => 1,
                              });
@@ -163,8 +160,7 @@ if ($op eq 'add_form') {
 } else { # DEFAULT
        $template->param(else => 1);
 
-       my $env;
-       my ($count,$results)=StringSearch($env,$searchfield,'web');
+       my ($count,$results)=StringSearch($searchfield,'web');
        my @loop;
        my $toggle = 'white';
        for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
@@ -194,9 +190,5 @@ if ($op eq 'add_form') {
                                 nextpage => $offset+$pagesize);
        }
 } #---- END $OP eq DEFAULT
-$template->param(intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
-               intranetstylesheet => C4::Context->preference("intranetstylesheet"),
-               IntranetNav => C4::Context->preference("IntranetNav"),
-               );
 output_html_with_http_headers $input, $cookie, $template->output;