specify KOHA_DSN

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1365 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Input/Koha.pm b/lib/WebPAC/Input/Koha.pm
index 84a4e04..b61b4fe 100644 (file)
--- 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};