use Algorithm::CheckDigits;
use Text::Unaccent;
use DateTime;
+use XML::Simple;
my $ferweb_csv = 'report_62836_1026_Aktivni_studenti.csv';
my $dt = DateTime->now()->add( years => 1 );
die "$ferweb_csv : $!" unless -r $ferweb_csv;
+my $koha_conf = XMLin('/etc/koha/sites/fer/koha-conf.xml');
+
my $c = DBI->connect("dbi:CSV:","","", { RaiseError => 1, f_ext => '.csv', f_encoding => 'utf-8', csv_sep_char => ';' }) || die $dbi::errstr;
-my $k = DBI->connect("dbi:mysql:database=koha_fer","","", { RaiseError => 1, AutoCommit => 0, mysql_enable_utf8 => 1 }) || die $DBI::errstr;
+my $k = DBI->connect("dbi:mysql:database=" . $koha_conf->{config}->{database}, $koha_conf->{config}->{user}, $koha_conf->{config}->{pass},
+ { RaiseError => 1, AutoCommit => 0, mysql_enable_utf8 => 1 }) || die $DBI::errstr;
my $ferweb_table = $ferweb_csv;
$ferweb_table =~ s/\.csv//i;