5 |
|
|
6 |
marc('022','a', |
marc('022','a', |
7 |
lookup( |
lookup( |
8 |
sub { rec('022','a') }, |
sub { rec('B') }, |
9 |
'wiley','full', |
'wiley','full', |
10 |
sub { |
sub { |
11 |
regex('s/\s*(\.|:)\s*$//g', |
regex('s/\s*(\.|:|\-|\(|\))\s*//g', |
|
lc( |
|
|
rec('245','a') . ' ' . rec('245','b') |
|
|
) |
|
|
); |
|
|
}, |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
12 |
lc( rec('A') ) |
lc( rec('A') ) |
13 |
); |
); |
|
} |
|
|
) || |
|
|
lookup( |
|
|
sub { rec('022','a') }, |
|
|
'wiley','full', |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('245','a') ) |
|
|
); |
|
14 |
}, |
}, |
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('A') ) |
|
|
); |
|
|
} |
|
15 |
) |
) |
16 |
); |
); |
17 |
|
|
18 |
marc('022','y', |
marc('022','y', |
19 |
lookup( |
lookup( |
20 |
sub { rec('022','y') }, |
sub { rec('C') }, |
21 |
'wiley','full', |
'wiley','full', |
22 |
sub { |
sub { |
23 |
regex('s/\s*(\.|:)\s*$//g', |
regex('s/\s*(\.|:|\-|\(|\))\s*//g', |
|
lc( |
|
|
rec('245','a') . ' ' . rec('245','b') |
|
|
) |
|
|
); |
|
|
}, |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
24 |
lc( rec('A') ) |
lc( rec('A') ) |
25 |
); |
); |
|
} |
|
|
) || |
|
|
lookup( |
|
|
sub { rec('022','y') }, |
|
|
'wiley','full', |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('245','a') ) |
|
|
); |
|
26 |
}, |
}, |
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('A') ) |
|
|
); |
|
|
} |
|
27 |
) |
) |
28 |
); |
); |
29 |
|
|
37 |
'[ Elektronička građa ]' |
'[ Elektronička građa ]' |
38 |
); |
); |
39 |
|
|
|
marc_indicators('246', 1, 0); |
|
|
|
|
|
marc('246','a', |
|
|
lookup( |
|
|
sub { rec('246','a') }, |
|
|
'wiley','full', |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( |
|
|
rec('245','a') . ' ' . rec('245','b') |
|
|
) |
|
|
); |
|
|
}, |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('A') ) |
|
|
); |
|
|
} |
|
|
) || |
|
|
lookup( |
|
|
sub { rec('246','a') }, |
|
|
'wiley','full', |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('245','a') ) |
|
|
); |
|
|
}, |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('A') ) |
|
|
); |
|
|
} |
|
|
) |
|
|
); |
|
|
|
|
40 |
marc('500','a', |
marc('500','a', |
41 |
lookup( |
lookup( |
42 |
sub { rec('500','a') }, |
sub { 'Full Text dostupan od: ' . rec('V') }, |
43 |
'wiley','full', |
'wiley','full', |
44 |
sub { |
sub { |
45 |
regex('s/\s*(\.|:)\s*$//g', |
regex('s/\s*(\.|:|\-|\(|\))\s*//g', |
|
lc( |
|
|
rec('245','a') . ' ' . rec('245','b') |
|
|
) |
|
|
); |
|
|
}, |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
46 |
lc( rec('A') ) |
lc( rec('A') ) |
47 |
); |
); |
|
} |
|
|
) || |
|
|
lookup( |
|
|
sub { rec('500','a') }, |
|
|
'wiley','full', |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('245','a') ) |
|
|
); |
|
48 |
}, |
}, |
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('A') ) |
|
|
); |
|
|
} |
|
49 |
) |
) |
50 |
); |
); |
51 |
|
|
|
marc_indicators('650', ' ', 7); |
|
|
|
|
|
marc('650','a', |
|
|
lookup( |
|
|
sub { rec('650','a') }, |
|
|
'wiley','full', |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( |
|
|
rec('245','a') . ' ' . rec('245','b') |
|
|
) |
|
|
); |
|
|
}, |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('A') ) |
|
|
); |
|
|
} |
|
|
) || |
|
|
lookup( |
|
|
sub { rec('650','a') }, |
|
|
'wiley','full', |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('245','a') ) |
|
|
); |
|
|
}, |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('A') ) |
|
|
); |
|
|
} |
|
|
) |
|
|
); |
|
|
|
|
|
marc('650','v', |
|
|
lookup( |
|
|
sub { rec('650','v') }, |
|
|
'wiley','full', |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( |
|
|
rec('245','a') . ' ' . rec('245','b') |
|
|
) |
|
|
); |
|
|
}, |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('A') ) |
|
|
); |
|
|
} |
|
|
) || |
|
|
lookup( |
|
|
sub { rec('650','v') }, |
|
|
'wiley','full', |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('245','a') ) |
|
|
); |
|
|
}, |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('A') ) |
|
|
); |
|
|
} |
|
|
) |
|
|
); |
|
|
|
|
|
|
|
|
marc('650','z', |
|
|
lookup( |
|
|
sub { rec('650','z') }, |
|
|
'wiley','full', |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( |
|
|
rec('245','a') . ' ' . rec('245','b') |
|
|
) |
|
|
); |
|
|
}, |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('A') ) |
|
|
); |
|
|
} |
|
|
) || |
|
|
lookup( |
|
|
sub { rec('650','z') }, |
|
|
'wiley','full', |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('245','a') ) |
|
|
); |
|
|
}, |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('A') ) |
|
|
); |
|
|
} |
|
|
) |
|
|
); |
|
|
|
|
|
|
|
|
|
|
52 |
marc('856','u', |
marc('856','u', |
53 |
lookup( |
lookup( |
54 |
sub { rec('856','u') }, |
sub { rec('D') }, |
55 |
'wiley','full', |
'wiley','full', |
56 |
sub { |
sub { |
57 |
lc( |
regex('s/\s*(\.|:|\-|\(|\))\s*//g', |
|
rec('245','a') . rec('245','b') |
|
|
) |
|
|
}, |
|
|
|
|
|
sub { |
|
58 |
lc( rec('A') ) |
lc( rec('A') ) |
|
} |
|
|
) |
|
|
|| |
|
|
lookup( |
|
|
sub { rec('856','u') }, |
|
|
'wiley','full', |
|
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('245','a') ) |
|
59 |
); |
); |
60 |
}, |
}, |
|
sub { |
|
|
regex('s/\s*(\.|:)\s*$//g', |
|
|
lc( rec('A') ) |
|
|
); |
|
|
} |
|
61 |
) |
) |
62 |
); |
); |
63 |
|
|