From d8b299bcda3833f69c9e81dfac152d122ddb9ee3 Mon Sep 17 00:00:00 2001 From: Chris Cormack Date: Sun, 13 Dec 2009 22:18:30 +1300 Subject: [PATCH] Removing global database handler, breaking tests and dangerous if we ever use mod_perl - All tests now passing --- C4/Csv.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/C4/Csv.pm b/C4/Csv.pm index 3c1c56d535..292cd4edad 100644 --- a/C4/Csv.pm +++ b/C4/Csv.pm @@ -35,11 +35,10 @@ $VERSION = 3.00; &GetMarcFieldsForCsv ); -my $dbh = C4::Context->dbh; # Returns all informations about csv profiles sub GetCsvProfiles { - + my $dbh = C4::Context->dbh; my $query = "SELECT * FROM export_format"; $sth = $dbh->prepare($query); @@ -53,7 +52,7 @@ sub GetCsvProfiles { sub GetMarcFieldsForCsv { my ($id) = @_; - + my $dbh = C4::Context->dbh; my $query = "SELECT marcfields FROM export_format WHERE export_format_id=?"; $sth = $dbh->prepare($query); @@ -67,6 +66,7 @@ sub GetMarcFieldsForCsv { # Returns informations aboout csv profiles suitable for html templates sub GetCsvProfilesLoop { # List of existing profiles + my $dbh = C4::Context->dbh; my $sth; my $query = "SELECT export_format_id, profile FROM export_format"; $sth = $dbh->prepare($query); -- 2.39.5