|
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 |
- |
|
|