[Koha-cvs] koha/authorities authorities.pl [rel_3_0]

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Antoine Farnault <toins>        07/01/12 15:02:38

Modified files:
        authorities    : authorities.pl 

Log message:
        removing warn compilation.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/authorities/authorities.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.15.2.5&r2=1.15.2.6

Patches:
Index: authorities.pl
===================================================================
RCS file: /sources/koha/koha/authorities/authorities.pl,v
retrieving revision 1.15.2.5
retrieving revision 1.15.2.6
diff -u -b -r1.15.2.5 -r1.15.2.6
--- authorities.pl      18 Dec 2006 16:35:17 -0000      1.15.2.5
+++ authorities.pl      12 Jan 2007 15:02:38 -0000      1.15.2.6
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: authorities.pl,v 1.15.2.5 2006/12/18 16:35:17 toins Exp $
+# $Id: authorities.pl,v 1.15.2.6 2007/01/12 15:02:38 toins Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -34,9 +34,7 @@
 use vars qw( $tagslib);
 use vars qw( $authorised_values_sth);
 use vars qw( $is_a_modif );
-my $input = new CGI;
-my $z3950 = $input->param('z3950');
-my $logstatus=C4::Context->preference('Activate_log');
+
 my $itemtype; # created here because it can be used in 
build_authorized_values_list sub
 
 =item find_value
@@ -339,9 +337,9 @@
 #          MAIN 
 #=========================
 my $input = new CGI;
+my $z3950 = $input->param('z3950');
 my $error = $input->param('error');
 my $authid=$input->param('authid'); # if authid exists, it's a modif, not a 
new authority.
-my $z3950 = $input->param('z3950');
 my $op = $input->param('op');
 my $nonav = $input->param('nonav');
 my $myindex = $input->param('index');