stop on empty next_marc

[Biblio-Z3950.git] / COBISS.pm

diff --git a/COBISS.pm b/COBISS.pm
index b2150c6..81314ea 100644 (file)
--- a/COBISS.pm
+++ b/COBISS.pm
@@ -95,7 +95,8 @@ sub search {
 
        die "need query" unless defined $query;
 
-       my $url = 'http://cobiss.izum.si/scripts/cobiss?ukaz=GETID&lani=en';
+#      my $url = 'http://cobiss.izum.si/scripts/cobiss?ukaz=GETID&lani=en';
+       my $url = 'http://www.cobiss.ba/scripts/cobiss?ukaz=GETID&lani=en';
 
 diag "get $url";