fix utf-8 query encoding

diff --git a/CROSBI.pm b/CROSBI.pm
index 867ddc5..a15e70f 100644 (file)
--- a/CROSBI.pm
+++ b/CROSBI.pm
@@ -6,6 +6,7 @@ use strict;
 use MARC::Record;
 use Data::Dump qw/dump/;
 use DBI;
+use utf8;
 
 use base 'Scraper';
 
@@ -50,6 +51,9 @@ my $dbname = 'bibliografija';
 sub search {
        my ( $self, $query ) = @_;
 
+       utf8::decode( $query );
+       warn "QUERY",dump( $query );
+
        die "need query" unless defined $query;
 
        my $tsquery = join(' & ', split(/\s+/,$query) );
@@ -370,7 +374,7 @@ sub next_marc {
                );
        }
        push @f942, t => '1.01' if $row->{kategorija} =~ m/Znanstveni/;
-       push @f942, t => '1.01' if $row->{kategorija} =~ m/Strucni/;
+       push @f942, t => '1.04' if $row->{kategorija} =~ m/Strucni/;
 
        $marc->add_fields(942,' ',' ',
                @f942,