Bug 15258: Fix Perl scripts declaring unused variables

[koha.git] / admin / koha2marclinks.pl

diff --git a/admin/koha2marclinks.pl b/admin/koha2marclinks.pl
index 8ba6b1c..9ccca37 100755 (executable)
--- a/admin/koha2marclinks.pl
+++ b/admin/koha2marclinks.pl
@@ -64,7 +64,6 @@ my $cache = Koha::Cache->get_instance();
 ################## ADD_FORM ##################################
 # called by default. Used to create form to add or  modify a record
 if ( $op eq 'add_form' ) {
-    my $data;
     my $sth =
       $dbh->prepare(
 "select tagfield,tagsubfield,liblibrarian as lib,tab from marc_subfield_structure where kohafield=? AND frameworkcode=''"