View | Details | Raw Unified | Return to bug 6590
Collapse All | Expand All

(-)a/misc/bin/zebraqueue_daemon.pl (-1 / +33 lines)
Lines 227-232 sub process_update { Link Here
227
    my $marcxml;
227
    my $marcxml;
228
    if ($server eq "biblioserver") {
228
    if ($server eq "biblioserver") {
229
        my $marc = GetMarcBiblio($record_number);
229
        my $marc = GetMarcBiblio($record_number);
230
	    # 
231
	    if ($marc && C4::Context->preference("IsbnIssnRemoveHyphens")){
232
	           my $isbn;
233
	           my $issn;
234
	           my $encoding = C4::Context->preference("marcflavour");
235
	               if ( $encoding eq 'UNIMARC' ) {
236
	                       if ( my $f010 = $marc->field('010') ) {
237
	                               if ( $f010->subfield('a') ) {
238
	                                       $isbn = $f010->subfield('a');
239
	                                       $isbn =~ s/-//g;
240
	                                       $f010->update( 'a' => $isbn );
241
	                               }
242
	                       }
243
	                       if ( my $f011 = $marc->field('011') ) {
244
	                               if ( $f011->subfield('a') ) {
245
	                                       $issn = $f011->subfield('a');
246
	                                       $issn =~ s/-//g;
247
	                                       $f011->update( 'a' => $issn );
248
	                               }
249
	                       }
250
	               } elsif ($encoding eq 'MARC21' || $encoding eq 'NORMARC') {
251
	                       if ( my $f020 = $marc->field('020') ) {
252
	                               $isbn = $f020->subfield('a');
253
	                               $isbn =~ s/-//g;
254
	                               $f020->update( 'a' => $isbn );
255
	                       }
256
	                       if ( my $f022 = $marc->field('022') ) {
257
	                               $issn = $f022->subfield('a');
258
	                               $issn =~ s/-//g;
259
	                               $f022->update( 'a' => $issn );
260
	                       }
261
	               }
262
	    }
230
        $marcxml = $marc->as_xml_record() if $marc;
263
        $marcxml = $marc->as_xml_record() if $marc;
231
    } 
264
    } 
232
    elsif ($server eq "authorityserver") {
265
    elsif ($server eq "authorityserver") {
233
- 

Return to bug 6590