added sane defaults if not specified in configuration file

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

diff --git a/lib/WebPAC/Input/Koha.pm b/lib/WebPAC/Input/Koha.pm
index 50a5103..2ae718b 100644 (file)
--- a/lib/WebPAC/Input/Koha.pm
+++ b/lib/WebPAC/Input/Koha.pm
@@ -42,6 +42,11 @@ sub new {
                $self->{_koha_size} = 0;
        } else {
 
+               $arg->{dsn}    ||= 'dbi:mysql:database=koha';
+               $arg->{user}   ||= $ENV{KOHA_USER};
+               $arg->{passwd} ||= $ENV{KOHA_PASSWD},
+               $arg->{sql}    ||= 'select biblioitemnumber as mfn, marc from biblioitems';
+
                $log->info("opening Koha database '$arg->{dsn}'");
 
                $self->{_dbh} = DBI->connect( $arg->{dsn}, $arg->{user}, $arg->{passwd}, { RaiseError => 1 } );