| 1 |
mglavica |
1268 |
# warn dump(rec('AU')); |
| 2 |
|
|
# warn dump(rec_array('AU')); |
| 3 |
|
|
|
| 4 |
|
|
#di => split( /;/, rec( |
| 5 |
|
|
|
| 6 |
|
|
my $sig = |
| 7 |
|
|
lookup( |
| 8 |
|
|
sub { 1 }, |
| 9 |
|
|
'casopisi','sig', |
| 10 |
|
|
sub { rec('A') . rec('B') }, |
| 11 |
|
|
sub { config ('input collection') . rec('000') } |
| 12 |
|
|
); |
| 13 |
|
|
|
| 14 |
|
|
row( 'isis', |
| 15 |
|
|
sig => $sig || 0, |
| 16 |
|
|
zbirka => config('input collection'), |
| 17 |
|
|
mfn => rec('000'), |
| 18 |
mglavica |
1273 |
signatura => rec('990') || 0, |
| 19 |
mglavica |
1268 |
zemlja => rec('102') || 0, |
| 20 |
mglavica |
1273 |
naslov => |
| 21 |
|
|
join_with(' : ', |
| 22 |
|
|
join_with(' = ', |
| 23 |
|
|
rec('200','a'), |
| 24 |
|
|
rec('200','d') |
| 25 |
|
|
), |
| 26 |
|
|
rec('200','e') |
| 27 |
|
|
) || 0, |
| 28 |
|
|
odgovornost => |
| 29 |
|
|
join_with(' ; ', |
| 30 |
|
|
rec('200','f'), |
| 31 |
|
|
) || 0, |
| 32 |
|
|
issn => rec('11') || 0, |
| 33 |
mglavica |
1278 |
f205 => rec('205') || 0, |
| 34 |
mglavica |
1268 |
f207a => |
| 35 |
|
|
join_with(' ; ', |
| 36 |
|
|
rec('207','a') |
| 37 |
|
|
) || 0, |
| 38 |
mglavica |
1278 |
f210d => rec('210','d') || 0, |
| 39 |
mglavica |
1268 |
f326 => rec('326') || 0, |
| 40 |
|
|
f215a => rec('215','a') || 0, |
| 41 |
|
|
f991b => rec('991','b') || 0 |
| 42 |
|
|
); |
Parent Directory
| 
Revision Log