-
-### 740 - Added Entry - Uncontrolled Related/Analytical Title
-## raspraviti
-## nadopuniti prvi indikator prema clanovima
-marc_indicators('740', '0', ' ');
-
-# if ( ! rec('464') ) {
-# marc('740','a',
-# rec('200','c')
-# );
-
-#marc('740','a',
-# rec('200','k')
-#);
-
-# } else {
-
-#marc('740','a',
-# rec('464','a')
-#);
-
-# };
-
-### 760 w ---------------------------------------------
-## generiranje zapisa o nakladnickoj cjelini i povezivanje podredenog zapisa s nadredenim
-
-#if (
-# rec('225','a') # da li je nakladnicka cjelina?
-#) {
-
-#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('',
-# uc( config() ),
-# ' LS',
-# rec('000')
-#);
-#
-#set( $series_key => $series );
-#
-#} # $series
-#} # nakladnicka cjelina
-#
-#my $series_key = join_with('',
-# rec('225','a'),
-# rec('210','a'),
-# rec('210','b'),
-#);
-#
-#if ($series_key) {
-#
-# marc_indicators('760', 0, ' ');
-#
-# marc('760','t',
-# rec('225','a')
-# );
-# marc('760','w',
-# get( $series_key )
-# );
-#}
-
-# ## testing
-#
-# my $dup_key = join_with('',
-# rec('200','a'),
-#);
-#
-#if ($dup_key) {
-# marc('995','a',
-# get( $dup_key )
-# );
-#}
-#
-#
-# marc_indicators('776', 0, ' ');
-#
-# marc('776','a',
-# rec('452','1')
-# );
-#
-# -------------------------------------------------------------------
-
-### 774 - Constituent Item Entry - to bi trebali koristiti ali ne koristimo jer NSK to koristi za nesto drugo
-### 787 - Nonspecific Relationship Entry
-
-#marc_indicators('787','0',' ');
-#
-#marc_compose('787',
-# 'g', rec('230','v'),
-# 't', rec('230','a'),
-# 'b', rec('240','a'),
-# 'd', rec('250','a'),
-# 'd', rec('250','d'),
-# 'h', rec('260','a'),
-# 'k', rec('270','a'),
-# 'n', join_with('. - ',
-# rec('280'),
-# ),
-# 'x', join_with(', ',
-# rec('290'),
-# )
-#);
-#marc_compose('787',
-# 'g', rec('231','v'),
-# 't', rec('231','a'),
-# 'b', rec('241','a'),
-# 'd', rec('251','a'),
-# 'd', rec('251','d'),
-# 'h', rec('261','a'),
-# 'k', rec('271','a'),
-# 'n', join_with('. - ',
-# rec('281'),
-# ),
-# 'x', join_with(', ',
-# rec('291'),
-# )
-#);
-#marc_compose('787',
-# 'g', rec('232','v'),
-# 't', rec('232','a'),
-# 'b', rec('242','a'),
-# 'd', rec('252','a'),
-# 'd', rec('252','d'),
-# 'h', rec('262','a'),
-# 'k', rec('272','a'),
-# 'n', join_with('. - ',
-# rec('282'),
-# ),
-# 'x', join_with(', ',
-# rec('292'),
-# )
-#);
-#marc_compose('787',
-# 'g', rec('233','v'),
-# 't', rec('233','a'),
-# 'b', rec('243','a'),
-# 'd', rec('253','a'),
-# 'h', rec('263','a'),
-# 'k', rec('273','a'),
-# 'n', join_with('. - ',
-# rec('283'),
-# ),
-# 'x', join_with(', ',
-# rec('293'),
-# )
-#);
-
-