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

(-)a/C4/Biblio.pm (-15 / +22 lines)
Lines 230-249 sub AddBiblio { Link Here
230
230
231
                my $biblio = Koha::Biblio->new(
231
                my $biblio = Koha::Biblio->new(
232
                    {
232
                    {
233
                        frameworkcode => $frameworkcode,
233
                        frameworkcode   => $frameworkcode,
234
                        author        => $olddata->{author},
234
                        author          => $olddata->{author},
235
                        title         => $olddata->{title},
235
                        title           => $olddata->{title},
236
                        subtitle      => $olddata->{subtitle},
236
                        subtitle        => $olddata->{subtitle},
237
                        medium        => $olddata->{medium},
237
                        medium          => $olddata->{medium},
238
                        part_number   => $olddata->{part_number},
238
                        part_number     => $olddata->{part_number},
239
                        part_name     => $olddata->{part_name},
239
                        part_name       => $olddata->{part_name},
240
                        unititle      => $olddata->{unititle},
240
                        unititle        => $olddata->{unititle},
241
                        notes         => $olddata->{notes},
241
                        notes           => $olddata->{notes},
242
                        serial        => $olddata->{serial},
242
                        serial          => $olddata->{serial},
243
                        seriestitle   => $olddata->{seriestitle},
243
                        seriestitle     => $olddata->{seriestitle},
244
                        copyrightdate => $olddata->{copyrightdate},
244
                        copyrightdate   => $olddata->{copyrightdate},
245
                        datecreated   => \'NOW()',
245
                        datecreated     => \'NOW()',
246
                        abstract      => $olddata->{abstract},
246
                        abstract        => $olddata->{abstract},
247
                        opac_suppressed => $olddata->{opac_suppressed},
247
                    }
248
                    }
248
                )->store;
249
                )->store;
249
                $biblionumber = $biblio->biblionumber;
250
                $biblionumber = $biblio->biblionumber;
Lines 2417-2422 sub TransformMarcToKoha { Link Here
2417
            # Additional polishing for individual kohafields
2418
            # Additional polishing for individual kohafields
2418
            if ( $kohafield =~ /copyrightdate|publicationyear/ ) {
2419
            if ( $kohafield =~ /copyrightdate|publicationyear/ ) {
2419
                $value = _adjust_pubyear($value);
2420
                $value = _adjust_pubyear($value);
2421
            } elsif ( $kohafield eq 'biblio.opac_suppressed' ) {
2422
2423
                # this should always be a boolean
2424
                $value = $value ? 1 : 0;
2420
            }
2425
            }
2421
        }
2426
        }
2422
2427
Lines 2655-2660 sub _koha_modify_biblio { Link Here
2655
        ;
2660
        ;
2656
    my $sth = $dbh->prepare($query);
2661
    my $sth = $dbh->prepare($query);
2657
2662
2663
    # it always needs to be defined
2664
    $biblio->{opac_suppressed} //= 0;
2665
2658
    $sth->execute(
2666
    $sth->execute(
2659
        $frameworkcode,      $biblio->{'author'},      $biblio->{'title'},     $biblio->{'subtitle'},
2667
        $frameworkcode,      $biblio->{'author'},      $biblio->{'title'},     $biblio->{'subtitle'},
2660
        $biblio->{'medium'}, $biblio->{'part_number'}, $biblio->{'part_name'}, $biblio->{'unititle'},
2668
        $biblio->{'medium'}, $biblio->{'part_number'}, $biblio->{'part_name'}, $biblio->{'unititle'},
2661
- 

Return to bug 38330