Lines 537-549
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Link Here
|
537 |
} |
537 |
} |
538 |
); |
538 |
); |
539 |
|
539 |
|
|
|
540 |
my $logged_in_patron = Koha::Patrons->find($loggedinuser); |
540 |
my $biblio; |
541 |
my $biblio; |
541 |
if ($biblionumber){ |
542 |
|
|
|
543 |
if ($biblionumber) { |
544 |
|
542 |
$biblio = Koha::Biblios->find($biblionumber); |
545 |
$biblio = Koha::Biblios->find($biblionumber); |
543 |
unless ( $biblio ) { |
546 |
|
|
|
547 |
unless ($biblio) { |
544 |
$biblionumber = undef; |
548 |
$biblionumber = undef; |
545 |
$template->param( bib_doesnt_exist => 1 ); |
549 |
$template->param( bib_doesnt_exist => 1 ); |
546 |
} |
550 |
} |
|
|
551 |
|
552 |
unless ( $biblio->can_be_edited($logged_in_patron) ) { |
553 |
print $input->redirect("/cgi-bin/koha/errors/403.pl"); # escape early |
554 |
exit; |
555 |
} |
547 |
} |
556 |
} |
548 |
|
557 |
|
549 |
if ($frameworkcode eq 'FA'){ |
558 |
if ($frameworkcode eq 'FA'){ |
Lines 645-659
if ($biblionumber) {
Link Here
|
645 |
$sth->execute($biblionumber); |
654 |
$sth->execute($biblionumber); |
646 |
($biblioitemnumber) = $sth->fetchrow; |
655 |
($biblioitemnumber) = $sth->fetchrow; |
647 |
if (C4::Context->preference('MARCOverlayRules')) { |
656 |
if (C4::Context->preference('MARCOverlayRules')) { |
648 |
my $member = Koha::Patrons->find($loggedinuser); |
|
|
649 |
$record = ApplyMarcOverlayRules( |
657 |
$record = ApplyMarcOverlayRules( |
650 |
{ |
658 |
{ |
651 |
biblionumber => $biblionumber, |
659 |
biblionumber => $biblionumber, |
652 |
record => $record, |
660 |
record => $record, |
653 |
overlay_context => { |
661 |
overlay_context => { |
654 |
source => $z3950 ? 'z3950' : 'intranet', |
662 |
source => $z3950 ? 'z3950' : 'intranet', |
655 |
categorycode => $member->categorycode, |
663 |
categorycode => $logged_in_patron->categorycode, |
656 |
userid => $member->userid |
664 |
userid => $logged_in_patron->userid, |
657 |
} |
665 |
} |
658 |
} |
666 |
} |
659 |
); |
667 |
); |
Lines 679-685
if ( $op eq "cud-addbiblio" ) {
Link Here
|
679 |
if ( !$duplicatebiblionumber or $confirm_not_duplicate ) { |
687 |
if ( !$duplicatebiblionumber or $confirm_not_duplicate ) { |
680 |
my $oldbibitemnum; |
688 |
my $oldbibitemnum; |
681 |
if ( $is_a_modif ) { |
689 |
if ( $is_a_modif ) { |
682 |
my $member = Koha::Patrons->find($loggedinuser); |
|
|
683 |
ModBiblio( |
690 |
ModBiblio( |
684 |
$record, |
691 |
$record, |
685 |
$biblionumber, |
692 |
$biblionumber, |
Lines 687-694
if ( $op eq "cud-addbiblio" ) {
Link Here
|
687 |
{ |
694 |
{ |
688 |
overlay_context => { |
695 |
overlay_context => { |
689 |
source => $z3950 ? 'z3950' : 'intranet', |
696 |
source => $z3950 ? 'z3950' : 'intranet', |
690 |
categorycode => $member->categorycode, |
697 |
categorycode => $logged_in_patron->categorycode, |
691 |
userid => $member->userid |
698 |
userid => $logged_in_patron->userid, |
692 |
} |
699 |
} |
693 |
} |
700 |
} |
694 |
); |
701 |
); |
695 |
- |
|
|