From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 17 Jan 2018 12:17:51 +0000 (+0100)
Subject: added CROSBI-OSTALO
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=1c58c81c99fc19e04afc8d2e4dc14a726664ef0d;p=Biblio-Z3950.git

added CROSBI-OSTALO
---

diff --git a/CROSBI.pm b/CROSBI.pm
index 29b3b35..2c9b9ab 100644
--- 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
--- 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
--- 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" );