From 55898d491c598503da410d2f6376e85920fc1310 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 4 May 2011 13:44:07 +0000
Subject: [PATCH] specify KOHA_DSN

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1365 07558da8-63fa-0310-ba24-9fe276d99e06
---
 lib/WebPAC/Input/Koha.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/WebPAC/Input/Koha.pm b/lib/WebPAC/Input/Koha.pm
index 84a4e04..b61b4fe 100644
--- a/lib/WebPAC/Input/Koha.pm
+++ b/lib/WebPAC/Input/Koha.pm
@@ -15,14 +15,14 @@ WebPAC::Input::Koha - read MARC records from Koha
 
 =cut
 
-our $VERSION = '0.02';
+our $VERSION = '0.03';
 
 =head1 FUNCTIONS
 
 =head2 new
 
   my $input = new WebPAC::Input::Koha(
-  	dsn    => 'dbi:mysql:database=koha',
+  	dsn    => $ENV{KOHA_DSN}, # 'dbi:mysql:database=koha;host=koha.example.com',
 	user   => $ENV{KOHA_USER},
 	passwd => $ENV{KOHA_PASSWD},
   }
@@ -44,9 +44,9 @@ sub new {
 		$self->{_koha_size} = 0;
 	} else {
 
-		$arg->{dsn}    ||= 'dbi:mysql:database=koha';
+		$arg->{dsn}    ||= $ENV{KOHA_DSN};
 		$arg->{user}   ||= $ENV{KOHA_USER};
-		$arg->{passwd} ||= $ENV{KOHA_PASSWD},
+		$arg->{passwd} ||= $ENV{KOHA_PASSWD};
 		$arg->{sql}    ||= 'select biblionumber, marc from biblioitems order by biblionumber asc';
 		$arg->{sql}    .= ' limit ' . $arg->{limit} if $arg->{limit};
 		$arg->{sql}    .= ' offset ' . $arg->{offset} if $arg->{offset};
-- 
2.20.1