projects
/
webpac2
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
local
[webpac2]
/
conf
/
normalize
/
marc-cufts.pl
1
marc('022','a',
2
rec('022','a')
3
);
4
5
marc('022','y',
6
rec('022','y')
7
);
8
9
10
marc_indicators('245', 0, 0);
11
12
marc('245','a',
13
rec('245','a')
14
);
15
16
marc('245','b',
17
rec('245','b')
18
);
19
20
marc('245','h',
21
'[ Elektronièka graða ]'
22
);
23
24
marc_indicators('246', 0, 0);
25
26
marc('246','a',
27
rec('246','a')
28
);
29
30
marc('500','a',
31
rec('500','a')
32
);
33
34
marc('500','a',
35
lookup(
36
sub { 'Licenciran' },
37
'wiley','licenced',
38
sub {
39
lc( rec('A') )
40
},
41
sub {
42
regex('s/\s*(\.|:)\s*$//g',
43
lc( rec('245','a') )
44
);
45
},
46
)
47
);
48
49
marc_indicators('650', ' ', 2);
50
51
marc('650','a',
52
rec('650','a')
53
);
54
55
marc('650','v',
56
rec('650','v')
57
);
58
59
marc('650','z',
60
rec('650','z')
61
);
62
63
marc('856','u',
64
rec('856','u')
65
);
66
67