<?php
/*

  Copyright (c) 2006 Verbundzentrale des GBV

  Datei    : treffer.php
  Zweck    : Anzahl der Neuerwerbungen feststellen

  Vorgeschichte:
  27-06-07 : Gereke   : Datei angelegt
  13-06-08 : Gereke   : date("d") geaendert in konstant 15, damit der Monatsuebergang am 31. funktioniert.

*/

// ---- Funktionen

function htmlsave($z) {
  for ($i = 0; $i <= 255; $i++) {
    $ansitohex = array($i=>"");
  }
  $ansitohex = array ( 63 => "%3F" );
  $retval = "";
  for ($i = 0; $i <= strlen($z); $i++) {
    if ($ansitohex[ord(substr($z, $i, 1))] != "") {
      $retval .= $ansitohex[ord(substr($z, $i, 1))];
    } else {
      $retval .= substr($z, $i, 1);
    }
  }
return $retval;
}

// Hier beginnt das Hauptprogramm
// BASIS=http://vzopc4.gbv.de:8080/DB=40/XML=1.0/CMD?ACT=SRCHA&IKT=1016&SRT=YOP&TRM=
// MON=6  =>    dtm+200706%3F+
// IDX=NEL  =>  nel+2007-06%3F
// TERM=not+slk+a+not+slk+r+and+sys+A%3F
// http://vzopc4.gbv.de/php/treffer.php?BASIS=http%3A%2F%2Fvzopc4%2Egbv%2Ede%3A8080%2FDB%3D40%2FCMD%3FACT%3DSRCHA%26IKT%3D1016%26SRT%3DYOP&MON=6&TERM=not%2Bslk%2Ba%2Bnot%2Bslk%2Br%2Band%2Bsys%2Ba

if (isset($_REQUEST['BASIS']) && isset($_REQUEST['MON']) && isset($_REQUEST['TERM'])) {
  ?><table cellpadding=0 cellspacing=0 border=0><tr valign=top><?php
  for ($i = 0; $i <= $_REQUEST['MON']; $i++) {
    if ($_REQUEST['IDX'] == "NEL") {
      $datum = date("Y", mktime(0, 0, 0, date("m")-$i, 15, date("Y"))) . "-" . date("m", mktime(0, 0, 0, date("m")-$i, 15, date("Y")));
      $index = "nel";
    } else {
      $datum = date("Ym", mktime(0, 0, 0, date("m")-$i, 15, date("Y")));
      $index = "dtm";
    }
    $suchexml  = $_REQUEST['BASIS'] . "&XML=1.0&TRM=" . urlencode($index . " " . $datum . "? " . $_REQUEST['TERM'] );
    $suchelink = $_REQUEST['BASIS'] .         "&TRM=" . urlencode($index . " " . $datum . "? " . $_REQUEST['TERM'] );
    if (!($fp = fopen($suchexml, "r"))) {
       die("could not open XML Shorttitle input");
    }
    $data = fread($fp, 4096);
    fclose($fp);
    $anzahl = substr($data, strpos($data,"hits=")+6, 9);
    $anzahl = substr($anzahl, 0, strpos($anzahl,'"'));
    if (!($anzahl > 0)) {$anzahl = "0";}
    ?><td align=left width=100><small><?php if($anzahl > 0) { echo "<a target=\"_parent\" href=\"" . $suchelink . "\">";}echo  date("m.Y", mktime(0, 0, 0, date("m")-$i, 15, date("Y"))); if($anzahl > 0) { echo "</a>";} echo " (" . $anzahl . ")"; ?></small></td><td>&nbsp;</td><?php
  }
  ?> </tr></table> <?php
} else {
  echo "Fehler: Parameter leer!";
}

?>

