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 |
- |
|
|