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