[[buechereielektrik:unapi:unapi.inc.php]]
You are here: start » buechereielektrik » unapi » unapi.inc.php
Show page
AdminRecent ChangesSitemap

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revisionPrevious revision
Next revision		Previous revision
buechereielektrik:unapi:unapi.inc.php [2010-01-12 20:56] – Added further mappings in getArrayNice. Extended types for monographies. strolsbuechereielektrik:unapi:unapi.inc.php [2011-01-20 17:12] (current) – content moved strols
Line 1: Line 1:
-<code php unAPI.inc.php> +This content was moved to [[https://github.com/rosenke/unapi4pica|gitgub]].
-<?php +
- +
-/* +
- *  Purpose +
- * +
- *  These objects and their respective functions follow +
- *  - PicaRecord +
- *  - Picappn +
- * +
- *  The functions follow +
- *  - final_result +
- * +
- *  PHP5 and its curl module are recommended. +
- */ +
- +
-/* +
- *  Copyright +
- * +
- *  Copyright 2008 2009 Goetz Hatop <hatop@ub.uni-marburg.de>. +
- *  Goetz Hatop's original Version can be found at +
- *  <ftp://ftp.ub.uni-marburg.de/pub/research/unapi.tar.gz>. +
- * +
- *  Copyright 2009 2010 Stephan Rosenke <rosenke@ulb.tu-darmstadt.de> or +
- *  <r01-551@r0s.de>. +
- */ +
- +
-/* +
- *  License +
- * +
- *  This program is free software: you can redistribute it and/or modify +
- *  it under the terms of the GNU General Public License as published by +
- *  the Free Software Foundation, either version 3 of the License, or +
- *  (at your option) any later version. +
- * +
- *  This program is distributed in the hope that it will be useful, +
- *  but WITHOUT ANY WARRANTY; without even the implied warranty of +
- *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the +
- *  GNU General Public License for more details. +
- * +
- *  You should have received a copy of the GNU General Public License +
- *  along with this program.  If not, see <http://www.gnu.org/licenses/>. +
- */ +
- +
-/* +
- *  Version +
- * +
- *  0.5 +
- */ +
- +
-/* +
- *  Changelog +
- * +
- *  20100112: Added further mappings in getArrayNice. +
- * Extended types for monographies. +
- *  20100111: Added function getOpenUrlKev() to class "Picappn". +
- * Removed functions "getKeysText" and "getKeysBibTex" from class +
- * "Picappn". +
- *  20100110: Added input sanitising for $ppn. +
- *  20100109: Some style improvements, added comments. +
- *  20091220: Check whether curl-Module is available, if not use +
- * file_get_contents(). +
- * Some minor bugfixes. +
- *  20091215: Added function "getJson" to class "Picappn". +
- * Made ISBN in getBibTex() unique. +
- * Filtered some characters in getArrayNice(). +
- *  20091214: Added function "convOutputNice", "getArrayNice", "getBibsonomy", +
- * "getKeysText" and "getKeysBibTex" to class "Picappn". +
- * Handled empty records for dc and rdf. +
- *  20091213: Added function "convOutput" to class "Picappn". +
- * Defined text-format. +
- * Defined bibtex-format. +
- *  20091211: Added function "final_result". +
- *  20091210: Put class "Picappn" to PicaRecord.php. +
- * Ordered functions alphabetically. +
- * Added functions "getArray", "getPlain" and  "getText" to class +
- * "Picappn". +
- * Added functions "decodePicaArray", "getArray" and "getPlain" to +
- * class "PicaRecord". +
- *  20091210: Started with Goetz Hatop's version of 2009-12-08. +
- */ +
- +
-/* +
- *  Readme +
- * +
- *  If you are using PHP4 then search for "comment out if using PHP4" and +
- *  comment it out, unClient.php won't work then. +
- */ +
- +
-/* +
- *  set some user-defineable variables +
- */ +
- +
-//  URL-prefix for XML-interface +
-$opac_url = 'http://pica1l.lhb.tu-darmstadt.de/DB=LHBDA/XML=1.0/PPN?PPN='; +
- +
-//  URL-prefix for Bibsonomy's BibTeX-import +
-$bibsonomy_url = 'http://www.bibsonomy.org/BibtexHandler?requTask=upload&selection='; +
- +
-//  Regex for checking if input is PPN +
-$pattern_ppn = '/^[0-9]{8}[0-9Xx]$/'; +
- +
-//  Array for filtering extracted bibliographic data +
-$filter_nice = array( +
- '{' => '', +
- '}' => '' +
- ); +
- +
-//  Hostname for generating rfr_id for OpenURL +
-$rfr_id_hostname= 'example.com'; +
- +
-/* +
- * +
- *  DO NOT MESS BEHIND THIS LINE +
- * +
- */ +
- +
-/* +
- *  class PicaRecord +
- *  represents a bibliographic data record from oclc/pica LBS  +
- */ +
-class PicaRecord { +
-  // 15 dublin core elements http://dublincore.org/documents/dces/ +
-  var $contributor, $coverage, $creator, $date, $description, $format; +
-  var $identifier, $language, $publisher, $related, $rights, $source; +
-  var $subject, $title, $type; +
-  // 1 for me +
-  var $signatur; +
- +
-  function PicaRecord() { +
-     //  default values +
-     $this->type = "Text"; +
-     $this->rights = "--"; +
-     $this->description = ""; +
-  } +
- +
-  /** private -- make pica data behave well */ +
-  function decodePica($str) { +
-    $tag = ""; +
-    $res = ""; +
-    for ($i=0;$i<=strlen($str)-1;++$i) { +
-        $ch = substr($str,$i,1); +
-        switch (ord($ch)) { +
-          case 31: //information separator one +
-             $ch = substr($str,++$i,1); //new tag ahead +
-             if ($tag!="") { +
-                $res .= "</".$tag.">"; +
-                $tag = $this->getTagName($ch); +
-                $res .= "<".$tag.">"; +
-             } else { +
-                $tag = $this->getTagName($ch); +
-                $res .= "<".$tag.">"; +
-             } +
-             break; +
- +
-          case 30: //information separator two, another field to follow +
-             $res .= "</".$tag.">\n"; +
-             $tag = ""; +
-             break; +
- +
-          case 226: //pica two byte char accent like "é"; +
-             $ch = substr($str,++$i,1); // read one char ahead +
-             $res .= $this->getCode2($ch); +
-             break; +
- +
-          default: +
-             $res .= $this->getCode($ch); +
-             break; +
-        } //switch +
- +
-    } +
-    $res .= "</".$tag.">"; +
-    return $res; +
-  } +
- +
-  /** private -- make pica data behave well and put them to an array*/ +
-  function decodePica_array($str) { +
-    $tag = ""; +
-    $res = ""; +
-    for ($i=0;$i<=strlen($str)-1;++$i) { +
-        $ch = substr($str,$i,1); +
-        switch (ord($ch)) { +
-          case 31: //information separator one +
-             $ch = substr($str,++$i,1); //new tag ahead +
-             $tag = $this->getTagName($ch); +
-             $res[$tag] = ""; +
-             break; +
-          case 30: //information separator two, another field to follow +
-             break; +
-          case 226: //pica two byte char accent like "é"; +
-             $ch = substr($str,++$i,1); // read one char ahead +
-             $res[$tag] .= $this->getCode2($ch); +
-             break; +
-          default: +
-             $res[$tag] .= $this->getCode($ch); +
-             break; +
-        } //switch +
-    } +
-    return $res; +
-  } +
- +
-  /** public -- transform raw pica data to array */ +
-  function getArray($str) { +
-     // pica record separator is ascii record separator +
-     $lines = explode(chr(30), $str); +
-     $res = ""; +
-     foreach ($lines as $line) { +
-       $in1 = ltrim($line); +
-       $ch1 = substr($in1,1,1); +
-       //first char between 0-9 +
-       if (ord($ch1) >47 && ord($ch1)<58) { +
-          $pos = strpos($in1, ' '); +
-          $key = substr($in1,0,$pos); +
-          $val = substr($in1,$pos+1); +
-          $val = $this->decodePica_array($val); +
-          $pica_array[$key] = $val; +
-       } else { +
-         //not valid +
-       } +
-     } +
-     $res = $pica_array; +
-     return $res; +
-  } +
- +
-  /** private -- recode pica charset */ +
-  function getCode($ch) { +
-     $xx = ord($ch); +
-     switch($xx) { +
-       //case 30: return "\n"; //information separator two +
-       //case 31: return "::"; //information separator one +
-       case 10: return "\n"; // ascii line feed +
-       // case 60: return "["; +
-       case 60: return "&lt;"; +
-       // case 62: return "]"; +
-       case 62: return "&gt;"; +
-       case 64: return ""; // @ pica no sort sign +
-       case 209: return "ä"; +
-       case 210: return "ö"; +
-       case 211: return "ü"; +
-       case 216: return "ß"; +
-       case 193: return "Ä"; +
-       case 194: return "Ö"; +
-       case 195: return "Ü"; +
-       default: +
-          if ($xx<30 || $xx>128) { +
-             return "[".$xx."]"; +
-          } +
-          return $ch; +
-     } +
-  } +
- +
-  /** private -- not complete set of double byte pica characters started with +
-      an accent sign */ +
-  function getCode2($ch) { +
-     switch($ch) { +
-       case 'e' : return "é"; +
-       case 'u' : return "ú"; +
-       case 'a' : return "á"; +
-       case 'o' : return "ó"; +
-       case 'E' : return "É"; +
-       case 'c' : return "ć"; +
-       case 's' : return "ś"; +
-       case 'z' : return "ś"; +
-       default: +
-             return $ch; +
-     } +
-  } +
- +
-  /** public -- return simple dublin core record from pica data */ +
-  //used by unapi +
-  function getDublinCore($str) { +
-    $res = $this->getXmlData($str); //parse dublin core +
- +
-    if (empty($res)) return ""; +
- +
-    $res  = "<?xml version=\"1.0\" ?>\n"; +
-    $res .="<record>\n"; +
-    $res .= "<contributor>".$this->contributor."</contributor>\n"; +
-    $res .= "<coverage>".$this->coverage."</coverage>\n"; +
-    $res .= "<creator>".$this->creator."</creator>\n"; +
-    $res .= "<date>".$this->date."</date>\n"; +
-    $res .= "<description>".$this->description."</description>\n"; +
-    $res .= "<format>".$this->format."</format>\n"; +
-    $res .= "<identifier>".$this->identifier."</identifier>\n"; +
-    $res .= "<language>".$this->language."</language>\n"; +
-    $res .= "<publisher>".$this->publisher."</publisher>\n"; +
-    $res .= "<related>".$this->related."</related>\n"; +
-    $res .= "<rights>".$this->rights."</rights>\n"; +
-    $res .= "<source>".$this->source."</source>\n"; +
-    $res .= "<subject>".$this->subject."</subject>\n"; +
-    $res .= "<title>".$this->title."</title>\n"; +
-    $res .= "<type>".$this->type."</type>\n"; +
-    $res .="</record>\n"; +
-    return $res; +
-  } +
- +
-  /** public -- transform raw pica plus to a more readable diagnostic format */ +
-  //used by unapi +
-  function getPicaPlus($str) { +
-    $res = $this->transcribe_pica_utf8($str); +
-    $res = $this->transcribe_pica_rec($res); +
-    return $res; +
-  } +
- +
-  /** private -- rename numeric tags not allowed in xml */ +
-  function getTagName($ch) { +
-     if (ord($ch) >47 && ord($ch)<58) { +
-        return "x".$ch; +
-     } else { +
-        return $ch; +
-     } +
-  } +
- +
-  /** public -- transform raw pica data to valid xml */ +
-  //used by unapi +
-  function getXmlData($str) { +
-     // pica record separator is ascii record separator +
-     $lines = explode(chr(30), $str); +
-     $res = ""; +
-     foreach ($lines as $line) { +
-       $in1 = ltrim($line); +
-       $ch1 = substr($in1,1,1); +
-       //first char between 0-9 +
-       if (ord($ch1) >47 && ord($ch1)<58) { +
-          $pos = strpos($in1, ' '); +
-          $key = substr($in1,0,$pos); +
-          $val = substr($in1,$pos+1); +
-          $val = $this->decodePica($val); +
-          //$res .= "[$key] [$val]\n"; +
-          $res .= "<field tag=\"$key\">$val</field>\n"; +
-          //side effect to scan dublin core elements +
-          $this->readData($key,$val); +
-       } else { +
-         //not valid +
-       } +
-     } +
-     return $res; +
-  } +
- +
-  /** private -- read dublin core elements */ +
-  function readData($key, $val) { +
-     //switch on first 4 letters to catch 041A/001 +
-     switch (substr($key,0,4)) { +
-       case '028C': //Sonstige beteiligte bzw. verantwortliche Personen +
-            $this->contributor .= " ".$this->readTag($val, "x8"); +
-            break; +
-       case '201@': //unkown +
-            // The spatial or temporal topic of the resource +
-            // $this->coverage = $this->readTag($val, "v"); +
-            break; +
-       case '209S': //unkown. DOI ? +
-            //The spatial or temporal topic of the resource +
-            $this->identifier = $this->readTag($val, "u"); +
-            break; +
-       case '028A': //creator +
-            $this->creator = $this->readTag($val, "x8"); +
-            break; +
-       case '028B': //2. und weitere Verfasser +
-            // $this->creator .= " ".$this->readTag($val, "x8"); +
-            break; +
-       case '011@': //date Erscheinungsjahr +
-            $this->date = $this->readTag($val, "a"); +
-            break; +
-       case '004A': //ISBN +
-            $this->identifier = $this->readTag($val, "x0"); +
-            break; +
-       case '009P': //Elektronische Adresse der Personen-Website +
-            //related : A related resource. +
-            $this->related = $this->readTag($val, "u"); +
-            break; +
-       case '009Q': //Elektronische Adresse der Online-Ressource +
-            //related : A related resource. +
-            $this->related = $this->readTag($val, "u"); +
-            break; +
-       case '034I': //format : file format or dimensions of the resource. +
-            $this->format .= " ".$this->readTag($val, "a"); +
-            break; +
-       case '034D': //Seitenanzahl +
-            $this->format .= " ".$this->readTag($val, "a"); +
-            break; +
-       case '036G': //Ungezählte Schriftenreihen +
-            $this->subject = $this->readTag($val, "a")." "; +
-            break; +
-       case '209A': //Signaturen +
-            $this->signatur = $this->readTag($val, "a"); +
-            break; +
-       case '010@': //language +
-            $this->language = $this->readTag($val, "a"); +
-            break; +
-       case '033A': //publisher +
-            $pub1 = $this->readTag($val, "p"); +
-            $pub2 = $this->readTag($val, "n"); +
-            $this->publisher = $pub1." [".$pub2."]"; +
-            break; +
-       case '4201': //rights : Information about rights held in and over +
-            $this->rights = $this->readTag($val, "a"); +
-            break; +
-       case '4219': //rights : Information about rights held in and over +
-            $this->rights = $this->readTag($val, "a"); +
-            break; +
-       case '036D': //nicht dokumentiert: Sammelband Gesamtausgabe +
-            //source : A related resource from which the described is derived. +
-            $this->source = $this->readTag($val, "x8")." "; +
-            //$this->source .= $this->readTag($val, "l"); +
-            break; +
-       case '045B': //DDC +
-            $this->subject = "DDC: ".$this->readTag($val, "a"); +
-            break; +
-       case '045Z': //RVK +
-            $this->subject = $this->readTag($val, "a"); +
-            break; +
-       case '041A': //unknown +
-            if ($this->description !== "") $this->description .= ", "; +
-            $this->description .= $this->readTag($val, "x8"); +
-            break; +
-       case '044A': //unknown +
-            if ($this->description !== "") $this->description .= ", "; +
-            $this->description .= $this->readTag($val, "a"); +
-            break; +
-       case '044N': //Maschinell erstellte Indexeintraege +
-            if ($this->description !== "") $this->description .= ", "; +
-            $this->description .= $this->readTag($val, "a"); +
-            break; +
-       case '044K': //Einzelschlagwort +
-            if ($this->description !== "") $this->description .= ", "; +
-            $this->description .= $this->readTag($val, "x8"); +
-            break; +
-       case '041A': //Blackwell subjects +
-            if ($this->description !== "") $this->description .= ", "; +
-            $this->description .= $this->readTag($val, "x8"); +
-            break; +
-       case '021A': //Hauptsachtitel +
-            $this->title = $this->readTag($val, "a"); +
-            $subtitle = $this->readTag($val, "d"); +
-            if ($subtitle!="") $this->title .= ": ".$subtitle; +
-            break; +
-       case '016A': //Materialspezifische Codes für elektronische Ressourcen +
-            //type The nature or genre of the resource. +
-            $this->type = $this->readTag($val, "a"); +
-            break; +
-       default: +
-            break; +
-     } +
-     //return $res; +
-  } +
- +
-  /* +
-   *  public +
-   *  parse dublin core data +
-   *  Used by unClient.php +
-   *  **comment out if using PHP4** +
-   */ +
-  function readDublinCore($str) { +
-     $doc = new DomDocument(); +
-     $doc -> loadXML($str); +
-     $xp = new DomXPath($doc); +
-     $this->contributor = $xp->query("/record/contributor")->item(0)->nodeValue; +
-     $this->coverage = $xp->query("/record/coverage")->item(0)->nodeValue; +
-     $this->creator = $xp->query("/record/creator")->item(0)->nodeValue; +
-     $this->date = $xp->query("/record/date")->item(0)->nodeValue; +
-     $this->description = $xp->query("/record/description")->item(0)->nodeValue; +
-     $this->format = $xp->query("/record/format")->item(0)->nodeValue; +
-     $this->identifier = $xp->query("/record/identifier")->item(0)->nodeValue; +
-     $this->language = $xp->query("/record/language")->item(0)->nodeValue; +
-     $this->publisher = $xp->query("/record/publisher")->item(0)->nodeValue; +
-     $this->related = $xp->query("/record/related")->item(0)->nodeValue; +
-     $this->rights = $xp->query("/record/rights")->item(0)->nodeValue; +
-     $this->source = $xp->query("/record/source")->item(0)->nodeValue; +
-     $this->subject = $xp->query("/record/subject")->item(0)->nodeValue; +
-     $this->title = $xp->query("/record/title")->item(0)->nodeValue; +
-     $this->type = $xp->query("/record/type")->item(0)->nodeValue; +
-     return $res; +
-  } +
- +
-  /* +
-   *  public +
-   *  parse dublin core data +
-   *  experimental, does not work, so commented out +
-   */ +
-  /* +
-  function readRDF_DC($str) { +
-     $doc = new DomDocument(); +
-     $doc -> loadXML($str); +
-     $xp = new DomXPath($doc); +
-     $this->contributor = $xp->query("/rdf/dc:contributor")->item(0)->nodeValue; +
-     $this->coverage = $xp->query("/rdf/dc:coverage")->item(0)->nodeValue; +
-     $this->creator = $xp->query("/rdf/dc:creator")->item(0)->nodeValue; +
-     $this->date = $xp->query("/rdf/dc:date")->item(0)->nodeValue; +
-     $this->description = $xp->query("/rdf/dc:description")->item(0)->nodeValue; +
-     $this->format = $xp->query("/rdf/dc:format")->item(0)->nodeValue; +
-     $this->identifier = $xp->query("/rdf/dc:identifier")->item(0)->nodeValue; +
-     $this->language = $xp->query("/rdf/dc:language")->item(0)->nodeValue; +
-     $this->publisher = $xp->query("/rdf/dc:publisher")->item(0)->nodeValue; +
-     $this->related = $xp->query("/rdf/dc:related")->item(0)->nodeValue; +
-     $this->rights = $xp->query("/rdf/dc:rights")->item(0)->nodeValue; +
-     $this->source = $xp->query("/rdf/dc:source")->item(0)->nodeValue; +
-     $this->subject = $xp->query("/rdf/dc:subject")->item(0)->nodeValue; +
-     $this->title = $xp->query("/rdf/dc:title")->item(0)->nodeValue; +
-     $this->type = $xp->query("/rdf/dc:type")->item(0)->nodeValue; +
-     return $res; +
-  } +
-  */ +
- +
-  /** private -- read tag content from string */ +
-  function readTag($val, $tag) { +
-     $x = strpos($val,"<".$tag.">"); +
-     $y = strpos($val,"</".$tag.">"); +
-     if ($x===FALSE) return ""; +
-     return substr($val,$x+2+strlen($tag),$y-$x-2-strlen($tag)); +
-  } +
- +
-  /* +
-   *  public +
-   *  read XML data +
-   *  used by unClient.php +
-   */ +
-  function readXmlData($str) { +
-     $lines = explode("\n", $str); +
-     //$res = ""; +
-     foreach ($lines as $line) { +
-       $line = trim($line); +
-       if ($line=="") continue; +
-       $x = strpos($line, "<field tag="); +
-       if ($x!==0) continue; +
-       $y = strpos($line, "\"",12); +
-       $key = substr($line, 12, $y-12); +
-       $z = strpos($line, "</field>"); +
-       if ($z===FALSE) continue; +
-       $val = substr($line,$y+2, $z-$y-2); +
-       $this->readData($key, $val); +
-       //$res .= "[$key] [$val]\n"; +
-     } +
-     //return $res; +
-  } +
- +
-  /** private -- transcribe separators to diagnostic format */ +
-  function transcribe_pica_rec($str) { +
-     return strtr( $str, array( +
-       "\x1F" => "$", "\x1E" => "\n", "\x0A" => "\n" +
-     )); +
-  } +
- +
-  /** private -- pica charset handling (we want utf8) */ +
-  function transcribe_pica_utf8($str) { +
-     return strtr( $str, array( +
-       "\xD1" => "ä", "\xD2" => "ö", "\xD3" => "ü", "\xD8" => "ß", +
-       "\xC1" => "Ä", "\xC2" => "Ö", "\xC3" => "Ü" +
-     )); +
-  } +
-} +
- +
-/* +
- * end class PicaRecord +
- */ +
- +
-/* +
- *  class Picappn +
- *  get a pica record via pica xml web interface and return it +
- */ +
-class Picappn { +
-  //  declare some attributes +
-  var $opac; +
-  var $url; +
-  var $ppn; +
-  var $myself; +
- +
-  //  a picarecord +
-  var $prec; +
- +
-  //  constructor  +
-  function Picappn() { +
-    //  get global user-defineable $opac_url +
-    global $opac_url; +
-    //  preset some attributes +
-    $this->opac = $opac_url; +
-    $this->ppn = 0; +
-    //  instantiate new PicaRecord() +
-    $this->prec = new PicaRecord(); +
-  } +
- +
-  /* +
-   *  public +
-   *  convert for output using raw array data +
-   *  Used by +
-   */ +
-  function convOutput($array,$text,$separator,$category,$subfield,$suffix) { +
-    if (empty($array)) return ""; +
-    if (!empty($subfield)) { +
-      if (empty($array[$category][$subfield])) return ""; +
-        $res = $text.$separator.$array[$category][$subfield].$suffix; +
-    } else { +
-      if (empty($array[$category])) return ""; +
-        $res = $text.$separator.$array[$category].$suffix; +
-    } +
-    return $res; +
-  } +
- +
-  /* +
-   *  public +
-   *  convert for output using nice array data +
-   */ +
-  function convOutputNice($array_nice,$array_text,$key,$prefix,$suffix) { +
-    if (empty($array_nice)) return ""; +
-    if (empty($array_nice[$key])) return ""; +
-    $res = $array_text[$key].$prefix.$array_nice[$key].$suffix; +
-    return $res;  +
-  } +
- +
-  /* +
-   *  public +
-   *  return record as Array +
-   */ +
-  function getArray() { +
-    if ($this->ppn == 0) return ""; +
-    $res = $this->getData($this->ppn); +
-    $res = $this->prec->getArray($res); +
-    return $res; +
-  } +
- +
-  /* +
-   *  public +
-   *  return bibliographic data in array with speaking keys +
-   *  Used by getBibtex(), getOpenUrlKev() and getText() +
-   */ +
-  function getArrayNice($array_raw) { +
-    if (empty($array_raw)) return ""; +
-    $record = $array_raw; +
- +
-    //  get global, user-defineable variable $filter_nice +
-    global $filter_nice; +
- +
-    //  type +
-    $res['type'] = strtr($record['002@']['x0'], $filter_nice); +
-    $res['_bibtex']['type'] = ''; +
-    $res['_openurlkev']['type'] = 'rft.genre'; +
-    $res['_text']['type'] = 'Art'; +
-    //  type w/o kind of record +
-    $res['twokr'] = substr($res['type'], 0, 2); +
-    $res['_bibtex']['twokr'] = ''; +
-    $res['_openurlkev']['twokr'] = ''; +
-    $res['_text']['twokr'] = ''; +
- +
-    //  author +
-    $res['author'] = strtr($record['028A']['x8'], $filter_nice); +
-    $res['author'] = rtrim($res['author']); +
-    $res['_bibtex']['author'] = '  author'; +
-    $res['_openurlkev']['author'] = 'rft.au'; +
-    $res['_text']['author'] = 'Autor'; +
-    //  editor +
-    $res['editor'] = strtr($record['028C']['x8'], $filter_nice); +
-    $res['editor'] = rtrim($res['editor']); +
-    $res['_bibtex']['editor'] = '  editor'; +
-    $res['_openurlkev']['editor'] = 'rft.au'; +
-    $res['_text']['editor'] = 'Herausgeber'; +
- +
-    //  title +
-    $res['title'] = strtr($record['021A']['a'], $filter_nice); +
-    $res['_bibtex']['title'] = '  title'; +
-    $res['_openurlkev']['title'] = 'rft.title'; +
-    $res['_text']['title'] = 'Titel'; +
- +
-    //  series +
-    if ((!empty($record['036F']['x8'])) || (!empty($record['036F']['l']))) { +
-      $res['series'] = strtr($record['036F']['x8'], $filter_nice)." ". +
-       strtr($record['036F']['l'], $filter_nice); +
-    } +
-    $res['_bibtex']['series'] = '  series'; +
-    $res['_openurlkev']['series'] = 'rft.series'; +
-    $res['_text']['series'] = 'Schriftenreihe'; +
- +
-    //  address, especially city +
-    $res['address'] = strtr($record['033A']['p'], $filter_nice); +
-    $res['_bibtex']['address'] = '  address'; +
-    $res['_openurlkev']['address'] = 'rft.place'; +
-    $res['_text']['address'] = 'Ort'; +
-    //  publisher +
-    $res['publisher'] = strtr($record['033A']['n'], $filter_nice); +
-    $res['_bibtex']['publisher'] = '  publisher'; +
-    $res['_openurlkev']['publisher'] = 'rft.pub'; +
-    $res['_text']['publisher'] = 'Verlag'; +
-    //  edition +
-    $res['edition'] = strtr($record['032@']['a'], $filter_nice); +
-    $res['_bibtex']['edition'] = '  edition'; +
-    $res['_openurlkev']['edition'] = 'rft.edition'; +
-    $res['_text']['edition'] = 'Auflage'; +
-    //  year +
-    $res['year'] = strtr($record['011@']['a'], $filter_nice); +
-    $res['_bibtex']['year'] = '  year'; +
-    $res['_openurlkev']['year'] = 'rft.date'; +
-    $res['_text']['year'] = 'Jahr'; +
- +
-    //  pages +
-    $res['pages'] = strtr($record['034D']['a'], $filter_nice); +
-    $res['_bibtex']['pages'] = ''; +
-    $res['_openurlkev']['pages'] = 'rft.pages'; +
-    $res['_text']['pages'] = 'Umfang'; +
- +
-    //  ISBNs +
-    $res['isbn10'] = strtr($record['004A']['x0'], $filter_nice); +
-    $res['_bibtex']['isbn10'] = '  isbn'; +
-    $res['_openurlkev']['isbn10'] = 'rft.isbn'; +
-    $res['_text']['isbn10'] = 'ISBN-10'; +
-    $res['isbn13'] = strtr($record['004A']['A'], $filter_nice); +
-    $res['_bibtex']['isbn13'] = '  isbn'; +
-    $res['_openurlkev']['isbn13'] = 'rft.isbn'; +
-    $res['_text']['isbn13'] = 'ISBN-13'; +
- +
-    //  PPN +
-    $res['ppn'] = strtr($record['003@']['x0'], $filter_nice); +
-    $res['_bibtex']['ppn'] = '  note'; +
-    $res['_openurlkev']['ppn'] = ''; +
-    $res['_text']['ppn'] = 'PPN'; +
- +
-    //  Link +
-    $res['link'] = strtr($record['009Q']['u'], $filter_nice); +
-    $res['_bibtex']['link'] = 'URL'; +
-    $res['_openurlkev']['link'] = ''; +
-    $res['_text']['link'] = 'Link'; +
- +
-    //  Table of Contents +
-    $res['toc'] = strtr($record['009P']['u'], $filter_nice); +
-    $res['_bibtex']['toc'] = ''; +
-    $res['_openurlkev']['toc'] = ''; +
-    $res['_text']['toc'] = 'Inhaltsverzeichnis'; +
- +
-    //  DDC +
-    $res['DDC'] = strtr($record['045B']['a'], $filter_nice); +
-    $res['_bibtex']['DDC'] = ''; +
-    $res['_openurlkev']['DDC'] = ''; +
-    $res['_text']['DDC'] = 'DDC'; +
- +
-    //  RVK +
-    $res['RVK'] = strtr($record['045Z']['a'], $filter_nice); +
-    $res['_bibtex']['RVK'] = 'keywords'; +
-    $res['_openurlkev']['RVK'] = ''; +
-    $res['_text']['RVK'] = 'RVK'; +
- +
-    //  return result +
-    return $res; +
-  } +
- +
-  /* +
-   *  public +
-   *  return BibTeX record prefixed with $bibsonomy_url from pica data. +
-   *  Used by Bibsonomy.php +
-  **/ +
-  function getBibsonomy() { +
-    //  check if $this->ppn is not the preset value else return emptily +
-    if ($this->ppn == 0) return ""; +
- +
-    //  get BibTeX-Record and URL-encode it +
-    $res = $this->getBibTex(); +
-    $res = urlencode($res); +
- +
-    /* +
-     *  prefix url-encoded BibTeX-Record and prefix it with global, +
-     *  user-defineable $bibsonomy_url +
-    **/ +
-    global $bibsonomy_url; +
-    $res = $bibsonomy_url.$res; +
- +
-    //  return result +
-    return $res; +
-  } +
- +
-  /* +
-   * public +
-   * Return BibTex record from pica data +
-   * Used by unAPI.php and Bibsonomy.php +
-  **/ +
-  function getBibTex() { +
-    //  check if $this->ppn is not the preset value else return emptily +
-    if ($this->ppn == 0) return ""; +
- +
-    //  get pica data as array +
-    $record_raw = $this->getArray($this->ppn); +
-    //  transform raw to nice array +
-    $record_nice = $this->getArrayNice($record_raw); +
-    //  get keys name from array +
-    $keys_nice = $record_nice['_bibtex']; +
-    //  declare $res +
-    $res = ""; +
- +
-    //  make sure there is only one ISBN, prefer isbn13 to isbn10 +
-    if (!empty($record_nice['isbn13'])) unset($record_nice['isbn10']); +
- +
-    //  check type and choose right BibTeX-type +
-    if (preg_match('/^[AO][aeEfF]$/',$record_nice['twokr'])) { +
-      //  type +
-      $res = "@book {"; +
- +
-      //  create identifier +
-      $res .= $this->convOutput($record_raw,"","",'003@','x0',""); +
-      $res .= $this->convOutput($record_raw,"","",'011@','a',",\n"); +
- +
-      //  set the field which are fetched: author et al. +
-      $i = array('author', 'editor', 'title', 'series', 'address', 'publisher', +
-        'edition', 'year', 'isbn10', 'isbn13', 'link'); +
- +
-      //  fetch them from array, format and output them +
-      foreach ($i as $j) { +
-        $res .= $this->convOutputNice($record_nice,$keys_nice,$j," = {","},\n"); +
-      } +
- +
-      //  get call number, format and output it +
-      $res .= $this->convOutput($record_raw,"  note"," = {","209A/01",'a',"}"); +
-    } +
- +
-    //  trailing element +
-    if (isset($res)) { +
-      $res .= "\n}"; +
-    } +
- +
-    //  return result +
-    return $res; +
-  } +
- +
-  /** private -- get data via pica xml interface */ +
-  function getData($ppn) { +
-    //check whether curl-Module is available, if not available use fallback +
-    if (function_exists('curl_init')) { +
-      $ch = curl_init("$this->url"); +
-      curl_setopt($ch, CURLOPT_RETURNTRANSFER,1); +
-      curl_setopt($ch, CURLOPT_COOKIE, session_name().'='.session_id() );  +
-      //curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 1 );  +
-      curl_setopt($ch, CURLOPT_HEADER, 0); +
-      $res = curl_exec($ch); +
-      curl_close($ch); +
-    } else { +
-      $res = file_get_contents("$this->url"); +
-    } +
-    return $res; +
-  } +
- +
-  /** public -- return simple dublin core record data from pica record */ +
-  function getDublinCore() { +
-    $res = $this->getData($this->ppn); +
-    $res = $this->prec->getDublinCore($res); +
-    return $res; +
-  } +
- +
-  /** public -- return dublin core rdf data from pica record */ +
-  function getDublinCoreRDF() { +
-    $res = $this->getData($this->ppn); +
-    $res = $this->prec->getXmlData($res); //parses dublin core +
- +
-    if (empty($res)) return ""; +
- +
-    $res  = "<?xml version=\"1.0\"?>\n"; +
-    $res .= "<!DOCTYPE rdf:RDF PUBLIC "; +
-    $res .= "\"-//DUBLIN CORE//DCMES DTD 2002/07/31//EN\"\n"; +
-    $res .= "\"http://dublincore.org/documents/2002/07/31/"; +
-    $res .= "dcmes-xml/dcmes-xml-dtd.dtd\">\n"; +
-    $res .= "<rdf:RDF xmlns:rdf=\"http://www.w3.org/1999/02/22-rdf-syntax-ns#\" +
-             xmlns:dc=\"http://purl.org/dc/elements/1.1/\">\n"; +
-    $res .= "<rdf:Description rdf:about=\"" +
-            .$this->myself."?ppn=".$this->ppn."&amp;format=rdf"."\">\n"; +
-    $res .= "<dc:contributor>".$this->prec->contributor."</dc:contributor>\n"; +
-    $res .= "<dc:coverage>".$this->prec->coverage."</dc:coverage>\n"; +
-    $res .= "<dc:creator>".$this->prec->creator."</dc:creator>\n"; +
-    $res .= "<dc:date>".$this->prec->date."</dc:date>\n"; +
-    $res .= "<dc:description>".$this->prec->description."</dc:description>\n"; +
-    $res .= "<dc:format>".$this->prec->format."</dc:format>\n"; +
-    $res .= "<dc:identifier>".$this->prec->identifier."</dc:identifier>\n"; +
-    $res .= "<dc:language>".$this->prec->language."</dc:language>\n"; +
-    $res .= "<dc:publisher>".$this->prec->publisher."</dc:publisher>\n"; +
-    $res .= "<dc:related>".$this->prec->related."</dc:related>\n"; +
-    $res .= "<dc:rights>".$this->prec->rights."</dc:rights>\n"; +
-    $res .= "<dc:source>".$this->prec->source."</dc:source>\n"; +
-    $res .= "<dc:subject>".$this->prec->subject."</dc:subject>\n"; +
-    $res .= "<dc:title>".$this->prec->title."</dc:title>\n"; +
-    $res .= "<dc:type>".$this->prec->type."</dc:type>\n"; +
-    $res .= "</rdf:Description>\n"; +
-    $res .= "</rdf:RDF>\n"; +
-    return $res; +
-  } +
- +
-  /** public -- return JSON record from pica data */ +
-  //used by unapi +
-  function getJson() { +
-    if ($this->ppn == 0) return ""; +
- +
-    $res = $this->getArray(); +
-    //(PHP 5 >= 5.2.0, PECL json >= 1.2.0) +
-    $res = json_encode($res); +
- +
-    return $res; +
-  } +
- +
-  /* +
-   * public +
-   * return OpenURL KEV record from pica data +
-   * Used by unAPI.php and Coins.php +
-  **/ +
-  function getOpenUrlKev() { +
-    //  check if $this->ppn is not the preset value else return emptily +
-    if ($this->ppn == 0) return ""; +
- +
-    //  get pica data as array +
-    $record_raw = $this->getArray($this->ppn); +
-    //  transform raw to nice array +
-    $record_nice = $this->getArrayNice($record_raw); +
-    //  get keys' name from array +
-    $keys_nice = $record_nice['_openurlkev']; +
-    //  declare $res +
-    $res = ""; +
- +
-    //  get global, user-defineable variable $rfr_id_hostname +
-    global $rfr_id_hostname; +
- +
-    //  set immutable context objects for OpenURL +
-    //  version of the ContextObject +
-    $res .= 'ctx_ver=Z39.88-2004'; +
-    //  referrer identifier +
-    $res .= '&amp;rfr_id='.urlencode('info:sid/'.$rfr_id_hostname.':generator'); +
- +
-    //  make sure there is only one ISBN, prefer isbn13 to isbn10 +
-    if (!empty($record_nice['isbn13'])) unset($record_nice['isbn10']); +
- +
-    //  check type and choose right OpenURL-type +
-    if (preg_match('/^[AO][aeEfF]$/',$record_nice['twokr'])) { +
-      //  make $keys_nice['title'] more standard compliant +
-      $keys_nice['title'] = 'rft.btitle'; +
- +
-      //  type +
-      $res .= '&amp;rft_val_fmt='.urlencode('info:ofi/fmt:kev:mtx:book'); +
-      $res .= '&amp;rft.genre=book&amp;'; +
- +
-      //  set the field which are fetched: author et al. +
-      $i = array('author', 'editor', 'title', 'series', 'address', 'publisher', +
-        'edition', 'year', 'isbn10', 'isbn13', 'pages'); +
- +
-      //  fetch them from array, format, url-encode and output them +
-      foreach ($i as $j) { +
-        $record_nice[$j] = urlencode($record_nice[$j]); +
-        $res .= $this->convOutputNice($record_nice,$keys_nice,$j,"=","&amp;"); +
-      } +
-    } +
- +
-    //  strip trailing "&amp;" if necessary +
-    if (isset($res)) { +
-      $length = strlen($res); +
-      $last = strrpos($res,"&amp;"); +
-      if ( $length == $last+5 ) { +
-        $res = substr($res,0,-5); +
-      } +
-    } +
- +
-    //  return result +
-    return $res; +
-  } +
- +
-  /** public -- return formated pica plus record */ +
-  function getPicaPlus() { +
-    if ($this->ppn == 0) return ""; +
-    $res = $this->getData($this->ppn); +
-    $res = $this->prec->getPicaPlus($res); +
-    $head = "<?xml version='1.0' encoding='UTF-8'?>\n"; +
-    $head .= "<record url=\"$this->url\">\n"; +
-    $tail = "</record>\n"; +
-    return $head.$res.$tail; +
-  } +
- +
-  /** public -- return formated plain record */ +
-  function getPlain() { +
-    if ($this->ppn == 0) return ""; +
-    $res = $this->getData($this->ppn); +
-    $res = $this->prec->getXmlData($res); +
-    return $res; +
-  } +
- +
-  /* +
-   * public +
-   * Return simple text record from pica data +
-   * Used by unAPI.php +
-  **/ +
-  function getText() { +
-    //  check if $this->ppn is not the preset value else return emptily +
-    if ($this->ppn == 0) return ""; +
- +
-    //  get pica data as array +
-    $record_raw = $this->getArray($this->ppn); +
-    //  transform raw to nice array +
-    $record_nice = $this->getArrayNice($record_raw); +
-    //  get keys' names from array +
-    $keys_nice = $record_nice['_text']; +
-    //  declare $res +
-    $res = ""; +
- +
-    //  check type and choose right type +
-    if (preg_match('/^[AO][aeEfF]$/',$record_nice['twokr'])) { +
-      //  type +
-      $res .= $keys_nice['type'].":\t\tMonographie\n"; +
- +
-      //  set the field which are fetched: author et al. +
-      $i = array('author', 'editor', 'title', 'series', 'address', 'publisher', +
-        'edition', 'year', 'isbn10', 'isbn13', 'pages', 'RVK', 'DDC', 'link', +
-        'toc', 'ppn'); +
- +
-      //  fetch them from array, format and output them +
-      foreach ($i as $j) { +
-        $res .= $this->convOutputNice($record_nice,$keys_nice,$j,":\t\t","\n"); +
-      } +
- +
-      //  call number +
-      $i = 1; +
-      $j = 0; +
-      while ( $i <= 99 ) { +
-        if (($i <= 9) && ($j == 0)) { +
-          $j = "0".$i; +
-        } elseif (($i > 9) && ($j == 0)) { +
-          $j = $i; +
-        } +
-        $res .= $this->convOutput($record_raw,"Signatur",":\t","209A/$j",'a',"\n"); +
-        $i++; +
-        if ($i <= 9 ) { +
-          $j = "0".$i; +
-        } else { +
-          $j = $i; +
-        } +
-        if (empty($record_raw["209A/$j"]['a'])) break; +
-      } +
-    } +
-    return $res; +
-  } +
- +
-  /** public -- return xml formated pica record */ +
-  function getXmlData() { +
-    if ($this->ppn == 0) return ""; +
-    $res = $this->getData($this->ppn); +
-    $res = $this->prec->getXmlData($res);  +
-    $head = "<?xml version='1.0' ?>\n"; +
-    //$head .= "<record>\n"; +
-    //$head .= "<record url=\"$this->opac\">\n"; +
-    //$head .= "<record url=\"$this->url\">\n"; +
-    //$head .= "<record url=\"".htmlspecialchars($this->url)."\">\n"; +
-    //$head .= "<record url=\"".$this->opac.$this->ppn."\">\n"; +
-    $head .= "<record url=\"".htmlentities($this->url)."\">\n"; +
-    $tail = "</record>\n"; +
-    return $head.$res.$tail; +
-  } +
- +
-  //  public +
-  function setOpac($opac) { +
-    $this->opac = $opac; +
-  } +
- +
-  //  public -- set ppn, the unapi identifier +
-  function setPpn($ppn) { +
-    //  get global, user-defineable $pattern_ppn +
-    global $pattern_ppn; +
- +
-    /*   +
-     *  for input sanitising - check if $ppn can be matched against a regex +
-     *  which defines allowed input +
-     */ +
-    if (preg_match($pattern_ppn,$ppn)) { +
-      $this->ppn = $ppn; +
-      $this->url = $this->opac.$ppn."&PLAIN=ON"; +
-    } else { +
-      //  for debugging only +
-      //echo foo; +
-    } +
-    $this->myself = $_SERVER['PHP_SELF']; +
-  } +
-} +
- +
-/* +
- *  end class Picappn +
- */ +
- +
-/*  +
- *  function final_result +
- *  Return result or 404 +
- *  Used by unAPI.php +
- */ +
-function final_result($res, $content_type) { +
-  if (!empty($res)) { +
-    header("Content-type: $content_type"); +
-    echo $res; +
-  } else { +
-    header('HTTP/1.0 404 Not Found'); +
-  } +
-} +
- +
-/* +
- * end function final_result +
- */ +
- +
-?> +
-</code>+
  
buechereielektrik/unapi/unapi.inc.php.1263326195.txt · Last modified: 2010-01-12 20:56 by strols
Show pageOld revisions
Media ManagerBack to top
CC Attribution-Share Alike 4.0 International
Driven by DokuWiki Recent changes RSS feed Valid CSS Valid XHTML 1.0