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('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','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

}
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			'LS',
35			rec('000')
36			);
37
38	dpavlin	824	#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	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	824	( ! rec('225','p') && ( rec('225','f') \|\| rec('225','c') ) ) ? ' / ' :
113			( rec('225','p') && rec('225','c') ) ? ' : ' :
114			'',
115			first(rec('225','a')),
116			),
117	dpavlin	816	'b', suffix(
118	dpavlin	824	( rec('225','p') && rec('225','f') ) ? ' / ' :
119			( rec('225','p') && rec('225','c') ) ? '. ' :
120			'',
121			rec('225','p'),
122	dpavlin	816	),
123			'c', suffix(
124			( rec('225','f') && rec('225','c') ) ? '. ' :
125	dpavlin	824	'',
126	dpavlin	816	rec('225','f'),
127			),
128			);
129	dpavlin	792
130			marc_original_order('260', '210');
131
132			marc_remove('260','c');
133
134	dpavlin	816	## FIXME - UPISATI PODATAK U 260c
135	dpavlin	792
136	dpavlin	807	#_debug(2);
137	dpavlin	792
138	dpavlin	816	#marc('900','a',
139			# lookup(
140			# sub { rec('702','a') . ', ' . rec('702','b') },
141			# 'nsk','baza',
142			# sub { rec('200','a') . rec('210','a') . rec('210','c') },
143			# sub { rec('225','a') . rec('210','a') . rec('210','b') },
144			# )
145			#);
146
147	dpavlin	807	#_debug(0);
148	dpavlin	795
149	dpavlin	792	marc_duplicate();
150			marc_remove('*');
151
152
153			} # $series
154
155			}