added CROSBI-OSTALO

diff --git a/CROSBI.pm b/CROSBI.pm
index 29b3b35..2c9b9ab 100644 (file)
--- a/CROSBI.pm
+++ b/CROSBI.pm
@@ -347,9 +347,9 @@ sub next_marc {
        }
 
        # fake date for Koha import
-       $marc->add_fields(260,' ',' ',
-               c => $row->{godina},
-       );
+       #$marc->add_fields(260,' ',' ',
+       #       c => $row->{godina},
+       #);
 
        $marc->add_fields(300,' ',' ',
                a => page_range('',$row->{stranica_prva},$row->{stranica_zadnja}),
@@ -466,6 +466,12 @@ sub next_marc {
                g => page_range('str. ',$row->{stranica_prva}, $row->{stranica_zadnja}),
        );
 
+       } elsif ( $self->{_table} =~ m/ostalo/ ) {
+
+       $marc->add_fields(773,'0',' ',
+               t => $row->{izvornik},
+       );
+
        } else {
                die "ERROR: 773 undefined in row ",dump($row);
        }
@@ -497,7 +503,7 @@ sub next_marc {
 
        my @f942 = (
                c => $f942c->{ $self->{_table} } || die "ERROR no table $self->{_table} in ".dump($f942c),
-       );
+       ) if $self->{_table} !~ m/ostalo/;
 
        if ( $row->{status_rada} ) {
                push @f942, (
@@ -532,6 +538,10 @@ sub next_marc {
 
                push @f942, v => $row->{vrst_recenzije};
 
+       } elsif ( $self->{_table} =~ m/ostalo/ ) {
+
+               # XXX 
+
        } else {
                die "ERROR _table $self->{_table}";
        }

diff --git a/server.pl b/server.pl
index 7b02608..8ec3a61 100755 (executable)
--- a/server.pl
+++ b/server.pl
@@ -31,6 +31,7 @@ my $databases = {
        'CROSBI-PREPRINT' => 'CROSBI',
        'CROSBI-RKNJIGA' => 'CROSBI',
        'CROSBI-ZBORNIK' => 'CROSBI',
+       'CROSBI-OSTALO' => 'CROSBI',
 };
 
 my $max_records = 10; # XXX configure this

diff --git a/t/6-CROSBI.t b/t/6-CROSBI.t
index 2a01ef6..fecc12b 100755 (executable)
--- a/t/6-CROSBI.t
+++ b/t/6-CROSBI.t
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 
-use Test::More tests => 21;
+use Test::More tests => 22;
 
 my $search = join(' ', @ARGV) || 'fti_au:denis bratko';
 
@@ -11,7 +11,7 @@ use_ok 'CROSBI';
 
 ok( my $o = CROSBI->new(), 'new' );
 
-foreach my $database ( qw( CROSBI-CASOPIS CROSBI-PREPRINT CROSBI-RKNJIGA CROSBI-ZBORNIK ) ) {
+foreach my $database ( qw( CROSBI-CASOPIS CROSBI-PREPRINT CROSBI-RKNJIGA CROSBI-ZBORNIK CROSBI-OSTALO ) ) {
        diag $o->{database} = $database;
 
 ok( my $hits = $o->search( $search ), "search: $search" );