57 |
## FIXME treba velika slova pretvoriti u mala |
## FIXME treba velika slova pretvoriti u mala |
58 |
|
|
59 |
marc_fixed('008','35', |
marc_fixed('008','35', |
60 |
first( rec('101') ) |
first( lc(rec('101')) ) |
61 |
); |
); |
62 |
|
|
63 |
|
|
69 |
|
|
70 |
|
|
71 |
marc('035','6', |
marc('035','6', |
72 |
join_with(' ', |
join_with('', |
73 |
# config('input normalize path'), |
# config('input normalize path'), |
74 |
# config('name'), |
# config('name'), |
75 |
config(), |
config(), |
225 |
|
|
226 |
if ( ( rec('200','a') =~ m/^Die /) || |
if ( ( rec('200','a') =~ m/^Die /) || |
227 |
( rec('200','a') =~ m/^Das /) || |
( rec('200','a') =~ m/^Das /) || |
228 |
|
( rec('200','a') =~ m/^Der /) || |
229 |
( rec('200','a') =~ m/^The /) ) { |
( rec('200','a') =~ m/^The /) ) { |
230 |
marc_indicators('245', $i1, 4); |
marc_indicators('245', $i1, 4); |
231 |
} |
} |
246 |
|
|
247 |
marc_compose('245', |
marc_compose('245', |
248 |
'a', suffix( |
'a', suffix( |
249 |
( ! rec('200','b') && ( rec('200','f') || rec('200','c') ) ) ? ' / ' : ' ', |
( ! rec('200','p') && ( rec('200','f') || rec('200','c') ) ) ? ' / ' : |
250 |
|
( rec('200','p') && rec('200','c') ) ? ' : ' : |
251 |
|
'', |
252 |
rec('200','a'), |
rec('200','a'), |
253 |
), |
), |
254 |
'b', suffix( |
'b', suffix( |
255 |
( rec('200','b') && rec('200','f') ) ? ' / ' : |
( rec('200','p') && rec('200','f') ) ? ' / ' : |
256 |
( rec('200','b') && rec('200','c') ) ? '. ' : |
( rec('200','p') && rec('200','c') ) ? '. ' : |
257 |
' ', |
'', |
258 |
rec('200','b'), |
rec('200','p'), |
259 |
), |
), |
260 |
'c', suffix( |
'c', suffix( |
261 |
( rec('200','f') && rec('200','c') ) ? '. ' : |
( rec('200','f') && rec('200','c') ) ? '. ' : |
262 |
' ', |
'', |
263 |
rec('200','f'), |
rec('200','f'), |
264 |
), |
), |
265 |
'+', rec('200','c'), |
'+', rec('200','c'), |
310 |
|
|
311 |
### 250 |
### 250 |
312 |
|
|
313 |
marc('250','a', |
marc_compose('250', |
314 |
suffix( |
'a',suffix( |
315 |
rec('205','f') ? ' / ' : |
rec('205','f') ? ' / ' : |
316 |
' '. |
' ', |
317 |
rec('205','a') |
rec('205','a') |
318 |
) |
), |
319 |
|
'b', rec('205','f'), |
320 |
); |
); |
321 |
|
|
322 |
marc('250','b', |
#marc('250','b', |
323 |
rec('205','f') |
# rec('205','f') |
324 |
); |
#); |
325 |
|
|
326 |
|
|
327 |
### 260 |
### 260 |
384 |
marc_indicators('440', ' ', 2); |
marc_indicators('440', ' ', 2); |
385 |
} |
} |
386 |
|
|
387 |
marc('440','a', |
#_debug(3); |
388 |
rec('225','a'), |
|
389 |
|
marc('440', |
390 |
|
'a', suffix( rec('225','f'), |
391 |
|
rec('225','a'), |
392 |
|
), |
393 |
); |
); |
394 |
|
|
395 |
|
# join_with(' / ', |
396 |
|
# join_with(' ', |
397 |
|
# rec('225','a'), |
398 |
|
# rec('225','p'), |
399 |
|
# ), |
400 |
|
# rec('225','f') |
401 |
|
# ), |
402 |
|
|
403 |
|
#_debug(0); |
404 |
|
|
405 |
marc('440','n', |
marc('440','n', |
406 |
rec('225','h') |
rec('225','h') |
407 |
); |
); |
660 |
|
|
661 |
### generiranje zapisa o nakladničkoj cjelini i povezivanje podređenog zapisa s nadređenim |
### generiranje zapisa o nakladničkoj cjelini i povezivanje podređenog zapisa s nadređenim |
662 |
|
|
663 |
|
if ( |
664 |
|
rec('225','a') # da li je nakladnicka cjelina? |
665 |
|
) { |
666 |
|
|
667 |
|
my $series_key = |
668 |
|
join_with('', |
669 |
|
rec('225','a'), |
670 |
|
rec('210','a'), |
671 |
|
rec('210','b'), |
672 |
|
); |
673 |
|
|
674 |
|
my $series = get( $series_key ); |
675 |
|
|
676 |
|
if ($series) { |
677 |
|
warn "nije novi"; |
678 |
|
} else { |
679 |
|
|
680 |
|
|
681 |
|
$series = join_with('', |
682 |
|
config(), |
683 |
|
'LS', |
684 |
|
rec('000') |
685 |
|
); |
686 |
|
|
687 |
|
set( $series_key => $series ); |
688 |
|
|
689 |
|
} |
690 |
|
} |
691 |
|
|
692 |
my $series_key = join_with('', |
my $series_key = join_with('', |
693 |
rec('225','a'), |
rec('225','a'), |
703 |
get( $series_key ) |
get( $series_key ) |
704 |
); |
); |
705 |
} |
} |
|
|
|
706 |
### testing |
### testing |
707 |
# |
# |
708 |
# my $dup_key = join_with('', |
# my $dup_key = join_with('', |