book.php

Go to the documentation of this file.

<?php
require_once('error.php');
require_once('const.php');
require_once('config.php');


### configuration section

# The result of a Z3950 query is delivered as an associative array
# in GRS format. Unfortunately, GRS records are quite hard to understand,
# which is why we translate them to a more readable format, see
# grs_analyze().
#
# Here, we define a mapping from GRS keys to human readable 
# keys. Regular expressions can be used to match several GRS keys. 
# It is also permitted  to map several GRS keys to the same human 
# readable key. 

$grs_dict = array (
        "/\(3,440\).*\(3,a\)/" => "title", 
        "/\(3,245\).*\(3,a\)/" => "title", 
        "/\(3,245\).*\(3,b\)/" => "title", 
        "/\(3,440\).*\(3,v\)/" => "volume", 
        "/\(3,700\)\(3,1 \)\(3,a\)/" => "author", 
        "/\(3,100\).*\(3,a\)/" => "author", 
        "/\(3,260\).*\(3,a\)/" => "publisher", 
        "/\(3,260\).*\(3,b\)/" => "publisher", 
        "/\(3,260\).*\(3,c\)/" => "year", 
        "/\(3,250\).*\(3,a\)/" => "edition",
        "/\(3,001\)\(3,@\)/" => "ppn",
        "/^\(3,900\)\(3,  \)\(3,d\)$/" => "signature",
#       "/^\(3,856\)\(3,4 \)\(3,u\)$/" => "url",
);

### end of configuration


function is_wildcard ($term) {
        return (preg_match('/[?*]\s*$/', $term) == 1 );
}


function normalize($term) {

        setlocale(LC_CTYPE,'de_DE');

        # strip whitespace

        $term = preg_replace('/\s\s+/', ' ', $term);
        $term = trim($term);

        # strip non-word, non-space characters, e.g. comma, brace, etc.
        $term = preg_replace('/[^\w\s\/_-]/', '', $term);

        $term = strtolower($term);

        return $term;
}


function build_z3950_query($search) {

        $i = 0;
        $z_query = "";


        foreach ($search as $key => $term) {

                if (empty($term)) {continue;}

                switch($key) {

                case "signature": 
                        $z_query .= '@or @attr 5=1 @attr 1=54 "';
                        $z_query .= normalize($term);
                        $z_query .= '" @attr 5=1 @attr 1=53 "';
                        $z_query .= normalize($term);
                        $z_query .= '" ';

                        $i++;
                        break;

                case "isbn":  

                        $z_query .= '@attr 5=1 @attr 1=7 "';
                        $z_query .= normalize($term);
                        $z_query .= '" ';

                        $i++;
                        break;

                case "author":  
                case "title":  

                        foreach (split(' ', $term) as $word) {

                                if (empty($term)) {continue;}
                                                
                                $z_query .= (is_wildcard($word)) ? 
                                                "@attr 5=1 " : "";

                                $z_query .= '@attr 1=1016 "';
                                $z_query .= normalize($word);
                                $z_query .= '" ';
                                $i++;
                        }
                        
                        break;
                }
        }

        while ($i > 1) {
                $z_query = "@and " . $z_query;
                $i--;
        }


        return $z_query;
}


function grs_analyze($grs) {
        global $grs_dict;

        $ans = array();

        foreach ($grs_dict as $key => $value )  {
                foreach ($grs as $rec)  {
                        if (preg_match($key, $rec[0])) {

                                $v = preg_replace("/[,\/ ]*$/","",$rec[1]);

                                # The PICA z39.50 server delivers
                                # the book signature mingled together with
                                # the book's location.  We strip the 
                                # location - which is enclosed in exclamation 
                                # marks - from the final result. 

                                if ($value == "signature") {
                                        $v = preg_replace("/![^!]*!/","",$v);
                                }

                                $ans[$value] .= "$v ; ";
                        }
                }

                # get rid of several semicolons, colons, commas, etc. in a row

                $ans[$value] = preg_replace("/;\s*;/",";",$ans[$value]);
                $ans[$value] = preg_replace("/:\s*;/",":",$ans[$value]);
                $ans[$value] = preg_replace("/\/\s*;/","/",$ans[$value]);
                $ans[$value] = preg_replace("/\.\s*;/",".",$ans[$value]);
        }


        $s = split(";", $ans[signature]);
        $ans[signature] = $s[0];        

        foreach ($ans as $key => $value) {
                $ans[$key] = trim($value, " ;" );
        }

        return $ans;
}


function book_info($search) {
        global $z_host, $z_port, $z_auth, $z_db, $z_query;

        # connect to z39.50 server

        $z_url =  "$z_host:$z_port/$z_db";
        $z_opts = array("user" => $z_user, "password" => $z_pass);

        $z_handle = yaz_connect($z_url, $z_opts) or 
                user_error(yaz_error($z_handle), E_USER_ERROR);

        yaz_syntax($z_handle, "usmarc");        // choose usmarc syntax
        yaz_range($z_handle, 1,100);            // max. 100 results
        yaz_element($z_handle, "F");            // request "full" records

        # build query, perform search

        $z_query =build_z3950_query($search); 


        yaz_search($z_handle, "rpn", $z_query);

        yaz_wait() or
                user_error( yaz_error($z_handle), E_USER_ERROR);

        $ans = array();

        $i = 1;

        # analyze response, build answer 

        while ( $z_record = yaz_record($z_handle,$i++, "array")) {

                 $a = grs_analyze($z_record);
                # $a['signature'] = $sig;
                 $ans[] = $a;

        }

        yaz_close($z_handle);

        return $ans;
}


?>

---