PHP yaz_range函数代码示例

 static function scan_get($start = 1, $num = 10)
 {
     yaz_range(self::$connection, $start, $num);
     yaz_present(self::$connection);
     yaz_wait();
     self::is_error();
 }

 *   ISBN ist eine 10- bzw. 13-stellige ISBN mit/ohne Bindestriche/Leerzeichen
 *   ISBN kann ebenfalls eine Komma-separierte Liste von ISBNs sein
 * hbz?ppn=PPN
 *   PPN ist die eine ID-Nummer des HBZ
 * hbz?isbn=ISBN&format=json
 * hbz?ppn=PPN&format=json
 *   Ausgabe erfolgt als JSON
 *
 * Sucht übergebene ISBN bzw. PPN im HBZ-Katalog
 * und gibt maximal 10 Ergebnisse als MABXML zurück
 * bzw. als JSON.
 */
include 'lib.php';
$id = yaz_connect(HBZ_URL);
yaz_syntax($id, HBZ_SYNTAX);
yaz_range($id, 1, 10);
yaz_element($id, HBZ_ELEMENTSET);
if (isset($_GET['ppn'])) {
    $ppn = trim($_GET['ppn']);
    yaz_search($id, "rpn", '@attr 5=100 @attr 1=12 "' . $ppn . '"');
}
if (isset($_GET['isbn'])) {
    $n = trim($_GET['isbn']);
    $nArray = explode(",", $n);
    if (count($nArray) > 1) {
        //mehrere ISBNs, z.B. f @or @or @attr 1=7 "9783937219363" @attr 1=7 "9780521369107" @attr 1=7 "9780521518147"
        //Anfuehrungsstriche muessen demaskiert werden, egal ob String mit ' gemacht wird
        $suchString = str_repeat("@or ", count($nArray) - 1) . '@attr 1=7 \\"' . implode('\\" @attr 1=7 \\"', $nArray) . '\\"';
        yaz_search($id, "rpn", $suchString);
    } else {
        yaz_search($id, "rpn", '@attr 5=100 @attr 1=7 "' . $n . '"');

// Z39.50 address, eg. host:port/dbname
$host = '';
if (isset($_REQUEST['bib_id'])) {
    // Simple sanitizing of input
    $bib_id = preg_replace("/[^a-zA-Z0-9 ]+/", "", $_REQUEST['bib_id']);
    header('Content-Type: text/xml');
    header('Content-Disposition: inline; filename="' . $bib_id . '.xml";');
    $bib_id = '@attr 1=12 ' . $bib_id;
    // The backend server can be unreliable, so we'll try connecting multiple
    // times if we get an erroneous response.
    $xml_string;
    $maxTries = 5;
    for ($try = 1; $try <= $maxTries; $try++) {
        $id = yaz_connect($host);
        yaz_syntax($id, "usmarc");
        yaz_range($id, 1, 1);
        $host_options = array("timeout" => "10");
        yaz_search($id, "rpn", $bib_id);
        yaz_wait($host_options);
        $error = yaz_error($id);
        if (empty($error)) {
            // Successful Z39.50 Connection
            $rec = yaz_record($id, 1, 'xml');
            if (!empty($rec)) {
                // Successul record retrieval
                http_response_code(200);
                $doc = new DOMDocument();
                $doc->loadXML($rec);
                $doc->formatOutput = true;
                $xml_string = $doc->saveXML();
                break;

        local test
    <input type="checkbox" checked="checked"
    		name="host[]" value="z3950.loc.gov:7090/voyager" />
        Library of Congress
    <br />
    RPN Query:
    <input type="text" size="30" name="query" placeholder="ex: @attr 1=4 \\"mysql%\\" " />
    <input type="submit" name="action" value="Search" />
    </form>
    ';
} else {
    echo 'You searched for ' . htmlspecialchars($query) . '<br />';
    for ($i = 0; $i < $num_hosts; $i++) {
        $id[] = yaz_connect($host[$i]);
        yaz_syntax($id[$i], "usmarc");
        yaz_range($id[$i], 1, 10);
        yaz_search($id[$i], "rpn", $query);
    }
    yaz_wait();
    for ($i = 0; $i < $num_hosts; $i++) {
        echo '<hr />' . $host[$i] . ':';
        $error = yaz_error($id[$i]);
        if (!empty($error)) {
            echo "Error: {$error}";
        } else {
            $hits = yaz_hits($id[$i]);
            echo "Result Count {$hits}";
        }
        echo '<dl>';
        for ($p = 1; $p <= 10; $p++) {
            $rec = yaz_record($id[$i], $p, "string");

 /**
  * 
  * 
  * @param string $ps_source
  * @param array $pa_options
  * @return bool
  */
 public function nextRow()
 {
     if (!$this->opa_row_ids || !is_array($this->opa_row_ids) || !sizeof($this->opa_row_ids)) {
         return false;
     }
     if (isset($this->opa_row_ids[$this->opn_current_row]) && ($vn_worldcat_id = $this->opa_row_ids[$this->opn_current_row])) {
         $o_client = new Client(WorldCatDataReader::$s_worldcat_detail_url);
         // Create a request
         try {
             if ($this->opb_z3950_available && $this->ops_z3950_user) {
                 $r_conn = yaz_connect(WorldCatDataReader::$s_worldcat_z3950_host, array('user' => $this->ops_z3950_user, 'password' => $this->ops_z3950_password));
                 yaz_syntax($r_conn, "usmarc");
                 yaz_range($r_conn, 1, 10);
                 yaz_search($r_conn, "rpn", '@attr 1=12 @attr 4=2 "' . str_replace('"', '', $vn_worldcat_id) . '"');
                 yaz_wait();
                 $vs_data = simplexml_load_string(yaz_record($r_conn, 1, "xml; charset=marc-8,utf-8"));
             } elseif ($this->ops_api_key) {
                 $o_request = $o_client->get("{$vn_worldcat_id}?wskey=" . $this->ops_api_key);
                 $o_response = $o_request->send();
                 $vs_data = $o_response->xml();
             } else {
                 throw new Exception("Neither Z39.50 nor WorldCat web API is configured");
             }
             if (!$vs_data) {
                 throw new Exception("No data returned");
             }
             $o_row = $this->opo_handle_xml = dom_import_simplexml($vs_data);
             $this->opa_row_buf[$this->opn_current_row] = $o_row;
         } catch (Exception $e) {
             return false;
         }
         $this->opa_row_buf = array();
         $this->_extractXMLValues($o_row);
         $o_row_clone = $o_row->cloneNode(TRUE);
         $this->opo_handle_xml = new DOMDocument();
         $this->opo_handle_xml->appendChild($this->opo_handle_xml->importNode($o_row_clone, TRUE));
         $this->opo_handle_xpath = new DOMXPath($this->opo_handle_xml);
         if ($this->ops_xml_namespace_prefix && $this->ops_xml_namespace) {
             $this->opo_handle_xpath->registerNamespace($this->ops_xml_namespace_prefix, $this->ops_xml_namespace);
         }
         $this->opn_current_row++;
         if ($this->opn_current_row > $this->numRows()) {
             return false;
         }
         return true;
     }
     return false;
 }

 function getEnrichment($notice_id, $source_id, $type = "", $enrich_params = array())
 {
     global $charset;
     $enrichment = array();
     $this->noticeToEnrich = $notice_id;
     // récupération du code sudoc (PPN) de la notice stocké dans le champ perso de type "resolve" avec pour label "SUDOC"
     $mes_pp = new parametres_perso("notices");
     $mes_pp->get_values($notice_id);
     $values = $mes_pp->values;
     foreach ($values as $field_id => $vals) {
         if ($mes_pp->t_fields[$field_id]['TYPE'] == "resolve") {
             $field_options = _parser_text_no_function_("<?xml version='1.0' encoding='" . $charset . "'?>\n" . $mes_pp->t_fields[$field_id]['OPTIONS'], "OPTIONS");
             foreach ($field_options['RESOLVE'] as $resolve) {
                 if (strtoupper($resolve['LABEL']) == "SUDOC") {
                     $infos = explode('|', $vals[0]);
                     $ppn = $infos[0];
                 }
             }
         }
     }
     if ($ppn == "") {
         return $this->build_error();
     }
     $url = "carmin.sudoc.abes.fr";
     $port = "210";
     $base = "abes-z39-public";
     $format = "unimarc";
     $term = "@attr 1=12 @attr 2=3 \"{$ppn}\" ";
     $id = yaz_connect("{$url}:{$port}/{$base}", array("piggyback" => false));
     yaz_range($id, 1, 1);
     yaz_syntax($id, strtolower($format));
     yaz_search($id, "rpn", $term);
     $options = array("timeout" => 45);
     //Override le timeout du serveur mysql, pour être sûr que le socket dure assez longtemps pour aller jusqu'aux ajouts des résultats dans la base.
     $sql = "set wait_timeout = 120";
     mysql_query($sql);
     yaz_wait($options);
     $error = yaz_error($id);
     $error_info = yaz_addinfo($id);
     if (!empty($error)) {
         yaz_close($id);
         return $this->build_error();
     } else {
         $hits = yaz_hits($id);
         $hits += 0;
         if ($hits) {
             $rec = yaz_record($id, 1, "raw");
             $record = new iso2709_record($rec);
             if (!$record->valid()) {
                 yaz_close($id);
                 return $this->build_error();
             }
             $lines = "";
             $document->document_type = $record->inner_guide[dt];
             $document->bibliographic_level = $record->inner_guide[bl];
             $document->hierarchic_level = $record->inner_guide[hl];
             if ($document->hierarchic_level == "") {
                 if ($document->bibliographic_level == "s") {
                     $document->hierarchic_level = "1";
                 }
                 if ($document->bibliographic_level == "m") {
                     $document->hierarchic_level = "0";
                 }
             }
             $indicateur = array();
             $cle_list = array();
             for ($i = 0; $i < count($record->inner_directory); $i++) {
                 $cle = $record->inner_directory[$i]['label'];
                 $indicateur[$cle][] = substr($record->inner_data[$i]['content'], 0, 2);
                 $field_array = $record->get_subfield_array_array($cle);
                 $line = "";
                 if (!$cle_list[$cle]) {
                     foreach ($field_array as $field) {
                         $line .= $cle . "  ";
                         foreach ($field as $ss_field) {
                             $line .= "\$" . $ss_field["label"] . $ss_field["content"];
                         }
                         $line .= "<br>";
                     }
                 }
                 $cle_list[$cle] = 1;
                 $lines .= $line;
             }
             if ($lines == "") {
                 yaz_close($id);
                 return $this->build_error();
             }
         } else {
             yaz_close($id);
             return $this->build_error();
         }
     }
     yaz_close($id);
     $enrichment['sudoc']['content'] = $lines;
     $enrichment['source_label'] = $this->msg['sudoc_enrichment_source'];
     return $enrichment;
 }

function yazCclArray($ccl)
{
    global $config;
    $system = $config['lib']['system'];
    // Create an array to hold settings for the different systems
    $zopts = array();
    $zopts['aleph'] = array('syntax' => '', 'yaz_con_opts' => array('piggyback' => true));
    $zopts['bibliofil'] = array('syntax' => 'normarc', 'yaz_con_opts' => array('piggyback' => true));
    $zopts['bibsys'] = array('syntax' => '', 'yaz_con_opts' => array('piggyback' => false));
    $zopts['koha'] = array('syntax' => '', 'yaz_con_opts' => array('piggyback' => true));
    $zopts['mikromarc'] = array('syntax' => 'normarc', 'yaz_con_opts' => array('piggyback' => true));
    /*
    The Glitre project has not been able to find sample servers fot these
    systems, even after asking the vendors if any exist:
    
    $zopts['reindex'] = array(
      'syntax' => '', 
      'yaz_con_opts' => array(
    	'piggyback' => false,
      ),
    );
    $zopts['tidemann'] = array(
      'syntax' => '', 
      'yaz_con_opts' => array(
    	'piggyback' => false,
      ),	
    );
    */
    $hits = 0;
    $type = 'xml';
    $id = yaz_connect($config['lib']['z3950'], $zopts[$system]['yaz_con_opts']);
    yaz_element($id, "F");
    yaz_syntax($id, $zopts[$system]['syntax']);
    yaz_range($id, 1, 1);
    yaz_ccl_conf($id, get_zconfig());
    $cclresult = array();
    if (!yaz_ccl_parse($id, $ccl, $cclresult)) {
        echo 'Error yaz_ccl_parse: ' . $cclresult["errorstring"];
    } else {
        // Norwegian Z39.50 have no or limited support for yaz_sort
        // See http://wiki.biblab.no/index.php/Z39.50%2C_SRU_og_sortering for details
        // yaz_sort($id, "1=31 di");
        $rpn = $cclresult["rpn"];
        yaz_search($id, "rpn", utf8_decode($rpn));
    }
    yaz_wait();
    $error = yaz_error($id);
    if (!empty($error)) {
        $yaz_errno = yaz_errno($id);
        // echo "<p>Error yaz_wait: $error ($yaz_errno)</p>";
        $error = array('error' => true, 'stage' => 'yaz_wait', 'desc' => $error, 'num' => $yaz_errno);
        return $error;
    } else {
        $hits = yaz_hits($id);
    }
    $data = array();
    for ($p = 1; $p <= $hits; $p++) {
        $rec = yaz_record($id, $p, $type);
        if (empty($rec)) {
            continue;
        }
        $data[] = $rec;
        // If a max number of records is set for this library, respect it - otherwise use the default.
        $records_max = $config['lib']['records_max'] ? $config['lib']['records_max'] : $config['records_max'];
        if ($p == $records_max) {
            break;
        }
    }
    $ret = array("hits" => $hits, "result" => $data);
    return $ret;
}

 function search($source_id, $query, $search_id)
 {
     global $base_path, $charset, $include_path;
     //global $url,$z3950_base,$z3950_login,$z3950_password,$z3950_max_notices,$z3950_format,$z3950_port,$z3950_convert,$z3950_profil;
     $this->error = false;
     $this->error_message = "";
     $params = $this->get_source_params($source_id);
     $this->fetch_global_properties();
     if ($params["PARAMETERS"]) {
         //Affichage du formulaire avec $params["PARAMETERS"]
         $vars = unserialize($params["PARAMETERS"]);
         foreach ($vars as $key => $val) {
             global ${$key};
             ${$key} = $val;
         }
     }
     if (!($z3950_max_notices * 1)) {
         $z3950_max_notices = 100;
     }
     //Tranformation de la recherche en requete rpn bib1
     $rpn = $this->parse_query($query);
     $zurl = $url . ($z3950_port ? ":" . $z3950_port : "") . ($z3950_base ? "/" . $z3950_base : "");
     $opts = array();
     if ($z3950_login) {
         $opts["user"] = $z3950_login;
     }
     if ($z3950_password) {
         $opts["password"] = $z3950_password;
     }
     $opts["piggyback"] = false;
     $yaz_id = yaz_connect($zurl, $opts);
     yaz_element($yaz_id, "F");
     yaz_range($yaz_id, 1, $z3950_max_notices);
     yaz_syntax($yaz_id, strtolower($z3950_format));
     yaz_search($yaz_id, "rpn", $rpn . " ");
     $opts_wait = array("timeout" => $params["TIMEOUT"]);
     yaz_wait($opts_wait);
     if (yaz_error($yaz_id)) {
         $this->error = true;
         $this->error_message = yaz_error($yaz_id);
     } else {
         $n_results = yaz_hits($yaz_id);
         if ($n_results > $z3950_max_notices) {
             $n_results = $z3950_max_notices;
         }
         $convert_order = $this->get_convert_order($z3950_convert);
         for ($k = 1; $k <= $n_results; $k++) {
             $notice = yaz_record($yaz_id, $k, "raw");
             //Conversion de la notice
             if ($z3950_convert) {
                 $export = new convert($notice, $convert_order);
                 if (!$export->error) {
                     $cnotice = $export->output_notice;
                 } else {
                     $cnotice = "";
                 }
             } else {
                 $cnotice = $notice;
             }
             if ($cnotice) {
                 //Conversion de la notice en XML
                 $xmlunimarc = new xml_unimarc();
                 $nxml = $xmlunimarc->iso2709toXML_notice($cnotice);
                 if ($xmlunimarc->is_utf8) {
                     $rcharset = "utf-8";
                 } else {
                     $rcharset = $charset;
                 }
                 $xmlunimarc->notices_xml_[0] = '<?xml version="1.0" encoding="' . $rcharset . '"?>' . $xmlunimarc->notices_xml_[0];
                 if ($xslt_exemplaire) {
                     $xmlunimarc->notices_xml_[0] = $this->apply_xsl_to_xml($xmlunimarc->notices_xml_[0], $xslt_exemplaire["content"]);
                 }
                 //					print_r($xmlunimarc->notices_xml_[0]);
                 if ($nxml >= 1) {
                     $params = _parser_text_no_function_($xmlunimarc->notices_xml_[0], "NOTICE");
                     $this->rec_record($params, $source_id, $search_id);
                 }
             }
         }
     }
 }

 public function getSearchResults($query, $start, $step, &$hits, &$pid)
 {
     $stop = $start + $step;
     if ($this->grabQueryFromCache($query)) {
         //pull from cache
         $hits = mysql_num_rows($this->results);
         for ($i = $start; $i < $stop; $i++) {
             $results[] = $this->getCachedBook($i);
         }
     } else {
         //pull from LoC
         //  			$mayDemandCache = ( ( $HTTP_GET_VARS['type'] != $HTTP_GET_VARS['sort'] ) &&
         //  								( $HTTP_GET_VARS['type'] != 'Keyword' ) &&
         //                                 ( !isset( $HTTP_GET_VARS['sort'] ) ) );
         $mayDemandCache = isset($_GET['sort']) && (!($HTTP_GET_VARS['sort'] == $HTTP_GET_VARS['type'] && !isset($_GET['desc'])) || isset($_GET['desc']));
         $willCache = (ShelveIt::$cachePolicy == 'always' || ShelveIt::$cachePolicy == 'demand' && $mayDemandCache) && !(ShelveIt::$cachePolicy == 'never');
         // connect to LoC server
         $LoC = yaz_connect('z3950.loc.gov:7090/voyager');
         //set server options
         yaz_syntax($LoC, 'marc21');
         if ($willCache) {
             // we're going to grab all results
             yaz_range($LoC, 1, $this->maxHits);
         } else {
             yaz_range($LoC, $start, $step);
         }
         // perform search
         yaz_search($LoC, 'rpn', $query);
         // wait for search to finish
         yaz_wait();
         // check for an error
         $error = yaz_error($LoC);
         if (!empty($error)) {
             ShelveIt::$messages['errors'][] = $error . " {$query}";
             $hits = 0;
         } else {
             //get results
             $hits = yaz_hits($LoC);
             if ($willCache && $hits > ShelveIt::$query_cache['maxHits']) {
                 ShelveIt::$messages['warnings'][] = "Your search has too many results to be quickly sorted. It has been limited from {$hits} to " . ShelveIt::$query_cache['maxHits'] . ". You can make your search more specific so it has a small enough number of hits, or not sort to see all of the results.";
                 $hits = ShelveIt::$query_cache['maxHits'];
             }
             if ($hits > 0) {
                 if ($willCache) {
                     for ($i = 1; $i < $start; $i++) {
                         $rec = yaz_record($LoC, $i, 'xml');
                         $this->cacheBook($query, new Brief_Book($rec));
                     }
                 } else {
                     $i = $start;
                 }
                 for (; $i < $stop; $i++) {
                     $rec = yaz_record($LoC, $i, 'xml');
                     $book = new Brief_Book($rec);
                     $results[] = $book;
                     if ($willCache) {
                         $this->cacheBook($query, $book);
                     }
                 }
                 if ($willCache) {
                     // 						// quick note: I can fork using pcntl_fork
                     // 						$pid = pcntl_fork();
                     // 						if( $pid == -1 ) {
                     // 							die( 'CRITICAL ERROR: Forking failed. The server is likely in trouble. Please come back later.' );
                     // 						} else if(  $pid == 0 ) {
                     // pick up where we left off
                     for (; $i <= $hits; $i++) {
                         $rec = yaz_record($LoC, $i, 'xml');
                         $this->cacheBook($query, new Brief_Book($rec));
                     }
                     $this->collectGarbage();
                     // 							exit( 0 );
                     // 						}
                 }
             }
         }
     }
     return $results;
 }

 /** 
  * Fetch details about a specific item from WorldCat data service 
  *
  * @param array $pa_settings Plugin settings values
  * @param string $ps_url The URL originally returned by the data service uniquely identifying the item
  * @param array $pa_options Options include:
  *		APIKey = WorldCat API key to use. [Default is the key configured in worldcat_api_key in app.conf]
  *		user = Worldcat Z39.50 login name. [Default is the username configured in worldcat_z39.50_user in app.conf]
  *		password = WorldCAt Z39.50 password. [Default is the password configured in worldcat_z39.50_password in app.conf]
  *
  * @return array An array of data from the data server defining the item.
  */
 public function getExtendedInformation($pa_settings, $ps_url, $pa_options = null)
 {
     $va_config = $this->_getConfiguration($pa_settings, $pa_options);
     $va_tmp = explode("/", $ps_url);
     $vn_worldcat_id = array_pop($va_tmp);
     $va_data = array();
     if ($va_config['user'] && $va_config['z39IsAvailable']) {
         $r_conn = yaz_connect(WLPlugInformationServiceWorldCat::$s_worldcat_z3950_host, array('user' => $va_config['user'], 'password' => $va_config['password']));
         yaz_syntax($r_conn, "usmarc");
         yaz_range($r_conn, $vn_start + 1, $vn_start + $vn_count);
         yaz_search($r_conn, "rpn", '@attr 1=12 @attr 4=2 "' . str_replace('"', '', $vn_worldcat_id) . '"');
         yaz_wait();
         $vs_data = yaz_record($r_conn, 1, "xml; charset=marc-8,utf-8");
     } else {
         $o_client = new Client(WLPlugInformationServiceWorldCat::$s_worldcat_detail_url);
         try {
             if (!$va_config['curlIsAvailable']) {
                 throw new Exception(_t('CURL is required for WorldCat web API usage but not available on this server'));
             }
             if (!$va_config['APIKey']) {
                 if (!$va_config['z39IsAvailable']) {
                     throw new Exception(_t('Neither Z39.50 client is installed nor is WorldCat web API key configured'));
                 } else {
                     throw new Exception(_t('WorldCat web API key is not configured'));
                 }
             }
             // Create a request
             $o_request = $o_client->get("{$vn_worldcat_id}?wskey=" . $va_config['APIKey']);
             // Send the request and get the response
             $o_response = $o_request->send();
             $vs_data = (string) $o_response->getBody();
         } catch (Exception $e) {
             return array('display' => _t('WorldCat data could not be loaded: %1', $e->getMessage()));
         }
     }
     try {
         if (!$vs_data) {
             throw new Exception("No data returned");
         }
         $xml = new DOMDocument();
         $xml->loadXML($vs_data);
     } catch (Exception $e) {
         return array('display' => _t('WorldCat data could not be parsed: %1', $e->getMessage()));
     }
     switch ($pa_settings['detailStyle']) {
         case 'labels':
         default:
             $vs_template = file_get_contents(__CA_LIB_DIR__ . "/core/Plugins/InformationService/WorldCat/MARC21slim2English.xml");
             break;
         case 'codes':
             $vs_template = file_get_contents(__CA_LIB_DIR__ . "/core/Plugins/InformationService/WorldCat/MARC21slim2HTML.xml");
             break;
         case 'template':
             $vs_template = $pa_settings['detailXSLTemplate'];
             break;
     }
     try {
         $xsl = new DOMDocument();
         $xsl->loadXML($vs_template);
     } catch (Exception $e) {
         return array('display' => _t('WorldCat detail display template could not be parsed: %1', $e->getMessage()));
     }
     try {
         $proc = new XSLTProcessor();
         $proc->importStyleSheet($xsl);
         $vs_output = $proc->transformToXML($xml);
         $va_data = array('display' => $vs_output);
     } catch (Exception $e) {
         return array('display' => _t('WorldCat detail display template could not be created: %1', $e->getMessage()));
     }
     return $va_data;
 }

<?php

$z = yaz_connect("localhost:9999");
yaz_range($z, 1, 2);
yaz_search($z, "rpn", "computer");
yaz_wait();
$error = yaz_error($z);
if (!empty($error)) {
    echo "Error: {$error}\n";
} else {
    $hits = yaz_hits($z);
    echo "Result count {$hits}\n";
    for ($p = 1; $p <= 2; $p++) {
        $rec = yaz_record($z, $p, "string");
        if (empty($rec)) {
            break;
        }
        echo "----- {$p} -----\n{$rec}";
    }
}

 function doZSearch($zid, $rpn, $start, $number)
 {
     yaz_range($zid, (int) $start, (int) $number);
     yaz_syntax($zid, $this->z_syntax);
     if ($this->z_sort) {
         yaz_sort($zid, $this->z_sort);
     }
     yaz_element($zid, 'F');
     yaz_search($zid, "rpn", $rpn);
     yaz_wait($options = array('timeout' => $this->z_timeout));
     if (yaz_errno($zid)) {
         $error_msg = yaz_error($zid);
         if ($error_info = yaz_addinfo($zid)) {
             $error_msg .= ' - ' . $error_info;
         }
         $this->addError("error", sprintf(_("Fehler bei der Suche: %s"), $error_msg));
         return false;
     } else {
         return yaz_hits($zid);
     }
 }

function yazCclArray($ccl, $syntax = 'marc21', $host = 'default')
{
    global $config;
    if ($host == 'default') {
        $host = $config['libraries'][$_GET['bib']]['z3950'];
    }
    $zconfig = get_zconfig();
    $hits = 0;
    $type = 'xml';
    $id = yaz_connect($host);
    yaz_element($id, "F");
    yaz_syntax($id, $syntax);
    yaz_range($id, 1, 1);
    yaz_ccl_conf($id, $zconfig);
    $cclresult = array();
    if (!yaz_ccl_parse($id, $ccl, $cclresult)) {
        echo 'Error: ' . $cclresult["errorstring"];
    } else {
        // NB! Ser ikke ut som Z39.50 fra Bibliofil støtter "sort"
        // Se nederst her: http://www.bibsyst.no/produkter/bibliofil/z3950.php
        // PHP/YAZ-funksjonen yaz-sort ville kunne dratt nytte av dette:
        // http://no.php.net/manual/en/function.yaz-sort.php
        // Sort Flags
        // a Sort ascending
        // d Sort descending
        // i Case insensitive sorting
        // s Case sensitive sorting
        // Bib1-attributter man kunne sortert på:
        // http://www.bibsyst.no/produkter/bibliofil/z/carl.xml
        // yaz_sort($id, "1=31 di");
        $rpn = $cclresult["rpn"];
        yaz_search($id, "rpn", utf8_decode($rpn));
    }
    yaz_wait();
    $error = yaz_error($id);
    if (!empty($error)) {
        echo "Error yazCclArray: {$error}";
    } else {
        $hits = yaz_hits($id);
    }
    $data = array();
    for ($p = 1; $p <= $hits; $p++) {
        $rec = yaz_record($id, $p, $type);
        if (empty($rec)) {
            continue;
        }
        $data[] = $rec;
        if ($p == $config['maks_poster']) {
            break;
        }
    }
    $ret = array("hits" => $hits, "result" => $data);
    return $ret;
}

 for ($i = 0; $i < $num_hosts; $i++) {
     $id = yaz_connect($host[$i], $options);
     $ids[$i] = $id;
     if ($id <= 0) {
         continue;
     }
     if (!yaz_search($id, "rpn", $fullquery)) {
         echo $msgstr["expr_err"] . '<br>';
         $reintentar = 999;
         break;
     }
     if ($number > 1) {
         yaz_element($id, $element);
     } else {
         yaz_element($id, "F");
     }
     yaz_syntax($id, $syntax);
     yaz_range($id, $start, $number);
 }
 yaz_wait();
 $host_url = "term=" . urlencode($term) . "&field=";
 $host_url .= urlencode($field) . "&";
 $host_url .= "element={$element}&syntax={$syntax}";
 for ($i = 0; $i < $num_hosts; $i++) {
     $id = $ids[$i];
     if ($id <= 0) {
         continue;
     }
     $error = yaz_error($id);
     $errno = yaz_errno($id);
     $addinfo = yaz_addinfo($id);

function smarty_function_find_isbn($params, &$smarty)
{
    function filter_array($theHaystack, $info)
    {
        if (is_array($theHaystack)) {
            for ($k = 0; $k <= count($theHaystack); $k++) {
                if (substr_count($theHaystack[$k][0], '245') > 0 && substr_count($theHaystack[$k][0], 'a') > 0) {
                    if ($info == 'title') {
                        return $theHaystack[$k][1] . " " . substr($theHaystack[$k + 1][1], 0, strlen($theHaystack[$k + 1][1]) - 1);
                    } elseif ($info == 'author') {
                        return $theHaystack[$k + 2][1];
                    }
                }
            }
        } else {
            //$array=$explode(" / ", $theHaystack);
            $parts = explode("/", $theHaystack);
            if ($info == 'title') {
                return $parts[0];
            } elseif ($info == 'author') {
                return substr($parts[1], 0, strpos($parts[1], '-'));
            }
        }
        return "";
    }
    $isbninfo = array();
    if (empty($params['var'])) {
        $smarty->trigger_error("assign: missing 'var' parameter");
        return;
    }
    if (empty($params['info'])) {
        $smarty->trigger_error("assign: missing 'info' parameter");
        return;
    } else {
        $info = $params['info'];
    }
    if (empty($params['isbn'])) {
        $smarty->trigger_error("assign: missing 'isbn' parameter");
        return;
    } else {
        $isbn = $params['isbn'];
    }
    $name = array("HeBIS", "Deutsche Nationalbibliothek", "GILS", "Libraray of Congress");
    $host = array("tolk.hebis.de:20212/hebis", "z3950.dbf.ddb.de:210/iltis", "bagel.indexdata.dk/gils", "z3950.loc.gov:7090/voyager");
    $user = array("3950", "gast", "", "");
    $passwd = array("Z3950", "gast", "", "");
    $syntax = array("usmarc", "sutrs", "usmarc", "usmarc");
    $query = "@attr 1=7 " . $isbn;
    $found = false;
    $i = 0;
    $j = 0;
    while ($found == false && $i <= 3) {
        $id[$i] = yaz_connect($host[$i], array("user" => $user[$i], "password" => $passwd[$i]));
        yaz_syntax($id[$i], $syntax[$i]);
        yaz_range($id[$i], 1, 1);
        yaz_search($id[$i], "rpn", $query);
        yaz_wait();
        $error = yaz_error($id[$i]);
        $hits = yaz_hits($id[$i]);
        if (!empty($error) | $hits == 0) {
            $i++;
            if (!empty($error)) {
                $j++;
            }
        } else {
            $found = true;
            if ($i == 1) {
                $rec = yaz_record($id[$i], 1, "string");
            } else {
                $rec = yaz_record($id[$i], 1, "array");
            }
            //var_dump($rec);
            //echo "<table>";
            //echo "<tr><td valign='top'><b>Titel: </b></td><td>".filter_array($rec, 'title')."</td></tr>";
            //echo "<tr><td valign='top'><b>Autor: </b></td><td> ".filter_array($rec, 'author')."</td></tr>";
            //echo "</table>";
            $isbninfo['title'] = filter_array($rec, 'title');
            $isbninfo['author'] = filter_array($rec, 'author');
        }
    }
    if (empty($isbninfo['title']) | $found == false) {
        $isbninfo['title'] = "Es wurden keine Einträge gefunden.";
        $isbninfo['author'] = "Es wurden keine Einträge gefunden.";
        if ($j == 4) {
            $isbninfo['title'] = "Es konnte keine Verbindung hergestellt werden.";
            $isbninfo['author'] = "Es konnte keine Verbindung hergestellt werden.";
        }
    }
    //var_dump($isbninfo);
    $smarty->assign($params['var'], $isbninfo);
}