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