[[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
Last revisionBoth sides next revision
buechereielektrik:unapi:unapi.inc.php [2010-01-25 22:44] – Added comments. Renamed "decodePica_array" to "decodePicaArray" in class "PicaRecord". rosenkebuechereielektrik:unapi:unapi.inc.php [2010-03-03 17:13] – strols
Line 19: Line 19:
  *  *
  *  Copyright 2008 2009 Goetz Hatop <hatop@ub.uni-marburg.de>.  *  Copyright 2008 2009 Goetz Hatop <hatop@ub.uni-marburg.de>.
- *  Goetz Hatop's original Version can be found at+ *  Goetz Hatop's original version can be found at
  *  <ftp://ftp.ub.uni-marburg.de/pub/research/unapi.tar.gz>.  *  <ftp://ftp.ub.uni-marburg.de/pub/research/unapi.tar.gz>.
  *  *
  *  Copyright 2009 2010 Stephan Rosenke <rosenke@ulb.tu-darmstadt.de> or  *  Copyright 2009 2010 Stephan Rosenke <rosenke@ulb.tu-darmstadt.de> or
- *  <r01-551@r0s.de>.+ *  <r01-551@r0s.de>. See also <http://r0s.de/unapi>.
  */  */
  
Line 46: Line 46:
  *  Version  *  Version
  *  *
- *  0.5+ *  0.7
  */  */
  
Line 52: Line 52:
  *  Changelog  *  Changelog
  *  *
 + *  20100303: Added check of $use_curl as additional switch for de-
 + * activating curl.
 + *  20100219: Added function "getCsv()" to class "Picappn".
 + * Renamend keys "RVK" to "rvk" and "DDC" to "ddc".
 + *  20100131: Added (e)Journals to "getBibTex()", "getOpenUrlKev()" and
 + * "getText()" in class "Picappn".
 + *  20100127: Added link in copyright.
 + *  20100126: Transfered "getArrayNice()" from class "Picappn" to
 + * "PicaRecord". Removed dead code. Added comments.
  *  20100125: Added comments.  *  20100125: Added comments.
- *              Renamed "decodePica_array" to "decodePicaArray" in class + * Renamed "decodePica_array()" to "decodePicaArray()" in class 
- *              "PicaRecord". + * "PicaRecord". 
- *  20100113: Added comments. Added further mappings in getArrayNice. + *  20100113: Added comments. Added further mappings in "getArrayNice()". 
- *  20100112: Added further mappings in getArrayNice.+ *  20100112: Added further mappings in "getArrayNice()".
  * Extended types for monographies.  * Extended types for monographies.
- *  20100111: Added function getOpenUrlKev() to class "Picappn". + *  20100111: Added function "getOpenUrlKev()" to class "Picappn". 
- * Removed functions "getKeysText" and "getKeysBibTex" from class + * Removed functions "getKeysText()" and "getKeysBibTex()" from 
- * "Picappn".+ * class "Picappn".
  *  20100110: Added input sanitising for $ppn.  *  20100110: Added input sanitising for $ppn.
  *  20100109: Some style improvements, added comments.  *  20100109: Some style improvements, added comments.
  *  20091220: Check whether curl-Module is available, if not use  *  20091220: Check whether curl-Module is available, if not use
- * file_get_contents().+ * "file_get_contents()".
  * Some minor bugfixes.  * Some minor bugfixes.
- *  20091215: Added function "getJson" to class "Picappn". + *  20091215: Added function "getJson()" to class "Picappn". 
- * Made ISBN in getBibTex() unique. + * Made ISBN in "getBibTex()" unique. 
- * Filtered some characters in getArrayNice(). + * Filtered some characters in "getArrayNice()". 
- *  20091214: Added function "convOutputNice", "getArrayNice", "getBibsonomy", + *  20091214: Added function "convOutputNice()", "getArrayNice()", 
- * "getKeysText" and "getKeysBibTex" to class "Picappn".+ *              "getBibsonomy()", getKeysText()" and "getKeysBibTex()" to class 
 + *              "Picappn".
  * Handled empty records for dc and rdf.  * Handled empty records for dc and rdf.
- *  20091213: Added function "convOutput" to class "Picappn".+ *  20091213: Added function "convOutput()" to class "Picappn".
  * Defined text-format.  * Defined text-format.
  * Defined bibtex-format.  * Defined bibtex-format.
- *  20091211: Added function "final_result".+ *  20091211: Added function "final_result()".
  *  20091210: Put class "Picappn" to PicaRecord.php.  *  20091210: Put class "Picappn" to PicaRecord.php.
  * Ordered functions alphabetically.  * Ordered functions alphabetically.
- * Added functions "getArray", "getPlain" and  "getText" to class + * Added functions "getArray()", "getPlain()" and  "getText()" to 
- * "Picappn". + *              class "Picappn". 
- * Added functions "decodePicaArray", "getArray" and "getPlain" to + * Added functions "decodePicaArray()", "getArray()" and 
- * class "PicaRecord".+ * "getPlain()" to class "PicaRecord".
  *  20091210: Started with Goetz Hatop's version of 2009-12-08.  *  20091210: Started with Goetz Hatop's version of 2009-12-08.
  */  */
Line 97: Line 107:
  
 //  URL-prefix for XML interface //  URL-prefix for XML interface
-$opac_url = 'http://pica1l.lhb.tu-darmstadt.de/DB=LHBDA/XML=1.0/PPN?PPN=';+$opac_url = 'http://example.com/DB=1/XML=1.0/PPN?PPN=';
  
 //  URL-prefix for Bibsonomy's BibTeX import //  URL-prefix for Bibsonomy's BibTeX import
Line 126: Line 136:
 **/ **/
 class PicaRecord { class PicaRecord {
-  // 15 dublin core elements http://dublincore.org/documents/dces/+  //  15 dublin core elements http://dublincore.org/documents/dces/
   var $contributor, $coverage, $creator, $date, $description, $format;   var $contributor, $coverage, $creator, $date, $description, $format;
   var $identifier, $language, $publisher, $related, $rights, $source;   var $identifier, $language, $publisher, $related, $rights, $source;
   var $subject, $title, $type;   var $subject, $title, $type;
-  // 1 for me+  //  1 for me
   var $signatur;   var $signatur;
  
-  //  constructor - PHP5 or later should use '__construct()'+  /* 
 +   *  constructor 
 +   *  class PicaRecord 
 +   *  PHP5 or later should use '__construct()' 
 +  **/
   function PicaRecord() {   function PicaRecord() {
      //  default values      //  default values
Line 143: Line 157:
   /*   /*
    *  private    *  private
 +   *  class PicaRecord
    *  make PICA data behave well and convert them to a XML structure    *  make PICA data behave well and convert them to a XML structure
-   *  Used by PicaRecord->{getArray,getXmlData}+   *  Used by PicaRecord->getXmlData
   **/   **/
   function decodePica($str) {   function decodePica($str) {
Line 181: Line 196:
     }     }
     $res .= "</".$tag.">";     $res .= "</".$tag.">";
 +
 +    //  return result
     return $res;     return $res;
   }   }
Line 186: Line 203:
   /*   /*
    *  private    *  private
 +   *  class PicaRecord
    *  make PICA data behave well and put them to an array    *  make PICA data behave well and put them to an array
-   *  Used by +   *  Used by PicaRecord->getArray
   **/   **/
   function decodePicaArray($str) {   function decodePicaArray($str) {
Line 211: Line 229:
         } //switch         } //switch
     }     }
 +
 +    //  return result
     return $res;     return $res;
   }   }
Line 216: Line 236:
   /*   /*
    *  public    *  public
 +   *  class PicaRecord
    *  transform raw PICA data to array    *  transform raw PICA data to array
-   *  Used by +   *  Used by Picappn->getArray
   **/   **/
   function getArray($str) {   function getArray($str) {
-     // PICA record separator is ascii record separator +    //  PICA record separator is ascii record separator 
-     $lines = explode(chr(30), $str); +    $lines = explode(chr(30), $str); 
-     $res = ""; +    $res = ""; 
-     foreach ($lines as $line) { +    foreach ($lines as $line) { 
-       $in1 = ltrim($line); +      $in1 = ltrim($line); 
-       $ch1 = substr($in1,1,1); +      $ch1 = substr($in1,1,1); 
-       //first char between 0-9 +      //  first char between 0-9 
-       if (ord($ch1) >47 && ord($ch1)<58) { +      if (ord($ch1) >47 && ord($ch1)<58) { 
-          $pos = strpos($in1, ' '); +         $pos = strpos($in1, ' '); 
-          $key = substr($in1,0,$pos); +         $key = substr($in1,0,$pos); 
-          $val = substr($in1,$pos+1); +         $val = substr($in1,$pos+1); 
-          $val = $this->decodePicaArray($val); +         $val = $this->decodePicaArray($val); 
-          $pica_array[$key] = $val; +         $pica_array[$key] = $val; 
-       } else { +      } else { 
-         //not valid +        //  not valid 
-       } +      } 
-     } +    } 
-     $res = $pica_array; +    $res = $pica_array; 
-     return $res;+ 
 +    //  return result 
 +    return $res; 
 +  } 
 + 
 +  /* 
 +   *  public 
 +   *  class PicaRecord 
 +   *  return bibliographic data in array with speaking keys 
 +   *  Used by Picappn->{getBibTex,getCsv,getOpenUrlKev,getText} 
 +  **/ 
 +  function getArrayNice($array_raw) { 
 +    //  if $array_raw is empty just return 
 +    if (empty($array_raw)) return ""; 
 +    //  make variable name handier 
 +    $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'; 
 +    //  Erscheinungsverlauf 
 +    $res['everlauf'] = strtr($record['031@']['a'], $filter_nice); 
 +    $res['_bibtex']['everlauf'] = ''; 
 +    $res['_openurlkev']['everlauf'] = ''; 
 +    $res['_text']['everlauf'] = 'Erscheinungsverlauf'; 
 + 
 +    //  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'; 
 + 
 +    //  ISSN 
 +    $res['issn'] = strtr($record['005A']['x0'], $filter_nice); 
 +    $res['_bibtex']['issn'] = '  issn'; 
 +    $res['_openurlkev']['issn'] = 'rft.issn'; 
 +    $res['_text']['issn'] = 'ISSN'; 
 + 
 +    //  DNB Number 
 +    $res['dnb_no'] = strtr($record['006G']['x0'], $filter_nice); 
 +    $res['_bibtex']['dnb_no'] = ''; 
 +    $res['_openurlkev']['dnb_no'] = ''; 
 +    $res['_text']['dnb_no'] = 'DNB-Nummer'; 
 + 
 +    //  OCLC Number 
 +    $res['oclc_no'] = strtr($record['003O']['x0'], $filter_nice); 
 +    $res['_bibtex']['oclc_no'] = ''; 
 +    $res['_openurlkev']['oclc_no'] = ''; 
 +    $res['_text']['oclc_no'] = 'OCLC-Nummer'; 
 + 
 +    //  Foreign Data Identification Number 
 +    $res['fdin'] = strtr($record['007I']['x0'], $filter_nice); 
 +    $res['_bibtex']['fdin'] = ''; 
 +    $res['_openurlkev']['fdin'] = ''; 
 +    $res['_text']['fdin'] = 'Fremddaten-Identifikationsnummer'; 
 + 
 +    //  ZDB identification number 
 +    $res['zdb_id'] = strtr($record['007A']['x0'], $filter_nice); 
 +    $res['_bibtex']['zdb_id'] = ''; 
 +    $res['_openurlkev']['zdb_id'] = ''; 
 +    $res['_text']['zdb_id'] = 'ZDB-ID'; 
 + 
 +    //  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'; 
 + 
 +    //  EZB link 
 +    $res['ezb_link'] = strtr($record['209S/01']['u'], $filter_nice); 
 +    $res['_bibtex']['ezb_link'] = '  url'; 
 +    $res['_openurlkev']['ezb_link'] = ''; 
 +    $res['_text']['ezb_link'] = 'EZB-Link'; 
 + 
 +    //  return result 
 +    return $res;
   }   }
  
   /*   /*
    *  private    *  private
 +   *  class PicaRecord
    *  recode PICA charset    *  recode PICA charset
-   *  Used by +   *  Used by PicaRecord->{decodePica,decodePicaArray}
   **/   **/
   function getCode($ch) {   function getCode($ch) {
Line 274: Line 465:
   /*   /*
    *  private    *  private
 +   *  class PicaRecord
    *  not complete set of double byte PICA characters started with    *  not complete set of double byte PICA characters started with
    *  an accent sign    *  an accent sign
-   *  Used by +   *  Used by PicaRecord->{decodePica,decodePicaArray}
   **/   **/
   function getCode2($ch) {   function getCode2($ch) {
Line 295: Line 487:
   /*   /*
    *  public    *  public
-   *  return simple dublin core record from PICA data +   *  class PicaRecord 
-   *  Used by +   *  return simple Dublin Core record from PICA data 
 +   *  Used by Picappn->getDublinCore
   **/   **/
   function getDublinCore($str) {   function getDublinCore($str) {
Line 321: Line 514:
     $res .= "<type>".$this->type."</type>\n";     $res .= "<type>".$this->type."</type>\n";
     $res .="</record>\n";     $res .="</record>\n";
 +
 +    //  return result
     return $res;     return $res;
   }   }
Line 326: Line 521:
   /*   /*
    *  public    *  public
 +   *  class PicaRecord
    *  transform raw PICA plus to a more readable diagnostic format    *  transform raw PICA plus to a more readable diagnostic format
-   *  Used by +   *  Used by Picappn->getPicaPlus
   **/   **/
   function getPicaPlus($str) {   function getPicaPlus($str) {
     $res = $this->transcribe_pica_utf8($str);     $res = $this->transcribe_pica_utf8($str);
     $res = $this->transcribe_pica_rec($res);     $res = $this->transcribe_pica_rec($res);
 +
 +    //  return result
     return $res;     return $res;
   }   }
Line 337: Line 535:
   /*   /*
    *  private    *  private
-   *  rename numeric tags not allowed in xml +   *  class PicaRecord 
-   *  Used by +   *  rename numeric tags not allowed in XML 
 +   *  Used by PicaRecord->{decodePica,decodePicaArray}
   **/   **/
   function getTagName($ch) {   function getTagName($ch) {
Line 350: Line 549:
   /*   /*
    *  public    *  public
-   *  transform raw PICA data to valid xml +   *  class PicaRecord 
-   *  Used by +   *  transform raw PICA data to valid XML 
 +   *  Used by PicaRecord->getDublinCore, 
 +   *  Picappn->{getDublinCoreRDF,getPlain,getXmlData}
   **/   **/
   function getXmlData($str) {   function getXmlData($str) {
-     // PICA record separator is ascii record separator +    //  PICA record separator is ascii record separator 
-     $lines = explode(chr(30), $str); +    $lines = explode(chr(30), $str); 
-     $res = ""; + 
-     foreach ($lines as $line) { +    //  define $res 
-       $in1 = ltrim($line); +    $res = ""; 
-       $ch1 = substr($in1,1,1); + 
-       //first char between 0-9 +    //  check each element of array 
-       if (ord($ch1) >47 && ord($ch1)<58) { +    foreach ($lines as $line) { 
-          $pos = strpos($in1, ' '); +      $in1 = ltrim($line); 
-          $key = substr($in1,0,$pos); +      $ch1 = substr($in1,1,1); 
-          $val = substr($in1,$pos+1); +      //  first char between 0-9 
-          $val = $this->decodePica($val); +      if (ord($ch1) >47 && ord($ch1)<58) { 
-          //$res .= "[$key] [$val]\n"; +         $pos = strpos($in1, ' '); 
-          $res .= "<field tag=\"$key\">$val</field>\n"; +         $key = substr($in1,0,$pos); 
-          //side effect to scan dublin core elements +         $val = substr($in1,$pos+1); 
-          $this->readData($key,$val); +         $val = $this->decodePica($val); 
-       } else { +         //$res .= "[$key] [$val]\n"; 
-         //not valid +         $res .= "<field tag=\"$key\">$val</field>\n"; 
-       } +         //side effect to scan dublin core elements 
-     } +         $this->readData($key,$val); 
-     return $res;+      } else { 
 +        //not valid 
 +      } 
 +    } 
 + 
 +    //  return result 
 +    return $res;
   }   }
  
   /*   /*
    *  private    *  private
-   *  read dublin core elements +   *  class PicaRecord 
-   *  Used by +   *  read Dublin Core elements 
 +   *  Used by PicaRecord->{getXmlData,readXmlData}
   **/   **/
   function readData($key, $val) {   function readData($key, $val) {
Line 443: Line 651:
             break;             break;
        case '036D': //nicht dokumentiert: Sammelband Gesamtausgabe        case '036D': //nicht dokumentiert: Sammelband Gesamtausgabe
-            //source : A related resource from which the described is derived.+            //  source : A related resource from which the described is derived.
             $this->source = $this->readTag($val, "x8")." ";             $this->source = $this->readTag($val, "x8")." ";
-            //$this->source .= $this->readTag($val, "l"); 
             break;             break;
        case '045B': //DDC        case '045B': //DDC
Line 479: Line 686:
             break;             break;
        case '016A': //Materialspezifische Codes für elektronische Ressourcen        case '016A': //Materialspezifische Codes für elektronische Ressourcen
-            //type The nature or genre of the resource.+            //  type The nature or genre of the resource.
             $this->type = $this->readTag($val, "a");             $this->type = $this->readTag($val, "a");
             break;             break;
Line 490: Line 697:
   /*   /*
    *  public    *  public
 +   *  class PicaRecord
    *  parse dublin core data    *  parse dublin core data
    *  Used by unClient.php    *  Used by unClient.php
Line 495: Line 703:
   **/   **/
   function readDublinCore($str) {   function readDublinCore($str) {
-     $doc = new DomDocument(); +    $doc = new DomDocument(); 
-     $doc -> loadXML($str); +    $doc -> loadXML($str); 
-     $xp = new DomXPath($doc); +    $xp = new DomXPath($doc); 
-     $this->contributor = $xp->query("/record/contributor")->item(0)->nodeValue; +    $this->contributor = $xp->query("/record/contributor")->item(0)->nodeValue; 
-     $this->coverage = $xp->query("/record/coverage")->item(0)->nodeValue; +    $this->coverage = $xp->query("/record/coverage")->item(0)->nodeValue; 
-     $this->creator = $xp->query("/record/creator")->item(0)->nodeValue; +    $this->creator = $xp->query("/record/creator")->item(0)->nodeValue; 
-     $this->date = $xp->query("/record/date")->item(0)->nodeValue; +    $this->date = $xp->query("/record/date")->item(0)->nodeValue; 
-     $this->description = $xp->query("/record/description")->item(0)->nodeValue; +    $this->description = $xp->query("/record/description")->item(0)->nodeValue; 
-     $this->format = $xp->query("/record/format")->item(0)->nodeValue; +    $this->format = $xp->query("/record/format")->item(0)->nodeValue; 
-     $this->identifier = $xp->query("/record/identifier")->item(0)->nodeValue; +    $this->identifier = $xp->query("/record/identifier")->item(0)->nodeValue; 
-     $this->language = $xp->query("/record/language")->item(0)->nodeValue; +    $this->language = $xp->query("/record/language")->item(0)->nodeValue; 
-     $this->publisher = $xp->query("/record/publisher")->item(0)->nodeValue; +    $this->publisher = $xp->query("/record/publisher")->item(0)->nodeValue; 
-     $this->related = $xp->query("/record/related")->item(0)->nodeValue; +    $this->related = $xp->query("/record/related")->item(0)->nodeValue; 
-     $this->rights = $xp->query("/record/rights")->item(0)->nodeValue; +    $this->rights = $xp->query("/record/rights")->item(0)->nodeValue; 
-     $this->source = $xp->query("/record/source")->item(0)->nodeValue; +    $this->source = $xp->query("/record/source")->item(0)->nodeValue; 
-     $this->subject = $xp->query("/record/subject")->item(0)->nodeValue; +    $this->subject = $xp->query("/record/subject")->item(0)->nodeValue; 
-     $this->title = $xp->query("/record/title")->item(0)->nodeValue; +    $this->title = $xp->query("/record/title")->item(0)->nodeValue; 
-     $this->type = $xp->query("/record/type")->item(0)->nodeValue; +    $this->type = $xp->query("/record/type")->item(0)->nodeValue; 
-     return $res;+ 
 +    //  return result 
 +    return $res;
   }   }
  
   /*   /*
    *  public    *  public
 +   *  class PicaRecord
    *  parse dublin core data    *  parse dublin core data
    *  experimental, does not work, so commented out    *  experimental, does not work, so commented out
-   *  Used by +   *  Used by n/a
   **/   **/
   /*   /*
   function readRDF_DC($str) {   function readRDF_DC($str) {
-     $doc = new DomDocument(); +    $doc = new DomDocument(); 
-     $doc -> loadXML($str); +    $doc -> loadXML($str); 
-     $xp = new DomXPath($doc); +    $xp = new DomXPath($doc); 
-     $this->contributor = $xp->query("/rdf/dc:contributor")->item(0)->nodeValue; +    $this->contributor = $xp->query("/rdf/dc:contributor")->item(0)->nodeValue; 
-     $this->coverage = $xp->query("/rdf/dc:coverage")->item(0)->nodeValue; +    $this->coverage = $xp->query("/rdf/dc:coverage")->item(0)->nodeValue; 
-     $this->creator = $xp->query("/rdf/dc:creator")->item(0)->nodeValue; +    $this->creator = $xp->query("/rdf/dc:creator")->item(0)->nodeValue; 
-     $this->date = $xp->query("/rdf/dc:date")->item(0)->nodeValue; +    $this->date = $xp->query("/rdf/dc:date")->item(0)->nodeValue; 
-     $this->description = $xp->query("/rdf/dc:description")->item(0)->nodeValue; +    $this->description = $xp->query("/rdf/dc:description")->item(0)->nodeValue; 
-     $this->format = $xp->query("/rdf/dc:format")->item(0)->nodeValue; +    $this->format = $xp->query("/rdf/dc:format")->item(0)->nodeValue; 
-     $this->identifier = $xp->query("/rdf/dc:identifier")->item(0)->nodeValue; +    $this->identifier = $xp->query("/rdf/dc:identifier")->item(0)->nodeValue; 
-     $this->language = $xp->query("/rdf/dc:language")->item(0)->nodeValue; +    $this->language = $xp->query("/rdf/dc:language")->item(0)->nodeValue; 
-     $this->publisher = $xp->query("/rdf/dc:publisher")->item(0)->nodeValue; +    $this->publisher = $xp->query("/rdf/dc:publisher")->item(0)->nodeValue; 
-     $this->related = $xp->query("/rdf/dc:related")->item(0)->nodeValue; +    $this->related = $xp->query("/rdf/dc:related")->item(0)->nodeValue; 
-     $this->rights = $xp->query("/rdf/dc:rights")->item(0)->nodeValue; +    $this->rights = $xp->query("/rdf/dc:rights")->item(0)->nodeValue; 
-     $this->source = $xp->query("/rdf/dc:source")->item(0)->nodeValue; +    $this->source = $xp->query("/rdf/dc:source")->item(0)->nodeValue; 
-     $this->subject = $xp->query("/rdf/dc:subject")->item(0)->nodeValue; +    $this->subject = $xp->query("/rdf/dc:subject")->item(0)->nodeValue; 
-     $this->title = $xp->query("/rdf/dc:title")->item(0)->nodeValue; +    $this->title = $xp->query("/rdf/dc:title")->item(0)->nodeValue; 
-     $this->type = $xp->query("/rdf/dc:type")->item(0)->nodeValue; +    $this->type = $xp->query("/rdf/dc:type")->item(0)->nodeValue; 
-     return $res;+ 
 +    //  return result 
 +    return $res;
   }   }
   */   */
Line 548: Line 761:
   /*   /*
    *  private    *  private
 +   *  class PicaRecord
    *  read tag content from string    *  read tag content from string
-   *  Used by +   *  Used by PicaRecord->readData
   **/   **/
   function readTag($val, $tag) {   function readTag($val, $tag) {
Line 560: Line 774:
   /*   /*
    *  public    *  public
 +   *  class PicaRecord
    *  read XML data    *  read XML data
    *  used by unClient.php    *  used by unClient.php
Line 584: Line 799:
   /*   /*
    *  private    *  private
 +   *  class PicaRecord
    *  transcribe separators to diagnostic format    *  transcribe separators to diagnostic format
-   *  Used by +   *  Used by PicaRecord->getPicaPlus
   **/   **/
   function transcribe_pica_rec($str) {   function transcribe_pica_rec($str) {
Line 595: Line 811:
   /*   /*
    *  private    *  private
 +   *  class PicaRecord
    *  PICA charset handling (we want utf8)    *  PICA charset handling (we want utf8)
-   *  Used by +   *  Used by PicaRecord->getPicaPlus
   **/   **/
   function transcribe_pica_utf8($str) {   function transcribe_pica_utf8($str) {
Line 614: Line 831:
  *  get a PICA record via PICA XML web interface, format and return it.  *  get a PICA record via PICA XML web interface, format and return it.
  *  Supported formats:  *  Supported formats:
- *  - Array: getArray() + *  - Array: Picappn->getArray 
- *  FIXME+ *  - Bibsonomy: Picappn->getBibsonomy 
 + *  - BibTex: Picappn->getBibTex 
 + *  - CSV: Picappn->getCsv 
 + *  - Dublin Core: Picappn->getDublinCore 
 + *  - RDF: Picappn->getDublinCoreRDF 
 + *  - JSON: Picappn->getJson 
 + *  - OpenURL KEV: Picappn->getOpenUrlKev 
 + *  - PICA Plus: Picappn->getPicaPlus 
 + *  - Plain: Picappn->getPlain 
 + *  - Text: Picappn->getText 
 + *  - XML: Picappn->getXmlData
 **/ **/
 class Picappn { class Picappn {
Line 627: Line 854:
   var $prec;   var $prec;
  
-  //  constructor - PHP5 or later should use '__construct()'+  /* 
 +   *  constructor 
 +   *  class Picappn 
 +   *  PHP5 or later should use '__construct()' 
 +  **/
   function Picappn() {   function Picappn() {
     //  get global user-defineable $opac_url     //  get global user-defineable $opac_url
     global $opac_url;     global $opac_url;
 +
     //  preset some attributes     //  preset some attributes
     $this->opac = $opac_url;     $this->opac = $opac_url;
     $this->ppn = 0;     $this->ppn = 0;
 +
     //  instantiate new PicaRecord()     //  instantiate new PicaRecord()
     $this->prec = new PicaRecord();     $this->prec = new PicaRecord();
Line 640: Line 873:
   /*   /*
    *  public    *  public
 +   *  class Picappn
    *  convert for output using raw array data    *  convert for output using raw array data
-   *  Used by+   *  Used by Picappn->{getBibTex,getText}
   **/   **/
   function convOutput($array,$text,$separator,$category,$subfield,$suffix) {   function convOutput($array,$text,$separator,$category,$subfield,$suffix) {
 +    //  check if $array not empty, otherwise just return
     if (empty($array)) return "";     if (empty($array)) return "";
 +
 +    //  check if $subfield is given, otherwise just return category
     if (!empty($subfield)) {     if (!empty($subfield)) {
       if (empty($array[$category][$subfield])) return "";       if (empty($array[$category][$subfield])) return "";
Line 652: Line 889:
         $res = $text.$separator.$array[$category].$suffix;         $res = $text.$separator.$array[$category].$suffix;
     }     }
 +
 +    //  return result
     return $res;     return $res;
   }   }
Line 657: Line 896:
   /*   /*
    *  public    *  public
 +   *  class Picappn
    *  convert for output using nice array data    *  convert for output using nice array data
-   *  Used by+   *  Used by Picappn->{getBibTex,getOpenUrlKev,getText}
   **/   **/
   function convOutputNice($array_nice,$array_text,$key,$prefix,$suffix) {   function convOutputNice($array_nice,$array_text,$key,$prefix,$suffix) {
 +    //  check if $array_nice not empty, otherwise just return
     if (empty($array_nice)) return "";     if (empty($array_nice)) return "";
 +    //  check if $array_nice[$key] not empty, otherwise just return
     if (empty($array_nice[$key])) return "";     if (empty($array_nice[$key])) return "";
 +
 +    //  build result
     $res = $array_text[$key].$prefix.$array_nice[$key].$suffix;     $res = $array_text[$key].$prefix.$array_nice[$key].$suffix;
-    return $res; + 
 +    //  return result 
 +    return $res;
   }   }
  
   /*   /*
    *  public    *  public
 +   *  class Picappn
    *  return record as Array    *  return record as Array
-   *  Used by+   *  Used by Picappn->{getBibTex,getCsv,getJson,getOpenUrlKev,getText}
   **/   **/
   function getArray() {   function getArray() {
 +    //  check if $this->ppn is not the preset value else return emptily
     if ($this->ppn == 0) return "";     if ($this->ppn == 0) return "";
 +
 +    //  build result
     $res = $this->getData($this->ppn);     $res = $this->getData($this->ppn);
     $res = $this->prec->getArray($res);     $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'; 
- 
-    //  DNB Number 
-    $res['dnb_no'] = strtr($record['006G']['x0'], $filter_nice); 
-    $res['_bibtex']['dnb_no'] = ''; 
-    $res['_openurlkev']['dnb_no'] = ''; 
-    $res['_text']['dnb_no'] = 'DNB-Nummer'; 
- 
-    //  OCLC Number 
-    $res['oclc_no'] = strtr($record['003O']['x0'], $filter_nice); 
-    $res['_bibtex']['oclc_no'] = ''; 
-    $res['_openurlkev']['oclc_no'] = ''; 
-    $res['_text']['oclc_no'] = 'OCLC-Nummer'; 
- 
-    //  Foreign Data Identification Number 
-    $res['fdin'] = strtr($record['007I']['x0'], $filter_nice); 
-    $res['_bibtex']['fdin'] = ''; 
-    $res['_openurlkev']['fdin'] = ''; 
-    $res['_text']['fdin'] = 'Fremddaten-Identifikationsnummer'; 
- 
-    //  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 result
Line 821: Line 933:
   /*   /*
    *  public    *  public
 +   *  class Picappn
    *  return BibTeX record prefixed with $bibsonomy_url from PICA data.    *  return BibTeX record prefixed with $bibsonomy_url from PICA data.
    *  Used by Bibsonomy.php    *  Used by Bibsonomy.php
Line 845: Line 958:
   /*   /*
    *  public    *  public
 +   *  class Picappn
    *  Return BibTex record from pica data    *  Return BibTex record from pica data
-   *  Used by unAPI.php and Bibsonomy.php+   *  Used by unAPI.php and Picappn->getBibsonomy
   **/   **/
   function getBibTex() {   function getBibTex() {
Line 855: Line 969:
     $record_raw = $this->getArray($this->ppn);     $record_raw = $this->getArray($this->ppn);
     //  transform raw to nice array     //  transform raw to nice array
-    $record_nice = $this->getArrayNice($record_raw);+    $record_nice = $this->prec->getArrayNice($record_raw);
     //  get keys name from array     //  get keys name from array
     $keys_nice = $record_nice['_bibtex'];     $keys_nice = $record_nice['_bibtex'];
Line 864: Line 978:
     if (!empty($record_nice['isbn13'])) unset($record_nice['isbn10']);     if (!empty($record_nice['isbn13'])) unset($record_nice['isbn10']);
  
-    //  check type and choose right BibTeX-type+    /* 
 +     *  check type and choose right BibTeX-type 
 +     *  "book" works quite well, "journal" not so 
 +    **/
     if (preg_match('/^[AO][aeEfF]$/',$record_nice['twokr'])) {     if (preg_match('/^[AO][aeEfF]$/',$record_nice['twokr'])) {
-      //  type+      //  type: book
       $res = "@book {";       $res = "@book {";
  
Line 876: Line 993:
       $i = array('author', 'editor', 'title', 'series', 'address', 'publisher',       $i = array('author', 'editor', 'title', 'series', 'address', 'publisher',
         'edition', 'year', 'isbn10', 'isbn13', 'link');         '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',"}");
 +    } elseif (preg_match('/^[AO]b$/',$record_nice['twokr'])) {
 +      //  type: journal
 +      $res = "@misc {";
 +
 +      //  create identifier
 +      $res .= $this->convOutput($record_raw,"","",'003@','x0',"");
 +      $res .= $this->convOutput($record_raw,"","",'011@','a',",\n");
 +
 +      //  set the field which are fetched: title et al.
 +      $i = array('title', 'address', 'publisher', 'issn', 'ezb_link');
  
       //  fetch them from array, format and output them       //  fetch them from array, format and output them
Line 886: Line 1021:
     }     }
  
-    //  trailing element+    //  stripping et al.
     if (isset($res)) {     if (isset($res)) {
 +      //  check if last characters of $res are ",\n" and trim them
 +      $res = rtrim($res, ",\n");
 +      //  trailing element
       $res .= "\n}";       $res .= "\n}";
 +    }
 +
 +    //  return result
 +    return $res;
 +  }
 +
 +  /*
 +   *  public
 +   *  class Picappn
 +   *  Return CSV record from pica data
 +   *  Used by unAPI.php
 +  **/
 +  function getCsv() {
 +    //  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->prec->getArrayNice($record_raw);
 +    //  declare $res
 +    $res = '';
 +
 +    //  set categories to used for CSV
 +    $i = array('ppn', 'author', 'editor', 'title', 'address', 'year', 'isbn10',
 +     'isbn13', 'issn', 'dnb_no', 'oclc_no', 'fdin', 'zdb_id', 'rvk');
 +
 +    //  fetch them from array, format and output them
 +    foreach ($i as $j) {
 +      $res .= '"'.$record_nice["$j"].'"|'; 
 +    }
 +
 +    //  stripping et al.
 +    if (isset($res)) {
 +      //  check if last characters of $res are ",\n" and trim them
 +      $res = rtrim($res, "|");
     }     }
  
Line 897: Line 1071:
   /*   /*
    *  private    *  private
 +   *  class Picappn
    *  get data via PICA XML interface    *  get data via PICA XML interface
-   *  Used by+   *  Used by Picappn->{getArray,getDublinCore,getDublinCoreRDF,getPicaPlus,getPlain,getXmlData}
   **/   **/
   function getData($ppn) {   function getData($ppn) {
 +    // get global $use_curl as switch for the following conditional
 +    global $use_curl;
 +
     //  check whether curl-Module is available, if not available use fallback     //  check whether curl-Module is available, if not available use fallback
-    if (function_exists('curl_init')) {+    if (function_exists('curl_init') && $use_curl != 'no') {
       $ch = curl_init("$this->url");       $ch = curl_init("$this->url");
       curl_setopt($ch, CURLOPT_RETURNTRANSFER,1);       curl_setopt($ch, CURLOPT_RETURNTRANSFER,1);
Line 913: Line 1091:
       $res = file_get_contents("$this->url");       $res = file_get_contents("$this->url");
     }     }
 +
 +    // return result
     return $res;     return $res;
   }   }
Line 918: Line 1098:
   /*   /*
    *  public    *  public
 +   *  class Picappn
    *  return simple dublin core record data from pica record    *  return simple dublin core record data from pica record
-   *  Used by+   *  Used by unAPI.php
   **/   **/
   function getDublinCore() {   function getDublinCore() {
 +    //  retrieve data
     $res = $this->getData($this->ppn);     $res = $this->getData($this->ppn);
 +
 +    //  format data
     $res = $this->prec->getDublinCore($res);     $res = $this->prec->getDublinCore($res);
 +
 +    //  return result
     return $res;     return $res;
   }   }
Line 929: Line 1115:
   /*   /*
    *  public    *  public
 +   *  class Picappn
    *  return dublin core rdf data from pica record    *  return dublin core rdf data from pica record
-   *  Used by+   *  Used by unAPI.php
   **/   **/
   function getDublinCoreRDF() {   function getDublinCoreRDF() {
 +    //  retrieve data
     $res = $this->getData($this->ppn);     $res = $this->getData($this->ppn);
 +
 +    //  put it to some XML structure
     $res = $this->prec->getXmlData($res); //parses dublin core     $res = $this->prec->getXmlData($res); //parses dublin core
  
Line 939: Line 1129:
     if (empty($res)) return "";     if (empty($res)) return "";
  
 +    //  format
     $res  = "<?xml version=\"1.0\"?>\n";     $res  = "<?xml version=\"1.0\"?>\n";
     $res .= "<!DOCTYPE rdf:RDF PUBLIC ";     $res .= "<!DOCTYPE rdf:RDF PUBLIC ";
Line 965: Line 1156:
     $res .= "</rdf:Description>\n";     $res .= "</rdf:Description>\n";
     $res .= "</rdf:RDF>\n";     $res .= "</rdf:RDF>\n";
 +
 +    //  return result
     return $res;     return $res;
   }   }
Line 970: Line 1163:
   /*   /*
    *  public    *  public
 +   *  class Picappn
    *  return JSON record from pica data    *  return JSON record from pica data
    *  Used by unAPI.php    *  Used by unAPI.php
Line 988: Line 1182:
   /*   /*
    *  public    *  public
 +   *  class Picappn
    *  return OpenURL KEV record from pica data    *  return OpenURL KEV record from pica data
    *  Used by unAPI.php and Coins.php    *  Used by unAPI.php and Coins.php
Line 998: Line 1193:
     $record_raw = $this->getArray($this->ppn);     $record_raw = $this->getArray($this->ppn);
     //  transform raw to nice array     //  transform raw to nice array
-    $record_nice = $this->getArrayNice($record_raw);+    $record_nice = $this->prec->getArrayNice($record_raw);
     //  get keys' name from array     //  get keys' name from array
     $keys_nice = $record_nice['_openurlkev'];     $keys_nice = $record_nice['_openurlkev'];
Line 1021: Line 1216:
       $keys_nice['title'] = 'rft.btitle';       $keys_nice['title'] = 'rft.btitle';
  
-      //  type+      //  type: book
       $res .= '&amp;rft_val_fmt='.urlencode('info:ofi/fmt:kev:mtx:book');       $res .= '&amp;rft_val_fmt='.urlencode('info:ofi/fmt:kev:mtx:book');
       $res .= '&amp;rft.genre=book&amp;';       $res .= '&amp;rft.genre=book&amp;';
Line 1028: Line 1223:
       $i = array('author', 'editor', 'title', 'series', 'address', 'publisher',       $i = array('author', 'editor', 'title', 'series', 'address', 'publisher',
         'edition', 'year', 'isbn10', 'isbn13', 'pages');         '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;");
 +      }
 +    } elseif (preg_match('/^[AO]b$/',$record_nice['twokr'])) {
 +      //  type: journal/article
 +      $res .= '&amp;rft_val_fmt='.urlencode('info:ofi/fmt:kev:mtx:journal');
 +      $res .= '&amp;rft.genre=article&amp;';
 +
 +      //  set the field which are fetched: author et al.
 +      $i = array('title', 'address', 'publisher', 'issn');
  
       //  fetch them from array, format, url-encode and output them       //  fetch them from array, format, url-encode and output them
Line 1038: Line 1246:
     //  strip trailing "&amp;" if necessary     //  strip trailing "&amp;" if necessary
     if (isset($res)) {     if (isset($res)) {
-      $length = strlen($res); +      $res = rtrim($res, "&amp;");
-      $last = strrpos($res,"&amp;"); +
-      if ( $length == $last+5 ) { +
-        $res = substr($res,0,-5); +
-      }+
     }     }
  
Line 1051: Line 1255:
   /*    /* 
    *  public    *  public
-   *  return formated PICA Plus record +   *  class Picappn 
-   *  Used by+   *  return formatted PICA Plus record 
 +   *  Used by unAPI.php
   **/   **/
   function getPicaPlus() {   function getPicaPlus() {
Line 1058: Line 1263:
     if ($this->ppn == 0) return "";     if ($this->ppn == 0) return "";
  
 +    //  retrieve record
     $res = $this->getData($this->ppn);     $res = $this->getData($this->ppn);
 +
 +    //  format
     $res = $this->prec->getPicaPlus($res);     $res = $this->prec->getPicaPlus($res);
 +
 +    //  set prefix
     $head = "<?xml version='1.0' encoding='UTF-8'?>\n";     $head = "<?xml version='1.0' encoding='UTF-8'?>\n";
     $head .= "<record url=\"$this->url\">\n";     $head .= "<record url=\"$this->url\">\n";
 +
 +    //  set suffix
     $tail = "</record>\n";     $tail = "</record>\n";
  
 +    //  return result
     return $head.$res.$tail;     return $head.$res.$tail;
   }   }
Line 1069: Line 1282:
   /*   /*
    *  public    *  public
-   *  return formated plain (not well formed XML) record +   *  class Picappn 
-   *  Used by+   *  return formatted plain (not well formed XML) record 
 +   *  Used by unAPI.php
   **/   **/
   function getPlain() {   function getPlain() {
Line 1076: Line 1290:
     if ($this->ppn == 0) return "";     if ($this->ppn == 0) return "";
  
 +    //  retrieve record
     $res = $this->getData($this->ppn);     $res = $this->getData($this->ppn);
 +
 +    //  put to some XML structure
     $res = $this->prec->getXmlData($res);     $res = $this->prec->getXmlData($res);
  
 +    //  return result
     return $res;     return $res;
   }   }
  
   /*   /*
-   * public +   *  public 
-   * Return simple text record from pica data +   *  class Picappn 
-   * Used by unAPI.php+   *  Return simple text record from pica data 
 +   *  Used by unAPI.php
   **/   **/
   function getText() {   function getText() {
Line 1094: Line 1313:
     $record_raw = $this->getArray($this->ppn);     $record_raw = $this->getArray($this->ppn);
     //  transform raw to nice array     //  transform raw to nice array
-    $record_nice = $this->getArrayNice($record_raw);+    $record_nice = $this->prec->getArrayNice($record_raw);
     //  get keys' names from array     //  get keys' names from array
     $keys_nice = $record_nice['_text'];     $keys_nice = $record_nice['_text'];
Line 1102: Line 1321:
     //  check type and choose right type     //  check type and choose right type
     if (preg_match('/^[AO][aeEfF]$/',$record_nice['twokr'])) {     if (preg_match('/^[AO][aeEfF]$/',$record_nice['twokr'])) {
-      //  type+      //  type: book
       $res .= $keys_nice['type'].":\t\tMonographie\n";       $res .= $keys_nice['type'].":\t\tMonographie\n";
  
       //  set the field which are fetched: author et al.       //  set the field which are fetched: author et al.
       $i = array('author', 'editor', 'title', 'series', 'address', 'publisher',       $i = array('author', 'editor', 'title', 'series', 'address', 'publisher',
-        'edition', 'year', 'isbn10', 'isbn13', 'pages', 'RVK', 'DDC', 'link',+        'edition', 'year', 'isbn10', 'isbn13', 'pages', 'rvk', 'ddc', 'link',
         'toc', 'ppn', 'dnb_no', 'oclc_no', 'fdin');         'toc', 'ppn', 'dnb_no', 'oclc_no', 'fdin');
 +
 +      //  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;
 +      }
 +    } elseif (preg_match('/^[AO]b$/',$record_nice['twokr'])) {
 +      //  type: journal
 +      $res .= $keys_nice['type'].":\t\tZeitschrift\n";
 +
 +      //  set the field which are fetched: title et al.
 +      $i = array('title', 'address', 'publisher', 'issn', 'everlauf', 'rvk',
 +        'zdb_id', 'ppn', 'ezb_link');
  
       //  fetch them from array, format and output them       //  fetch them from array, format and output them
Line 1134: Line 1384:
       }       }
     }     }
 +
 +    //  return result
     return $res;     return $res;
   }   }
Line 1139: Line 1391:
   /*   /*
    *  public    *  public
-   *  return XML formated PICA record +   *  class Picappn 
-   *  Used by+   *  return XML formatted PICA record 
 +   *  Used by unAPI.php
   **/   **/
   function getXmlData() {   function getXmlData() {
 +    //  check if $this->ppn is not the preset value else return emptily
     if ($this->ppn == 0) return "";     if ($this->ppn == 0) return "";
 +
 +    //  retrieve record
     $res = $this->getData($this->ppn);     $res = $this->getData($this->ppn);
-    $res = $this->prec->getXmlData($res); + 
 +    //  put it to some XML structure 
 +    $res = $this->prec->getXmlData($res); 
 + 
 +    //  define prefix
     $head = "<?xml version='1.0' ?>\n";     $head = "<?xml version='1.0' ?>\n";
     //$head .= "<record>\n";     //$head .= "<record>\n";
Line 1153: Line 1413:
     //$head .= "<record url=\"".$this->opac.$this->ppn."\">\n";     //$head .= "<record url=\"".$this->opac.$this->ppn."\">\n";
     $head .= "<record url=\"".htmlentities($this->url)."\">\n";     $head .= "<record url=\"".htmlentities($this->url)."\">\n";
 +
 +    //  define suffix
     $tail = "</record>\n";     $tail = "</record>\n";
 +
 +    //  return result
     return $head.$res.$tail;     return $head.$res.$tail;
   }   }
  
   /*  public   /*  public
-   *  FIXME +   *  class Picappn 
-   *  Used by+   *  set attribute Picappn->opac 
 +   *  Used by n/a
   **/   **/
   function setOpac($opac) {   function setOpac($opac) {
Line 1166: Line 1431:
  
   /*  public   /*  public
-   *  set ppn, the unapi identifier +   *  class Picappn 
-   *  Used by+   *  set PPN, the unAPI identifier 
 +   *  Used by Bibsonomy.php, Coins.php and unAPI.php
   **/   **/
   function setPpn($ppn) {   function setPpn($ppn) {
Line 1198: Line 1464:
 **/ **/
 function final_result($res, $content_type) { function final_result($res, $content_type) {
 +  /*  if $res is not empty, return it, otherwise act accordingly to unAPI
 +   *  specification
 +  **/
   if (!empty($res)) {   if (!empty($res)) {
 +    //  send header
     header("Content-type: $content_type");     header("Content-type: $content_type");
 +    //  return result
     echo $res;     echo $res;
   } else {   } else {
buechereielektrik/unapi/unapi.inc.php.txt · Last modified: 2011-01-20 17:12 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