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

(-)a/C4/AuthoritiesMarc.pm (-1 / +1 lines)
Lines 739-745 sub ModAuthority { Link Here
739
	"VALUES (?,?)";
739
	"VALUES (?,?)";
740
      $dbh->do($sqlinsert,undef,($authid,0));
740
      $dbh->do($sqlinsert,undef,($authid,0));
741
  }
741
  }
742
  logaction( "AUTHORITIES", "MODIFY", $authid, "BEFORE=>" . $oldrecord->as_formatted ) if C4::Context->preference("AuthoritiesLog");
742
  logaction( "AUTHORITIES", "MODIFY", $authid, "authority BEFORE=>" . $oldrecord->as_formatted ) if C4::Context->preference("AuthoritiesLog");
743
  return $authid;
743
  return $authid;
744
}
744
}
745
745
(-)a/C4/Biblio.pm (-2 / +2 lines)
Lines 316-322 sub ModBiblio { Link Here
316
316
317
    if ( C4::Context->preference("CataloguingLog") ) {
317
    if ( C4::Context->preference("CataloguingLog") ) {
318
        my $newrecord = GetMarcBiblio($biblionumber);
318
        my $newrecord = GetMarcBiblio($biblionumber);
319
        logaction( "CATALOGUING", "MODIFY", $biblionumber, "BEFORE=>" . $newrecord->as_formatted );
319
        logaction( "CATALOGUING", "MODIFY", $biblionumber, "biblio BEFORE=>" . $newrecord->as_formatted );
320
    }
320
    }
321
321
322
    # Cleaning up invalid fields must be done early or SetUTF8Flag is liable to
322
    # Cleaning up invalid fields must be done early or SetUTF8Flag is liable to
Lines 470-476 sub DelBiblio { Link Here
470
    # from being generated by _koha_delete_biblioitems
470
    # from being generated by _koha_delete_biblioitems
471
    $error = _koha_delete_biblio( $dbh, $biblionumber );
471
    $error = _koha_delete_biblio( $dbh, $biblionumber );
472
472
473
    logaction( "CATALOGUING", "DELETE", $biblionumber, "" ) if C4::Context->preference("CataloguingLog");
473
    logaction( "CATALOGUING", "DELETE", $biblionumber, "biblio" ) if C4::Context->preference("CataloguingLog");
474
474
475
    return;
475
    return;
476
}
476
}
(-)a/C4/Items.pm (-1 / +1 lines)
Lines 583-589 sub ModItem { Link Here
583
    # item status is possible
583
    # item status is possible
584
    ModZebra( $biblionumber, "specialUpdate", "biblioserver" );
584
    ModZebra( $biblionumber, "specialUpdate", "biblioserver" );
585
585
586
    logaction("CATALOGUING", "MODIFY", $itemnumber, Dumper($item)) if C4::Context->preference("CataloguingLog");
586
    logaction("CATALOGUING", "MODIFY", $itemnumber, "item ".Dumper($item)) if C4::Context->preference("CataloguingLog");
587
}
587
}
588
588
589
=head2 ModItemTransfer
589
=head2 ModItemTransfer
(-)a/tools/upload-cover-image.pl (-2 / +1 lines)
Lines 151-157 if ($fileID) { Link Here
151
                            $filename =~ s/^\s+//;
151
                            $filename =~ s/^\s+//;
152
                            $filename =~ s/\s+$//;
152
                            $filename =~ s/\s+$//;
153
                            if (C4::Context->preference("CataloguingLog")) {
153
                            if (C4::Context->preference("CataloguingLog")) {
154
                                logaction('CATALOGUING', 'MODIFY', $biblionumber, "cover image: $filename");
154
                                logaction('CATALOGUING', 'MODIFY', $biblionumber, "biblio cover image: $filename");
155
                            }
155
                            }
156
                            my $srcimage = GD::Image->new("$dir/$filename");
156
                            my $srcimage = GD::Image->new("$dir/$filename");
157
                            if ( defined $srcimage ) {
157
                            if ( defined $srcimage ) {
158
- 

Return to bug 11473