|
Lines 101-107
use C4::Debug;
Link Here
|
| 101 |
use Koha::Caches; |
101 |
use Koha::Caches; |
| 102 |
use Koha::Authority::Types; |
102 |
use Koha::Authority::Types; |
| 103 |
use Koha::Acquisition::Currencies; |
103 |
use Koha::Acquisition::Currencies; |
| 104 |
use Koha::Biblio::Metadata; |
|
|
| 105 |
use Koha::Biblio::Metadatas; |
104 |
use Koha::Biblio::Metadatas; |
| 106 |
use Koha::Holds; |
105 |
use Koha::Holds; |
| 107 |
use Koha::ItemTypes; |
106 |
use Koha::ItemTypes; |
|
Lines 1220-1226
sub GetXmlBiblio {
Link Here
|
| 1220 |
FROM biblio_metadata |
1219 |
FROM biblio_metadata |
| 1221 |
WHERE biblionumber=? |
1220 |
WHERE biblionumber=? |
| 1222 |
AND format='marcxml' |
1221 |
AND format='marcxml' |
| 1223 |
AND marcflavour=? |
1222 |
AND `schema`=? |
| 1224 |
|, undef, $biblionumber, C4::Context->preference('marcflavour') |
1223 |
|, undef, $biblionumber, C4::Context->preference('marcflavour') |
| 1225 |
); |
1224 |
); |
| 1226 |
return $marcxml; |
1225 |
return $marcxml; |
|
Lines 3248-3255
sub _koha_delete_biblio_metadata {
Link Here
|
| 3248 |
$schema->txn_do( |
3247 |
$schema->txn_do( |
| 3249 |
sub { |
3248 |
sub { |
| 3250 |
$dbh->do( q| |
3249 |
$dbh->do( q| |
| 3251 |
INSERT INTO deletedbiblio_metadata (biblionumber, format, marcflavour, metadata) |
3250 |
INSERT INTO deletedbiblio_metadata (biblionumber, format, `schema`, metadata) |
| 3252 |
SELECT biblionumber, format, marcflavour, metadata FROM biblio_metadata WHERE biblionumber=? |
3251 |
SELECT biblionumber, format, `schema`, metadata FROM biblio_metadata WHERE biblionumber=? |
| 3253 |
|, undef, $biblionumber ); |
3252 |
|, undef, $biblionumber ); |
| 3254 |
$dbh->do( q|DELETE FROM biblio_metadata WHERE biblionumber=?|, |
3253 |
$dbh->do( q|DELETE FROM biblio_metadata WHERE biblionumber=?|, |
| 3255 |
undef, $biblionumber ); |
3254 |
undef, $biblionumber ); |
|
Lines 3321-3327
sub ModBiblioMarc {
Link Here
|
| 3321 |
my $metadata = { |
3320 |
my $metadata = { |
| 3322 |
biblionumber => $biblionumber, |
3321 |
biblionumber => $biblionumber, |
| 3323 |
format => 'marcxml', |
3322 |
format => 'marcxml', |
| 3324 |
marcflavour => C4::Context->preference('marcflavour'), |
3323 |
schema => C4::Context->preference('marcflavour'), |
| 3325 |
}; |
3324 |
}; |
| 3326 |
$record->as_usmarc; # Bug 20126/10455 This triggers field length calculation |
3325 |
$record->as_usmarc; # Bug 20126/10455 This triggers field length calculation |
| 3327 |
|
3326 |
|