- removed outdated comments

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