Lines 18-32
return {
Link Here
|
18 |
|
18 |
|
19 |
$dbh->do( |
19 |
$dbh->do( |
20 |
q{ |
20 |
q{ |
21 |
UPDATE biblio b |
21 |
UPDATE biblio b |
22 |
JOIN biblio_metadata m ON b.biblionumber = m.biblionumber |
22 |
JOIN biblio_metadata m ON b.biblionumber = m.biblionumber |
23 |
SET b.opac_suppressed = |
23 |
SET b.opac_suppressed = |
24 |
CASE |
24 |
CASE |
25 |
WHEN ExtractValue(m.metadata, '//datafield[@tag="942"]/subfield[@code="n"]') REGEXP '^[01]$' THEN |
25 |
WHEN LOWER(TRIM(ExtractValue(m.metadata, '//datafield[@tag="942"]/subfield[@code="n"]'))) IN ('1', 'yes', 'true') THEN 1 |
26 |
ExtractValue(m.metadata, '//datafield[@tag="942"]/subfield[@code="n"]') |
26 |
WHEN LOWER(TRIM(ExtractValue(m.metadata, '//datafield[@tag="942"]/subfield[@code="n"]'))) IN ('0', 'no', 'false', '') THEN 0 |
27 |
ELSE 0 |
27 |
ELSE 0 |
28 |
END |
28 |
END |
29 |
WHERE m.metadata LIKE '%<datafield tag="942">%'; |
29 |
WHERE m.metadata LIKE '%<datafield tag="942">%'; |
30 |
} |
30 |
} |
31 |
); |
31 |
); |
32 |
|
32 |
|
Lines 45-54
return {
Link Here
|
45 |
q{ |
45 |
q{ |
46 |
UPDATE deletedbiblio b |
46 |
UPDATE deletedbiblio b |
47 |
JOIN deletedbiblio_metadata m ON b.biblionumber = m.biblionumber |
47 |
JOIN deletedbiblio_metadata m ON b.biblionumber = m.biblionumber |
48 |
SET b.opac_suppressed = |
48 |
SET b.opac_suppressed = |
49 |
CASE |
49 |
CASE |
50 |
WHEN ExtractValue(m.metadata, '//datafield[@tag="942"]/subfield[@code="n"]') REGEXP '^[01]$' THEN |
50 |
WHEN LOWER(TRIM(ExtractValue(m.metadata, '//datafield[@tag="942"]/subfield[@code="n"]'))) IN ('1', 'yes', 'true') THEN 1 |
51 |
ExtractValue(m.metadata, '//datafield[@tag="942"]/subfield[@code="n"]') |
51 |
WHEN LOWER(TRIM(ExtractValue(m.metadata, '//datafield[@tag="942"]/subfield[@code="n"]'))) IN ('0', 'no', 'false', '') THEN 0 |
52 |
ELSE 0 |
52 |
ELSE 0 |
53 |
END |
53 |
END |
54 |
WHERE m.metadata LIKE '%<datafield tag="942">%'; |
54 |
WHERE m.metadata LIKE '%<datafield tag="942">%'; |
55 |
- |
|
|