conf/normalize/ff-nakladnicka.pl

if (
        rec('225','a')  # da li je nakladnicka cjelina?
#       &&              # i
#       count( lookup(
#               sub { 1 },
#               'ffsf','blibri',
#               sub {
#                       join_with('',
#                               rec('225','a'),
#                               rec('210','a'),
#                               rec('210','b'),
#                       )
#               }
#       ) ) > 1
) {


my $series_key =
join_with('',
        rec('225','a'),
        rec('210','a'),
        rec('210','b'),
);

my $series = get( $series_key );

if ($series) {
        warn "nije novi";
} else {


$series = join_with('',
        config(),
        ' LS',
        rec('000')
);

set( $series_key => $series );

# Leader
marc_leader('05','n');
marc_leader('06','a');
marc_leader('07','s');
marc_leader('17','7');
marc_leader('18','i');

## 008 

marc_fixed('008',00,
        '070401'
);

marc_fixed('008','35',
        first( lc( rec('101') ) )
);

marc('022','a',
        rec('225','x')
);

marc('035','6', $series );

marc('040','a',
        'HR FFZG'
);

marc('040','b',
        'hrv'
);

marc('040','e',
        'HR PPIAK'
);

marc_indicators('041', 0, ' ');

marc_repeatable_subfield('041','a',
        rec('101')
);

# indikatori za 245 

my $i1;

if ( rec('700') || rec('710') ) {
        $i1 = 1;

} else {
        $i1 = 0;
}
        
marc_indicators('245', $i1, 0);

if (    ( rec('200','a') =~ m/^Die /) || 
        ( rec('200','a') =~ m/^Das /) || 
        ( rec('200','a') =~ m/^The /) ) {
                marc_indicators('245', $i1, 4);
} 

if (    ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) ) {
                marc_indicators('245', $i1, 2);
} 

if (    ( rec('200','a') =~ m/^An /) && ( rec(101) =~ m/ENG/ ) ) {
                marc_indicators('245', $i1, 2);
} 


## 245

marc_compose('245',
        'a', suffix(
                ( ! ( rec('225','d') || rec('225','e') ) ) && ( rec('225','f') ) ? ' / ' :  
                ( rec('225','d') ) ? ' = ' :
                ( rec('225','e') ) ? ' : ' :
                ( rec('225','i') ) ? '. ' :
                        '', 
                        rec('225','a'),
        ),
        'b', suffix(
                ( rec('225','d') && rec('225','f') ) ? ' / ' : 
                        '',
                        rec('225','d'),
        ),
        'b', suffix(
                ( rec('225','e') && rec('225','f') ) ? ' / ' : 
                        '',
                        rec('225','e'),
        ),
        'c', suffix(
                ( rec('225','f') && rec('225','i') ) ? '. ' :
                        '',
                        rec('225','f'),
        ),
        'p', rec('225','i'),
);

#marc_compose('245',
#       'a', suffix(
#               ( ! rec('225','p') && ( rec('225','f') || rec('225','c') ) ) ? ' / ' :  
#               ( rec('225','p') && rec('225','c') ) ? ' : '  : 
#                       '', 
#                       first(rec('225','a')),
#       ),
#       'b', suffix(
#               ( rec('225','p') && rec('225','f') ) ? ' / ' : 
#               ( rec('225','p') && rec('225','c') ) ? '. '  : 
#                       '',
#                       rec('225','p'),
#       ),
#       'c', suffix(
#               ( rec('225','f') && rec('225','c') ) ? '. ' :
#                       '',
#                       rec('225','f'),
#       ),
#);

marc_original_order('260', '210');

marc_remove('260','c');

## FIXME - UPISATI PODATAK U 260c

#_debug(2);

#marc('900','a',
#       lookup(
#               sub { rec('702','a') . ', ' . rec('702','b') },
#               'nsk','baza',
#               sub { rec('200','a') . rec('210','a') . rec('210','c') },
#               sub { rec('225','a') . rec('210','a') . rec('210','b') },
#       )
#);

#_debug(0);

#marc_duplicate();
#marc_remove('*');


} # $series

} # nakladnièka cjelina
1	dpavlin	792	if (
2			rec('225','a') # da li je nakladnicka cjelina?
3	dpavlin	795	# && # i
4			# count( lookup(
5			# sub { 1 },
6			# 'ffsf','blibri',
7			# sub {
8			# join_with('',
9			# rec('225','a'),
10			# rec('210','a'),
11			# rec('210','b'),
12			# )
13			# }
14			# ) ) > 1
15	dpavlin	792	) {
16
17	dpavlin	795
18	dpavlin	792	my $series_key =
19			join_with('',
20			rec('225','a'),
21			rec('210','a'),
22			rec('210','b'),
23			);
24
25			my $series = get( $series_key );
26
27			if ($series) {
28			warn "nije novi";
29			} else {
30
31
32	dpavlin	824	$series = join_with('',
33	dpavlin	792	config(),
34	dpavlin	876	' LS',
35	dpavlin	792	rec('000')
36			);
37
38	dpavlin	876	set( $series_key => $series );
39	dpavlin	792
40			# Leader
41			marc_leader('05','n');
42			marc_leader('06','a');
43	dpavlin	824	marc_leader('07','s');
44	dpavlin	876	marc_leader('17','7');
45	dpavlin	792	marc_leader('18','i');
46
47	dpavlin	816	## 008
48
49	dpavlin	824	marc_fixed('008',00,
50			'070401'
51			);
52
53	dpavlin	816	marc_fixed('008','35',
54	dpavlin	824	first( lc( rec('101') ) )
55	dpavlin	816	);
56
57	dpavlin	824	marc('022','a',
58			rec('225','x')
59			);
60
61	dpavlin	792	marc('035','6', $series );
62
63			marc('040','a',
64			'HR FFZG'
65			);
66
67			marc('040','b',
68			'hrv'
69			);
70
71			marc('040','e',
72			'HR PPIAK'
73			);
74
75			marc_indicators('041', 0, ' ');
76
77			marc_repeatable_subfield('041','a',
78			rec('101')
79			);
80
81	dpavlin	816	# indikatori za 245
82	dpavlin	792
83	dpavlin	816	my $i1;
84	dpavlin	792
85	dpavlin	816	if ( rec('700') \|\| rec('710') ) {
86			$i1 = 1;
87
88			} else {
89			$i1 = 0;
90			}
91
92			marc_indicators('245', $i1, 0);
93
94			if ( ( rec('200','a') =~ m/^Die /) \|\|
95			( rec('200','a') =~ m/^Das /) \|\|
96			( rec('200','a') =~ m/^The /) ) {
97			marc_indicators('245', $i1, 4);
98	dpavlin	792	}
99
100	dpavlin	816	if ( ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) ) {
101			marc_indicators('245', $i1, 2);
102	dpavlin	792	}
103
104	dpavlin	816	if ( ( rec('200','a') =~ m/^An /) && ( rec(101) =~ m/ENG/ ) ) {
105			marc_indicators('245', $i1, 2);
106			}
107	dpavlin	792
108
109	dpavlin	816	## 245
110	dpavlin	795
111	dpavlin	824	marc_compose('245',
112	dpavlin	816	'a', suffix(
113	dpavlin	876	( ! ( rec('225','d') \|\| rec('225','e') ) ) && ( rec('225','f') ) ? ' / ' :
114			( rec('225','d') ) ? ' = ' :
115			( rec('225','e') ) ? ' : ' :
116			( rec('225','i') ) ? '. ' :
117	dpavlin	824	'',
118	dpavlin	876	rec('225','a'),
119	dpavlin	824	),
120	dpavlin	816	'b', suffix(
121	dpavlin	876	( rec('225','d') && rec('225','f') ) ? ' / ' :
122	dpavlin	824	'',
123	dpavlin	876	rec('225','d'),
124	dpavlin	816	),
125	dpavlin	876	'b', suffix(
126			( rec('225','e') && rec('225','f') ) ? ' / ' :
127			'',
128			rec('225','e'),
129			),
130	dpavlin	816	'c', suffix(
131	dpavlin	876	( rec('225','f') && rec('225','i') ) ? '. ' :
132	dpavlin	824	'',
133	dpavlin	816	rec('225','f'),
134			),
135	dpavlin	876	'p', rec('225','i'),
136	dpavlin	816	);
137	dpavlin	792
138	dpavlin	876	#marc_compose('245',
139			# 'a', suffix(
140			# ( ! rec('225','p') && ( rec('225','f') \|\| rec('225','c') ) ) ? ' / ' :
141			# ( rec('225','p') && rec('225','c') ) ? ' : ' :
142			# '',
143			# first(rec('225','a')),
144			# ),
145			# 'b', suffix(
146			# ( rec('225','p') && rec('225','f') ) ? ' / ' :
147			# ( rec('225','p') && rec('225','c') ) ? '. ' :
148			# '',
149			# rec('225','p'),
150			# ),
151			# 'c', suffix(
152			# ( rec('225','f') && rec('225','c') ) ? '. ' :
153			# '',
154			# rec('225','f'),
155			# ),
156			#);
157
158	dpavlin	792	marc_original_order('260', '210');
159
160			marc_remove('260','c');
161
162	dpavlin	816	## FIXME - UPISATI PODATAK U 260c
163	dpavlin	792
164	dpavlin	807	#_debug(2);
165	dpavlin	792
166	dpavlin	816	#marc('900','a',
167			# lookup(
168			# sub { rec('702','a') . ', ' . rec('702','b') },
169			# 'nsk','baza',
170			# sub { rec('200','a') . rec('210','a') . rec('210','c') },
171			# sub { rec('225','a') . rec('210','a') . rec('210','b') },
172			# )
173			#);
174
175	dpavlin	807	#_debug(0);
176	dpavlin	795
177	dpavlin	876	#marc_duplicate();
178			#marc_remove('*');
179	dpavlin	792
180
181			} # $series
182
183	dpavlin	876	} # nakladnièka cjelina