-
Notifications
You must be signed in to change notification settings - Fork 2
/
koha_7xx_without_indicators.php
107 lines (90 loc) · 3.2 KB
/
koha_7xx_without_indicators.php
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
<?php
/*
* koha_7xx_without_indicators.php -- Displays biblionumbers that have items
* associated with them where a 7xx field has no indicators set (field 720 -
* 'Family Name' is excluded as no indicators are required for it).
* Copyright (C) 2017 Andreas Roussos
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
require 'File/MARCXML.php' ;
$time_start = microtime ( true ) ;
// Please fill in the next five variables.
$dbhost = '' ;
$dbuser = '' ;
$dbpass = '' ;
$dbname = '' ;
$kohastaffurl = 'http://<IP_ADDRESS>:<PORT>' ;
$urlsuffix = '/cgi-bin/koha/catalogue/detail.pl?biblionumber=' ;
$conn = mysqli_connect ( $dbhost, $dbuser, $dbpass, $dbname ) ;
if ( mysqli_connect_errno ( $conn ) ) {
printf ( "Connect failed: %s\n", mysqli_connect_error ( $conn ) ) ;
exit ;
}
if ( ! mysqli_set_charset ( $conn, "utf8" ) ) {
printf (
"Error loading character set utf8: %s\n",
mysqli_error ( $conn ) ) ;
exit ;
}
$query =
"SELECT
items.biblionumber,
biblio_metadata.metadata AS marcxml
FROM
items,
biblio_metadata
WHERE
items.biblionumber = biblio_metadata.biblionumber AND
biblio_metadata.format = 'marcxml'
GROUP BY
items.biblionumber
ORDER BY
items.biblionumber ASC" ;
if ( ! $res = mysqli_query ( $conn, $query ) ) {
printf ( "mysqli_query failed: %s\n", mysqli_error ( $conn ) ) ;
exit ;
}
if ( mysqli_num_rows ( $res ) != 0 ) {
echo "<pre>\n" ;
$count = 0 ;
while ( $row = mysqli_fetch_assoc ( $res ) ) {
$journals = new File_MARCXML (
$row [ 'marcxml' ],
File_MARC::SOURCE_STRING ) ;
$record = $journals -> next ( ) ;
$fields = $record -> getFields ( '^7', true ) ;
foreach ( $fields as $key => $datafield ) {
// field 720 requires no indicators and is therefore excluded
if ( $datafield -> getTag ( ) != '720' &&
$datafield -> getIndicator ( 1 ) == ' ' &&
$datafield -> getIndicator ( 2 ) == ' ' ) {
$count ++ ;
echo 'biblionumber '
. '<a href="' . $kohastaffurl . $urlsuffix
. $row [ 'biblionumber' ] . '" target="_blank">'
. $row [ 'biblionumber' ] . '</a> field '
. $datafield -> getTag ( ) . " has no indicators set\n" ;
}
}
}
echo "\n" . $count . " records found\n" ;
} else
exit ;
mysqli_close ( $conn ) ;
$time_end = microtime ( true ) ;
$time = $time_end - $time_start ;
printf ( "\nProcess time: %.3f seconds\n", $time ) ;
echo "</pre>\n" ;
?>