Lines 15-20
return {
Link Here
|
15 |
ADD COLUMN `opac_suppressed` tinyint(1) NOT NULL DEFAULT 0 COMMENT 'whether the record should be suppressed in the OPAC' AFTER `abstract`; |
15 |
ADD COLUMN `opac_suppressed` tinyint(1) NOT NULL DEFAULT 0 COMMENT 'whether the record should be suppressed in the OPAC' AFTER `abstract`; |
16 |
} |
16 |
} |
17 |
); |
17 |
); |
|
|
18 |
|
19 |
$dbh->do( |
20 |
q{ |
21 |
UPDATE biblio b |
22 |
JOIN biblio_metadata m ON b.biblionumber = m.biblionumber |
23 |
SET b.opac_suppressed = |
24 |
CASE |
25 |
WHEN ExtractValue(m.metadata, '//datafield[@tag="952"]/subfield[@code="n"]') REGEXP '^[01]$' THEN |
26 |
ExtractValue(m.metadata, '//datafield[@tag="952"]/subfield[@code="n"]') |
27 |
ELSE 0 |
28 |
END |
29 |
WHERE m.metadata LIKE '%<datafield tag="952">%'; |
30 |
} |
31 |
); |
32 |
|
18 |
say $out "Added column 'biblio.opac_suppressed'"; |
33 |
say $out "Added column 'biblio.opac_suppressed'"; |
19 |
} |
34 |
} |
20 |
|
35 |
|
Lines 25-30
return {
Link Here
|
25 |
ADD COLUMN `opac_suppressed` tinyint(1) NOT NULL DEFAULT 0 COMMENT 'whether the record should be suppressed in the OPAC' AFTER `abstract`; |
40 |
ADD COLUMN `opac_suppressed` tinyint(1) NOT NULL DEFAULT 0 COMMENT 'whether the record should be suppressed in the OPAC' AFTER `abstract`; |
26 |
} |
41 |
} |
27 |
); |
42 |
); |
|
|
43 |
|
44 |
$dbh->do( |
45 |
q{ |
46 |
UPDATE deletedbiblio b |
47 |
JOIN deletedbiblio_metadata m ON b.biblionumber = m.biblionumber |
48 |
SET b.opac_suppressed = |
49 |
CASE |
50 |
WHEN ExtractValue(m.metadata, '//datafield[@tag="952"]/subfield[@code="n"]') REGEXP '^[01]$' THEN |
51 |
ExtractValue(m.metadata, '//datafield[@tag="952"]/subfield[@code="n"]') |
52 |
ELSE 0 |
53 |
END |
54 |
WHERE m.metadata LIKE '%<datafield tag="952">%'; |
55 |
} |
56 |
); |
57 |
|
28 |
say $out "Added column 'deletedbiblio.opac_suppressed'"; |
58 |
say $out "Added column 'deletedbiblio.opac_suppressed'"; |
29 |
} |
59 |
} |
30 |
|
60 |
|
Lines 33-38
return {
Link Here
|
33 |
UPDATE marc_subfield_structure SET kohafield='biblio.opac_suppressed' WHERE tagfield=942 AND tagsubfield='n'; |
63 |
UPDATE marc_subfield_structure SET kohafield='biblio.opac_suppressed' WHERE tagfield=942 AND tagsubfield='n'; |
34 |
} |
64 |
} |
35 |
); |
65 |
); |
|
|
66 |
|
36 |
say $out "Set the 942\$n => biblio.opac_suppressed mapping for all MARC frameworks"; |
67 |
say $out "Set the 942\$n => biblio.opac_suppressed mapping for all MARC frameworks"; |
37 |
say_warning( $out, "You need to run the `maintenance/touch_all_biblios.pl` script" ); |
68 |
say_warning( $out, "You need to run the `maintenance/touch_all_biblios.pl` script" ); |
38 |
}, |
69 |
}, |
39 |
- |
|
|