gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 31791: Limit editing locked records 

Sponsored-by: ByWater Solutions
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
Signed-off-by: Arthur Suzuki <arthur.suzuki@biblibre.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Tomas Cohen Arazi 2024-02-07 11:06:32 -03:00 committed by Katrin Fischer
parent 8d986f066e
commit 03384fdcc7
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
cataloguing/addbiblio.pl
View File

@ -540,13 +540,22 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
}
);
my $logged_in_patron = Koha::Patrons->find($loggedinuser);
my $biblio;
if ($biblionumber){
if ($biblionumber) {
$biblio = Koha::Biblios->find($biblionumber);
unless ( $biblio ) {
unless ($biblio) {
$biblionumber = undef;
$template->param( bib_doesnt_exist => 1 );
}
unless ( $biblio->can_be_edited($logged_in_patron) ) {
print $input->redirect("/cgi-bin/koha/errors/403.pl"); # escape early
exit;
}
}
if ($frameworkcode eq 'FA'){
@ -661,15 +670,14 @@ if ($biblionumber) {
$sth->execute($biblionumber);
($biblioitemnumber) = $sth->fetchrow;
if (C4::Context->preference('MARCOverlayRules')) {
my $member = Koha::Patrons->find($loggedinuser);
$record = ApplyMarcOverlayRules(
{
biblionumber => $biblionumber,
record => $record,
overlay_context => {
source => $z3950 ? 'z3950' : 'intranet',
categorycode => $member->categorycode,
userid => $member->userid
categorycode => $logged_in_patron->categorycode,
userid => $logged_in_patron->userid,
}
}
);
@ -695,7 +703,6 @@ if ( $op eq "cud-addbiblio" ) {
if ( !$duplicatebiblionumber or $confirm_not_duplicate ) {
my $oldbibitemnum;
if ( $is_a_modif ) {
my $member = Koha::Patrons->find($loggedinuser);
ModBiblio(
$record,
$biblionumber,
@ -703,8 +710,8 @@ if ( $op eq "cud-addbiblio" ) {
{
overlay_context => {
source => $z3950 ? 'z3950' : 'intranet',
categorycode => $member->categorycode,
userid => $member->userid
categorycode => $logged_in_patron->categorycode,
userid => $logged_in_patron->userid,
}
}
);