Attachment #24155 for bug #11473

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

Lines 739-745 sub ModAuthority { Link Here

(-)a/C4/AuthoritiesMarc.pm (-1 / +1 lines)
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

Lines 316-322 sub ModBiblio { Link Here

(-)a/C4/Biblio.pm (-2 / +2 lines)
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	}

Lines 583-589 sub ModItem { Link Here

(-)a/C4/Items.pm (-1 / +1 lines)
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

Lines 151-157 if ($fileID) { Link Here

(-)a/tools/upload-cover-image.pl (-2 / +1 lines)
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