From d4233cf1dd1bd7353f38fbd1d79de79c47296486 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 22 Mar 2012 14:05:22 +0100
Subject: [PATCH] Bug 7799 - admin/marctagstructure.pl plack scoping

duplicate_framework needs $dbh so we get it from C4::Context

Signed-off-by: Matthias Meusburger <matthias.meusburger@biblibre.com>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
---
 admin/marctagstructure.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/admin/marctagstructure.pl b/admin/marctagstructure.pl
index 92e0d99b19..a86d78841b 100755
--- a/admin/marctagstructure.pl
+++ b/admin/marctagstructure.pl
@@ -348,6 +348,7 @@ sub StringSearch  {
 #
 sub duplicate_framework {
 	my ($newframeworkcode,$oldframeworkcode) = @_;
+	my $dbh = C4::Context->dbh;
 	my $sth = $dbh->prepare("select tagfield,liblibrarian,libopac,repeatable,mandatory,authorised_value from marc_tag_structure where frameworkcode=?");
 	$sth->execute($oldframeworkcode);
 	my $sth_insert = $dbh->prepare("insert into marc_tag_structure (tagfield, liblibrarian, libopac, repeatable, mandatory, authorised_value, frameworkcode) values (?,?,?,?,?,?,?)");
-- 
2.39.5