you cannot search for record syntax "USmarc" if the server
response was in lowercase "usmarc".
- Run only one instance of the IRSpy script at a time.
+ - Use iconv character-set name "UTF-8" rather than "UTF8" as
+ the latter is for some reason not supported by the iconv
+ package in the Macports collection.
+ - _irspy_identifier2target() recognises and allows for
+ comma-separated ZOOM-style options at the front of IRSpy
+ identifiers.
1.01 Mon Jul 16 12:51:19 BST 2007
- Web UI pages to add or upload a new target are now publicly
use ZOOM::IRSpy::Utils qw(isodate);
use Text::Iconv;
-my $conv = new Text::Iconv("LATIN1", "UTF8");
+my $conv = new Text::Iconv("LATIN1", "UTF-8");
sub start {
confess "_irspy_identifier2target(): id is undefined"
if !defined $id;
- my($protocol, $target) = ($id =~ /(.*?):(.*)/);
+ my($prefix, $protocol, $target) = ($id =~ /([^:]*,)?(.*?):(.*)/);
if (uc($protocol) eq "Z39.50" || uc($protocol) eq "TCP") {
- return "tcp:$target";
+ return "${prefix}tcp:$target";
} elsif (uc($protocol) eq "SRU") {
- return "sru=get,http:$target";
+ return "${prefix}sru=get,http:$target";
} elsif (uc($protocol) eq "SRW") {
- return "sru=srw,http:$target";
+ return "${prefix}sru=srw,http:$target";
}
warn "_irspy_identifier2target($id): unrecognised protocol '$protocol'";