diff --git a/bin/slubsipbuilder.pl b/bin/slubsipbuilder.pl index 786af1ae8573570bed6c3ea3f9b7beaa743c2cc7..fddf6c8eda406a28975e79360f7a28807e45b2df 100755 --- a/bin/slubsipbuilder.pl +++ b/bin/slubsipbuilder.pl @@ -168,13 +168,6 @@ PATCH2 return $result; } - - -# the "old" approach does not handle umlauts or UTF8-chars above ASCII table -# old: http://swb2.bsz-bw.de/sru/DB=2.1/username=/password=/?query=pica.ppn+%3D+"494384174"&startRecord=1&maximumRecords=10&recordSchema=marcxml -# new: http://swb2.bsz-bw.de/sru/DB=2.1/username=/password=/?query=pica.ppn+%3D+"494384174"&startRecord=1&maximumRecords=10&recordSchema=marc21&recordPacking=xml&version=1.1 -# with stylesheet: -# http://swb2.bsz-bw.de/sru/DB=2.1/username=/password=/?query=pica.ppn+%3D+%22494384174%22&version=1.1&operation=searchRetrieve&stylesheet=http%3A%2F%2Fswb2.bsz-bw.de%2Fsru%2FDB%3D2.1%2F%3Fxsl%3DsearchRetrieveResponse&recordSchema=marc21&maximumRecords=10&startRecord=1&recordPacking=xml&sortKeys=none&x-info-5-mg-requestGroupings=none sub get_mods_from ($$) { # $mods = ($url, $ppn) my $url = shift; my $ppn = shift; # example: "457035137" for "Der Fichtelberg" @@ -188,7 +181,6 @@ sub get_mods_from ($$) { # $mods = ($url, $ppn) $xsl_dir = abs_path($xsl_dir); #### where to find XSLT - # my $marc_dc_url = 'http://www.loc.gov/standards/marcxml/xslt/MARC21slim2RDFDC.xsl'; my $marc_mods_url = 'http://www.loc.gov/standards/mods/v3/MARC21slim2MODS3-6.xsl'; my $marc_mods_path = "$xsl_dir/" . basename($marc_mods_url); my $marc_mods_patched_path = "$xsl_dir/" . basename($marc_mods_url, ".xsl") . ".patched.xsl"; @@ -231,11 +223,8 @@ sub get_mods_from ($$) { # $mods = ($url, $ppn) my $srusearchkey="pica.ppn"; my $sruvalue=$ppn; my $srumaxrecords=1; - #my $sruschema="marcxml"; my $sruschema="marc21"; - #my $sru = "${srubase}?query=${srusearchkey}+%3D+%22${sruvalue}%22&startRecord=1&maximumRecords=${srumaxrecords}&recordSchema=${sruschema}"; my $sru = "${srubase}?query=${srusearchkey}+%3D+%22${sruvalue}%22&startRecord=1&maximumRecords=${srumaxrecords}&recordSchema=${sruschema}&recordPacking=xml&version=1.1&stylesheet=http%3A%2F%2Fswb2.bsz-bw.de%2Fsru%2FDB%3D2.1%2F%3Fxsl%3DsearchRetrieveResponse"; - #p ($sru); # debug output my $record = $ua->get($sru); # ask SWB for given PPN if ($record->is_success) { # parse ZiNG repsonse, extract MARC-data