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

(-)a/C4/AuthoritiesMarc.pm (-1 / +2 lines)
Lines 624-629 sub AddAuthority { Link Here
624
      $f5->update($time.".0");
624
      $f5->update($time.".0");
625
    }
625
    }
626
626
627
    SetUTF8Flag($record);
627
	if ($format eq "MARC21") {
628
	if ($format eq "MARC21") {
628
		if (!$record->leader) {
629
		if (!$record->leader) {
629
			$record->leader($leader);
630
			$record->leader($leader);
Lines 650-656 sub AddAuthority { Link Here
650
	}
651
	}
651
652
652
  if (($format eq "UNIMARCAUTH") && (!$record->subfield('100','a'))){
653
  if (($format eq "UNIMARCAUTH") && (!$record->subfield('100','a'))){
653
        $record->leader("     nx  j22             ");
654
        $record->leader("     nx  j22             ") unless ($record->leader());
654
        my $date=POSIX::strftime("%Y%m%d",localtime);    
655
        my $date=POSIX::strftime("%Y%m%d",localtime);    
655
        if ($record->field('100')){
656
        if ($record->field('100')){
656
          $record->field('100')->update('a'=>$date."afrey50      ba0");
657
          $record->field('100')->update('a'=>$date."afrey50      ba0");
(-)a/C4/Biblio.pm (-1 / +2 lines)
Lines 250-255 sub AddBiblio { Link Here
250
    my $dbh = C4::Context->dbh;
250
    my $dbh = C4::Context->dbh;
251
251
252
    # transform the data into koha-table style data
252
    # transform the data into koha-table style data
253
    SetUTF8Flag($record);
253
    my $olddata = TransformMarcToKoha( $dbh, $record, $frameworkcode );
254
    my $olddata = TransformMarcToKoha( $dbh, $record, $frameworkcode );
254
    ( $biblionumber, $error ) = _koha_add_biblio( $dbh, $olddata, $frameworkcode );
255
    ( $biblionumber, $error ) = _koha_add_biblio( $dbh, $olddata, $frameworkcode );
255
    $olddata->{'biblionumber'} = $biblionumber;
256
    $olddata->{'biblionumber'} = $biblionumber;
Lines 294-299 sub ModBiblio { Link Here
294
        logaction( "CATALOGUING", "MODIFY", $biblionumber, "BEFORE=>" . $newrecord->as_formatted );
295
        logaction( "CATALOGUING", "MODIFY", $biblionumber, "BEFORE=>" . $newrecord->as_formatted );
295
    }
296
    }
296
297
298
    SetUTF8Flag($record);
297
    my $dbh = C4::Context->dbh;
299
    my $dbh = C4::Context->dbh;
298
300
299
    $frameworkcode = "" unless $frameworkcode;
301
    $frameworkcode = "" unless $frameworkcode;
300
- 

Return to bug 5909