X-Git-Url: http://git.rot13.org/?p=Biblio-Z3950.git;a=blobdiff_plain;f=server.pl;h=8ec3a614dbda746d4a6a0ea3bb1873f211d82193;hp=58235491b63d90f339c1b5beb5ad84e7033b94b0;hb=HEAD;hpb=e8bb9d46a481147e13d8fa2ae1716e439022e74b

diff --git a/server.pl b/server.pl
index 5823549..8ec3a61 100755
--- a/server.pl
+++ b/server.pl
@@ -11,6 +11,8 @@ use Aleph;
 use GoogleBooks;
 use vuFind;
 use DPLA;
+use AlephTR;
+use CROSBI;
 
 use Encode;
 
@@ -23,6 +25,13 @@ my $databases = {
 	'GOOGLEBOOKS' => 'GoogleBooks',
 	'HATHITRUST' => 'vuFind',
 	'DPLA'   => 'DPLA',
+	'MKUTUP' => 'AlephTR',
+	'CROSBI' => 'CROSBI',
+	'CROSBI-CASOPIS' => 'CROSBI',
+	'CROSBI-PREPRINT' => 'CROSBI',
+	'CROSBI-RKNJIGA' => 'CROSBI',
+	'CROSBI-ZBORNIK' => 'CROSBI',
+	'CROSBI-OSTALO' => 'CROSBI',
 };
 
 my $max_records = 10; # XXX configure this
@@ -64,7 +73,7 @@ diag "SearchHandle ",Dumper($self);
 diag "using $module for $database ", Dumper( $from );
 
 	eval { $query = $rpn->{query}->render( $from->usemap ); };
-	warn "ERROR: $@" if $@;
+	warn "ERROR: ", Dumper($@) if $@;
     if ( $@ && ref($@) ) {    ## Did someone/something report any errors?
         $self->{ERR_CODE} = $@->{errcode};
         $self->{ERR_STR}  = $@->{errstr};
@@ -268,7 +277,8 @@ warn "# usemap ", dump($usemap);
         }
     }
     if ( defined( $attributes->{5} ) ) {                ## No truncation
-        die { errcode => 113, errstr => 5 };
+#	die { errcode => 113, errstr => 5 };
+	warn "# truncation is ignored";
     }
     my $comp = $attributes->{6};
     if ($prefix) {
@@ -283,7 +293,7 @@ warn "# usemap ", dump($usemap);
 		warn "# using custom prefix_term query";
 		$q = $usemap->{prefix_term}->( $prefix, $self->{term} );
 	} else {
-    	$q = $prefix . $self->{term} . '*';
+		$q = $prefix . $self->{term} . '*';
 	}
 	print "# q: $q\n";
 	return $q;