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','c');
marc_leader('18','i');

## 008 

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

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('245',
        'a', suffix(
                ( ! rec('225','b') && rec('225','f') ) ? ' / ' : 
                rec('225','c') ? ' / ' : ' ',
                        rec('225','a'),
        )
);
marc('245',
        'b', suffix(
                ( rec('225','b') && rec('225','f') ) ? ' / ' : 
                ( rec('225','b') && rec('225','c') ) ? '. '  : 
                        ' ',
                        rec('225','b'),
        ),
);
marc('245',
        '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			$series = join_with(' ',
33			config(),
34			'LS',
35			rec('000')
36			);
37
38			set( $series_key => $series );
39
40			# Leader
41			marc_leader('05','n');
42			marc_leader('06','a');
43	dpavlin	795	marc_leader('07','c');
44	dpavlin	792	marc_leader('18','i');
45
46	dpavlin	816	## 008
47
48			marc_fixed('008','35',
49			first( rec('101') )
50			);
51
52	dpavlin	792	marc('035','6', $series );
53
54			marc('040','a',
55			'HR FFZG'
56			);
57
58			marc('040','b',
59			'hrv'
60			);
61
62			marc('040','e',
63			'HR PPIAK'
64			);
65
66			marc_indicators('041', 0, ' ');
67
68			marc_repeatable_subfield('041','a',
69			rec('101')
70			);
71
72	dpavlin	816	# indikatori za 245
73	dpavlin	792
74	dpavlin	816	my $i1;
75	dpavlin	792
76	dpavlin	816	if ( rec('700') \|\| rec('710') ) {
77			$i1 = 1;
78
79			} else {
80			$i1 = 0;
81			}
82
83			marc_indicators('245', $i1, 0);
84
85			if ( ( rec('200','a') =~ m/^Die /) \|\|
86			( rec('200','a') =~ m/^Das /) \|\|
87			( rec('200','a') =~ m/^The /) ) {
88			marc_indicators('245', $i1, 4);
89	dpavlin	792	}
90
91	dpavlin	816	if ( ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) ) {
92			marc_indicators('245', $i1, 2);
93	dpavlin	792	}
94
95	dpavlin	816	if ( ( rec('200','a') =~ m/^An /) && ( rec(101) =~ m/ENG/ ) ) {
96			marc_indicators('245', $i1, 2);
97			}
98	dpavlin	792
99
100	dpavlin	816	## 245
101	dpavlin	795
102	dpavlin	816	marc('245',
103			'a', suffix(
104			( ! rec('225','b') && rec('225','f') ) ? ' / ' :
105			rec('225','c') ? ' / ' : ' ',
106			rec('225','a'),
107			)
108	dpavlin	792	);
109	dpavlin	816	marc('245',
110			'b', suffix(
111			( rec('225','b') && rec('225','f') ) ? ' / ' :
112			( rec('225','b') && rec('225','c') ) ? '. ' :
113			' ',
114			rec('225','b'),
115			),
116	dpavlin	792	);
117	dpavlin	816	marc('245',
118			'c', suffix(
119			( rec('225','f') && rec('225','c') ) ? '. ' :
120			' ',
121			rec('225','f'),
122			),
123			);
124	dpavlin	792
125			marc_original_order('260', '210');
126
127			marc_remove('260','c');
128
129	dpavlin	816	## FIXME - UPISATI PODATAK U 260c
130	dpavlin	792
131	dpavlin	807	#_debug(2);
132	dpavlin	792
133	dpavlin	816	#marc('900','a',
134			# lookup(
135			# sub { rec('702','a') . ', ' . rec('702','b') },
136			# 'nsk','baza',
137			# sub { rec('200','a') . rec('210','a') . rec('210','c') },
138			# sub { rec('225','a') . rec('210','a') . rec('210','b') },
139			# )
140			#);
141
142	dpavlin	807	#_debug(0);
143	dpavlin	795
144	dpavlin	792	marc_duplicate();
145			marc_remove('*');
146
147
148			} # $series
149
150			}