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');

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 èlanove !!

marc_indicators('245', 0, 0);

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

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

# treba dodati ostala polja za naslov ... !!!

marc('245','a',
	join_with(' : ',
		rec('225','a'),
		rec('225','e')
	),
);

marc('245','n',
	rec('225','h'),
);

marc('245','p',
	rec('225','i'),
);


marc_original_order('260', '210');

marc_remove('260','c');

marc('300','c',
	suffix(
		rec('215','e') ? ' + ' :
				 ' ',
			rec('215','d')

	)
);

marc('900','a',
	lookup(
		sub { rec('702','a') . ', ' . rec('702','b') },
		'nsk','baza',
		sub { rec('200','a') . rec('210','a') . rec('210','c') },
		sub { 
			regex('s/[:|,]//g',
				rec('225','a') . rec('210','a') . rec('210','b')
			);
		},
	)
);

marc_duplicate();
marc_remove('*');


} # $series

}
