Lines 293-298
sub ModBiblio {
Link Here
|
293 |
} |
293 |
} |
294 |
|
294 |
|
295 |
if ( C4::Context->preference("CataloguingLog") ) { |
295 |
if ( C4::Context->preference("CataloguingLog") ) { |
|
|
296 |
print STDERR "C4/Biblio: 1\n"; |
296 |
my $newrecord = GetMarcBiblio({ biblionumber => $biblionumber }); |
297 |
my $newrecord = GetMarcBiblio({ biblionumber => $biblionumber }); |
297 |
logaction( "CATALOGUING", "MODIFY", $biblionumber, "biblio BEFORE=>" . $newrecord->as_formatted ); |
298 |
logaction( "CATALOGUING", "MODIFY", $biblionumber, "biblio BEFORE=>" . $newrecord->as_formatted ); |
298 |
} |
299 |
} |
Lines 1170-1180
OpacHiddenItems to be applied.
Link Here
|
1170 |
sub GetMarcBiblio { |
1171 |
sub GetMarcBiblio { |
1171 |
my ($params) = @_; |
1172 |
my ($params) = @_; |
1172 |
|
1173 |
|
|
|
1174 |
print STDERR "C4/Biblio: 2\n"; |
1173 |
if (not defined $params) { |
1175 |
if (not defined $params) { |
1174 |
carp 'GetMarcBiblio called without parameters'; |
1176 |
carp 'GetMarcBiblio called without parameters'; |
1175 |
return; |
1177 |
return; |
1176 |
} |
1178 |
} |
1177 |
|
1179 |
|
|
|
1180 |
print STDERR "C4/Biblio: 3\n"; |
1178 |
my $biblionumber = $params->{biblionumber}; |
1181 |
my $biblionumber = $params->{biblionumber}; |
1179 |
my $embeditems = $params->{embed_items} || 0; |
1182 |
my $embeditems = $params->{embed_items} || 0; |
1180 |
my $opac = $params->{opac} || 0; |
1183 |
my $opac = $params->{opac} || 0; |
Lines 2194-2199
sub PrepHostMarcField {
Link Here
|
2194 |
my ($hostbiblionumber,$hostitemnumber, $marcflavour) = @_; |
2197 |
my ($hostbiblionumber,$hostitemnumber, $marcflavour) = @_; |
2195 |
$marcflavour ||="MARC21"; |
2198 |
$marcflavour ||="MARC21"; |
2196 |
|
2199 |
|
|
|
2200 |
print STDERR "C4/Biblio: 4\n"; |
2197 |
require C4::Items; |
2201 |
require C4::Items; |
2198 |
my $hostrecord = GetMarcBiblio({ biblionumber => $hostbiblionumber }); |
2202 |
my $hostrecord = GetMarcBiblio({ biblionumber => $hostbiblionumber }); |
2199 |
my $item = C4::Items::GetItem($hostitemnumber); |
2203 |
my $item = C4::Items::GetItem($hostitemnumber); |
Lines 2844-2849
sub ModZebra {
Link Here
|
2844 |
); |
2848 |
); |
2845 |
if ( $op eq 'specialUpdate' ) { |
2849 |
if ( $op eq 'specialUpdate' ) { |
2846 |
unless ($record) { |
2850 |
unless ($record) { |
|
|
2851 |
print STDERR "C4/Biblio: 5\n"; |
2847 |
$record = GetMarcBiblio({ |
2852 |
$record = GetMarcBiblio({ |
2848 |
biblionumber => $biblionumber, |
2853 |
biblionumber => $biblionumber, |
2849 |
embed_items => 1 }); |
2854 |
embed_items => 1 }); |
Lines 3459-3464
Generate the host item entry for an analytic child entry
Link Here
|
3459 |
sub prepare_host_field { |
3464 |
sub prepare_host_field { |
3460 |
my ( $hostbiblio, $marcflavour ) = @_; |
3465 |
my ( $hostbiblio, $marcflavour ) = @_; |
3461 |
$marcflavour ||= C4::Context->preference('marcflavour'); |
3466 |
$marcflavour ||= C4::Context->preference('marcflavour'); |
|
|
3467 |
print STDERR "C4/Biblio: 6\n"; |
3462 |
my $host = GetMarcBiblio({ biblionumber => $hostbiblio }); |
3468 |
my $host = GetMarcBiblio({ biblionumber => $hostbiblio }); |
3463 |
# unfortunately as_string does not 'do the right thing' |
3469 |
# unfortunately as_string does not 'do the right thing' |
3464 |
# if field returns undef |
3470 |
# if field returns undef |
Lines 3597-3602
sub UpdateTotalIssues {
Link Here
|
3597 |
my ($biblionumber, $increase, $value) = @_; |
3603 |
my ($biblionumber, $increase, $value) = @_; |
3598 |
my $totalissues; |
3604 |
my $totalissues; |
3599 |
|
3605 |
|
|
|
3606 |
print STDERR "C4/Biblio: 7\n"; |
3600 |
my $record = GetMarcBiblio({ biblionumber => $biblionumber }); |
3607 |
my $record = GetMarcBiblio({ biblionumber => $biblionumber }); |
3601 |
unless ($record) { |
3608 |
unless ($record) { |
3602 |
carp "UpdateTotalIssues could not get biblio record"; |
3609 |
carp "UpdateTotalIssues could not get biblio record"; |