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