conf/ffcasopisi/sigxls2marc.pl

my $csigid =
        lookup(
                sub { rec('A') },
                'casopisi','csigid',
                sub { rec('A') },
                sub { rec('I') }
        );

if ( ! $csigid ) {


### LEADER

## LDR 05 - n - new
marc_leader('05','n');

## LDR 06 - a - language material 
marc_leader('06','a');

## LDR 07 - Bibliographic level 
marc_leader('07','s');

## LDR 17 - Encoding level ; 7 - minimal level, u - unknown
marc_leader('17','u');

## LDR 18 - i - isbd 
marc_leader('18','i');

### 008 - All materials
marc_fixed('008','00', '090820');       # 00-05 - Date entered on file

## za 008 06 treba i lookup u tablicu u kojoj postoji podatak o tome jel tekuci casopis ili nije?
## c - Continuing resource currently published
## d - Continuing resource ceased publication

marc_fixed('008','06','|');             # 06 - Type of date/Publication status, s = single know date, | = no attempt to code
marc_fixed('008','07','||||');
marc_fixed('008','11','||||');
marc_fixed('008','15','xx ');
                                        # 18-34 - Material specific coded elements 
                                        # 35-37 - Language
marc_fixed('008','38','|');             # 38 - Modified record
marc_fixed('008','39','d');             # 39 - Cataloging source

### 008 - Continuing resources

marc_fixed('008','18', '|');    # 18 - Frequency - ovo treba popuniti iz polja 326
marc_fixed('008','19', '|');    # 19 - Regularity
                                # 20 - Undefined, ontains a blank (#) or fill character (|)

marc_fixed('008','21', 'p');    # 21 - Type of continuing resource

                                # 22 - Form of original item - blank
                                # 23 - Form of item
                                # 24 - Nature of entire work
                                # 25-27 - Nature of contents
                                # 28 - Government publication
                                # 29 - Conference publication
                                # 30-32 - Undefined
                                # 33 - Original alphabet or script of title
                                # 34 - Entry convention
marc_fixed('008','22', ' ');
marc_fixed('008','23', ' ');
marc_fixed('008','24', '|');
marc_fixed('008','25', '|||');
marc_fixed('008','28', ' ');
marc_fixed('008','29', '|');
marc_fixed('008','33', '|');
marc_fixed('008','34', '0');

### 022

marc('022','a',
        rec('F')
);

### 035$a

marc('035','a',
        prefix('HR-ZaFF csig',
                rec('I') 
        ),
);

### 040
# za sve je isti
# treba utvrditi toènu oznaku za ustanovu

marc('040','a',
        'HR FFZG'
);

marc('040','b',
        'hrv'
);

marc('040','c',
        'HR-ZaFF'
);

marc('040','e',
        'ppiak'
);


#_debug(3);


marc_indicators('245', 0, 0);

if (    ( rec('E') =~ m/^Die /) || 
        ( rec('E') =~ m/^Das /) || 
        ( rec('E') =~ m/^Der /) || 
        ( rec('E') =~ m/^Les /) || 
        ( rec('E') =~ m/^The /) ) {
                marc_indicators('245', 0, 4);

} 

if (    ( rec('E') =~ m/^Un /) || 
        ( rec('E') =~ m/^An /) ||
        ( rec('E') =~ m/^La /) ||
        ( rec('E') =~ m/^Le /) ||
        ( rec('E') =~ m/^Il /) ) {
                marc_indicators('245', 0, 3);
} 

if (    ( rec('E') =~ m/^A /) || 
        ( rec('E') =~ m/^L'/) ) {
                marc_indicators('245', 0, 2);
} 

### 245

my ($a,$b,$c);
my $naslov = rec('E');
$c = $2 if $naslov =~ s{(\s+/)\s+(.+)$}{$1};
if ( $naslov =~ s{^(.+?[:=])\s+}{} ) {
        $a = $1;
        $b = $naslov ;
} else {
        $a = $naslov ;
}


marc('245','a', $a);
marc('245','b', $b) if $b;
marc('245','c', $c);

#if ( rec('E') =~ m/:/ ) {
#       marc('245','a',
#               suffix(' :',
#                       regex('s/(^.*):.*/$1/',
#                               rec('E')
#                       )
#               )
#       );
#       marc('245','b',
#               regex('s/^.*: (.*)/$1/',
#                       rec('E')
#               )
#       );
#} else {
#       marc('245','a',
#               rec('E')
#       );
#}

marc('500','a',
        rec('H'),
);


### 866
marc_indicators('866',' ','0');
marc('866','a',
        rec('G')
);


### 942

marc('942','b',
        'PER'
);

marc('942','c',
        'PER'
);

marc('942','d',
        rec('C')
);

marc('942','i',
        rec('C')
);

} #csigid
1	mglavica	1278	my $csigid =
2			lookup(
3			sub { rec('A') },
4			'casopisi','csigid',
5			sub { rec('A') },
6			sub { rec('I') }
7			);
8	mglavica	1182
9	mglavica	1278	if ( ! $csigid ) {
10
11
12	mglavica	1182	### LEADER
13
14			## LDR 05 - n - new
15			marc_leader('05','n');
16
17			## LDR 06 - a - language material
18			marc_leader('06','a');
19
20			## LDR 07 - Bibliographic level
21			marc_leader('07','s');
22
23			## LDR 17 - Encoding level ; 7 - minimal level, u - unknown
24			marc_leader('17','u');
25
26			## LDR 18 - i - isbd
27			marc_leader('18','i');
28
29			### 008 - All materials
30	mglavica	1278	marc_fixed('008','00', '090820'); # 00-05 - Date entered on file
31	mglavica	1182
32			## za 008 06 treba i lookup u tablicu u kojoj postoji podatak o tome jel tekuci casopis ili nije?
33			## c - Continuing resource currently published
34			## d - Continuing resource ceased publication
35
36			marc_fixed('008','06','\|'); # 06 - Type of date/Publication status, s = single know date, \| = no attempt to code
37			marc_fixed('008','07','\|\|\|\|');
38			marc_fixed('008','11','\|\|\|\|');
39			marc_fixed('008','15','xx ');
40			# 18-34 - Material specific coded elements
41			# 35-37 - Language
42			marc_fixed('008','38','\|'); # 38 - Modified record
43			marc_fixed('008','39','d'); # 39 - Cataloging source
44
45			### 008 - Continuing resources
46
47			marc_fixed('008','18', '\|'); # 18 - Frequency - ovo treba popuniti iz polja 326
48			marc_fixed('008','19', '\|'); # 19 - Regularity
49			# 20 - Undefined, ontains a blank (#) or fill character (\|)
50
51			marc_fixed('008','21', 'p'); # 21 - Type of continuing resource
52
53			# 22 - Form of original item - blank
54			# 23 - Form of item
55			# 24 - Nature of entire work
56			# 25-27 - Nature of contents
57			# 28 - Government publication
58			# 29 - Conference publication
59			# 30-32 - Undefined
60			# 33 - Original alphabet or script of title
61			# 34 - Entry convention
62			marc_fixed('008','22', ' ');
63			marc_fixed('008','23', ' ');
64			marc_fixed('008','24', '\|');
65			marc_fixed('008','25', '\|\|\|');
66			marc_fixed('008','28', ' ');
67	mglavica	1278	marc_fixed('008','29', '\|');
68	mglavica	1182	marc_fixed('008','33', '\|');
69	mglavica	1278	marc_fixed('008','34', '0');
70	mglavica	1182
71			### 022
72
73			marc('022','a',
74			rec('F')
75			);
76
77			### 035$a
78
79	mglavica	1278	marc('035','a',
80			prefix('HR-ZaFF csig',
81			rec('I')
82			),
83			);
84	mglavica	1182
85			### 040
86			# za sve je isti
87			# treba utvrditi toènu oznaku za ustanovu
88
89			marc('040','a',
90			'HR FFZG'
91			);
92
93			marc('040','b',
94			'hrv'
95			);
96
97			marc('040','c',
98			'HR-ZaFF'
99			);
100
101			marc('040','e',
102			'ppiak'
103			);
104
105
106			#_debug(3);
107
108
109			marc_indicators('245', 0, 0);
110
111			if ( ( rec('E') =~ m/^Die /) \|\|
112			( rec('E') =~ m/^Das /) \|\|
113			( rec('E') =~ m/^Der /) \|\|
114			( rec('E') =~ m/^Les /) \|\|
115			( rec('E') =~ m/^The /) ) {
116			marc_indicators('245', 0, 4);
117
118			}
119
120			if ( ( rec('E') =~ m/^Un /) \|\|
121			( rec('E') =~ m/^An /) \|\|
122			( rec('E') =~ m/^La /) \|\|
123			( rec('E') =~ m/^Le /) \|\|
124			( rec('E') =~ m/^Il /) ) {
125			marc_indicators('245', 0, 3);
126			}
127
128			if ( ( rec('E') =~ m/^A /) \|\|
129			( rec('E') =~ m/^L'/) ) {
130			marc_indicators('245', 0, 2);
131			}
132
133			### 245
134
135	mglavica	1278	my ($a,$b,$c);
136			my $naslov = rec('E');
137			$c = $2 if $naslov =~ s{(\s+/)\s+(.+)$}{$1};
138			if ( $naslov =~ s{^(.+?[:=])\s+}{} ) {
139			$a = $1;
140			$b = $naslov ;
141	mglavica	1182	} else {
142	mglavica	1278	$a = $naslov ;
143	mglavica	1182	}
144
145	mglavica	1273
146	mglavica	1278	marc('245','a', $a);
147			marc('245','b', $b) if $b;
148			marc('245','c', $c);
149	mglavica	1273
150	mglavica	1278	#if ( rec('E') =~ m/:/ ) {
151			# marc('245','a',
152			# suffix(' :',
153			# regex('s/(^.):./$1/',
154			# rec('E')
155			# )
156			# )
157			# );
158			# marc('245','b',
159			# regex('s/^.: (.)/$1/',
160			# rec('E')
161			# )
162			# );
163			#} else {
164			# marc('245','a',
165			# rec('E')
166			# );
167			#}
168	mglavica	1182
169	mglavica	1278	marc('500','a',
170			rec('H'),
171			);
172	mglavica	1182
173
174	mglavica	1278	### 866
175			marc_indicators('866',' ','0');
176			marc('866','a',
177			rec('G')
178			);
179	mglavica	1182
180
181	mglavica	1278	### 942
182	mglavica	1182
183	mglavica	1278	marc('942','b',
184			'PER'
185			);
186	mglavica	1182
187	mglavica	1278	marc('942','c',
188			'PER'
189			);
190	mglavica	1182
191			marc('942','d',
192			rec('C')
193			);
194
195	mglavica	1278	marc('942','i',
196			rec('C')
197			);
198	mglavica	1182
199	mglavica	1278	} #csigid