|
Lines 66-72
if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) {
Link Here
|
| 66 |
MARC::File::XML->default_record_format('UNIMARC'); |
66 |
MARC::File::XML->default_record_format('UNIMARC'); |
| 67 |
} |
67 |
} |
| 68 |
|
68 |
|
| 69 |
our($tagslib,$authorised_values_sth,$is_a_modif,$usedTagsLib,$mandatory_z3950,$op,$changed_framework); |
69 |
our ( $tagslib, $usedTagsLib, $mandatory_z3950, $is_a_modif, $op, $changed_framework ); |
| 70 |
|
70 |
|
| 71 |
=head1 FUNCTIONS |
71 |
=head1 FUNCTIONS |
| 72 |
|
72 |
|
|
Lines 501-507
my $biblionumber = $input->param('biblionumber'); # if biblionumber exists, it'
Link Here
|
| 501 |
my $parentbiblio = $input->param('parentbiblionumber'); |
501 |
my $parentbiblio = $input->param('parentbiblionumber'); |
| 502 |
my $breedingid = $input->param('breedingid'); |
502 |
my $breedingid = $input->param('breedingid'); |
| 503 |
my $z3950 = $input->param('z3950'); |
503 |
my $z3950 = $input->param('z3950'); |
| 504 |
$op = $input->param('op') // q{}; |
|
|
| 505 |
my $mode = $input->param('mode') // q{}; |
504 |
my $mode = $input->param('mode') // q{}; |
| 506 |
my $frameworkcode = $input->param('frameworkcode'); |
505 |
my $frameworkcode = $input->param('frameworkcode'); |
| 507 |
my $redirect = $input->param('redirect'); |
506 |
my $redirect = $input->param('redirect'); |
|
Lines 518-523
my $fa_duedatespec = $input->param('duedatespec');
Link Here
|
| 518 |
|
517 |
|
| 519 |
my $userflags = 'edit_catalogue'; |
518 |
my $userflags = 'edit_catalogue'; |
| 520 |
|
519 |
|
|
|
520 |
# Set default values for global variable |
| 521 |
$tagslib = &GetMarcStructure( 1, $frameworkcode ); |
| 522 |
$usedTagsLib = &GetUsedMarcStructure($frameworkcode); |
| 523 |
$mandatory_z3950 = GetMandatoryFieldZ3950($frameworkcode); |
| 524 |
$is_a_modif = 0; |
| 525 |
$op = $input->param('op') // q{}; |
| 526 |
$changed_framework = 0; |
| 527 |
|
| 521 |
if ( $op eq 'cud-change-framework' ) { |
528 |
if ( $op eq 'cud-change-framework' ) { |
| 522 |
$op = $input->param('original_op'); |
529 |
$op = $input->param('original_op'); |
| 523 |
$changed_framework = 1; |
530 |
$changed_framework = 1; |
|
Lines 587-598
$template->param(
Link Here
|
| 587 |
breedingid => $breedingid, |
594 |
breedingid => $breedingid, |
| 588 |
); |
595 |
); |
| 589 |
|
596 |
|
| 590 |
# ++ Global |
|
|
| 591 |
$tagslib = &GetMarcStructure( 1, $frameworkcode ); |
| 592 |
$usedTagsLib = &GetUsedMarcStructure( $frameworkcode ); |
| 593 |
$mandatory_z3950 = GetMandatoryFieldZ3950($frameworkcode); |
| 594 |
# -- Global |
| 595 |
|
| 596 |
my $record = -1; |
597 |
my $record = -1; |
| 597 |
my $encoding = ""; |
598 |
my $encoding = ""; |
| 598 |
my ( |
599 |
my ( |
|
Lines 654-661
if ($parentbiblio) {
Link Here
|
| 654 |
} |
655 |
} |
| 655 |
} |
656 |
} |
| 656 |
|
657 |
|
| 657 |
$is_a_modif = 0; |
|
|
| 658 |
|
| 659 |
if ($biblionumber) { |
658 |
if ($biblionumber) { |
| 660 |
$is_a_modif = 1; |
659 |
$is_a_modif = 1; |
| 661 |
my $title = C4::Context->preference('marcflavour') eq "UNIMARC" ? $record->subfield('200', 'a') : $record->title; |
660 |
my $title = C4::Context->preference('marcflavour') eq "UNIMARC" ? $record->subfield('200', 'a') : $record->title; |
| 662 |
- |
|
|