/
PasserelleSUDOC - Mémoires UBM
85 lines (76 loc) · 2.76 KB
/
PasserelleSUDOC - Mémoires UBM
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
rule "PasserelleSUDOC - Mémoires SUDOC"
priority 10
when
(TRUE)
then
removeField "999"
#Transfert et mef des PPN en 035 $a et $z (PPN erronnés)
addControlField "009.PPN"
addSystemNumber "035.a" from "001" prefixed by "009"
prefix "035.a" with "(PPN)" if (exists "035.9.sudoc")
changeSubField "035.a" to "z" if (exists "035.9.sudoc")
changeField "035" to "999" if (exists "035.a.(PPN)*")
changeField "035" to "999" if (exists "035.9.sudoc")
#On ne conserve que les 035 PPN
removeField "035"
combineFields "999" excluding "9"
removeSubField "999.9"
changeField "999" to "035"
removeControlField "009"
removeField "PPN"
#Mise en forme des 4## pour liens entre notices
changeSubField "4**.0" to "1"
prefix "4**.1" with "001(PPN)"
#Nettoyage des caractères de rejets des articles dans les titres
replaceContents "2**.*.\u0098" with "<<"
replaceContents "2**.*.\u009c" with ">>"
replaceContents "4**.*.\u0098" with "<<"
replaceContents "4**.*.\u009c" with ">>"
replaceContents "046.v.\u0098" with "<<"
replaceContents "046.v.\u009c" with ">>"
replaceContents "3**.*.\u0098" with "<<"
replaceContents "3**.*.\u009c" with ">>"
replaceContents "5**.*.\u0098" with "<<"
replaceContents "5**.*.\u009c" with ">>"
replaceContents "6**.*.\u0098" with "<<"
replaceContents "6**.*.\u009c" with ">>"
replaceContents "7**.*.\u0098" with "<<"
replaceContents "7**.*.\u009c" with ">>"
#Nettoyage des 801
removeField "801" if (exists "801.b.UBS")
removeField "801" if (exists "801.b.OCLC")
removeField "801" if (exists "801.b.BN")
removeField "801" if (exists "801.b.SF")
removeField "801" if (exists "801.b.Electre")
removeField "801" if (exists "801.b.AUROC")
removeField "801" if (exists "801.b.ISSN")
#Suppression de tous les champs 9## attente validation IEP
#removeField "9*"
#On supprime le 001 pour qu'il ne soit pas copié en 035
removeControlField "001"
#Alma traduit déjà le ss-chp d en = on efface celui envoyé par l'Abes
replaceContents "200.d.=" with ""
replaceContents "4**.l.=" with ""
#On transfert le PPN valide en 999 pour exploitation statistique
copyField "035.a" to "999.a" if (exists "035.a.(PPN)*")
replaceContents "999.a.(PPN)" with ""
#NNT en 035
prefix "029.b" with "(NNT)"
copyField "029.b" to "035.a"
replaceContents "029.b.(NNT)" with ""
end
rule "[DEDUP B+ ] Si plusieurs champs 500 alors on empêche la fusion"
priority 9
when
(existsMoreThanOnce "500.a")
then
addField "996.a.y"
end
#Ajoute un z à la E856 si la note n'existe pas
rule "Ajoute une note d'accès destiné au public"
priority 8
when
((not exists "856.z") AND (exists "856.5"))
then
addSubField "856.z.Accès au texte intégral réservé aux membres de l'Université Bordeaux Montaigne"
end