|
Lines 729-734
sub build_tabs {
Link Here
|
| 729 |
my $input = new CGI; |
729 |
my $input = new CGI; |
| 730 |
my $error = $input->param('error'); |
730 |
my $error = $input->param('error'); |
| 731 |
my $biblionumber = $input->param('biblionumber'); # if biblionumber exists, it's a modif, not a new biblio. |
731 |
my $biblionumber = $input->param('biblionumber'); # if biblionumber exists, it's a modif, not a new biblio. |
|
|
732 |
my $parentbiblio = $input->param('parentbiblionumber'); |
| 732 |
my $breedingid = $input->param('breedingid'); |
733 |
my $breedingid = $input->param('breedingid'); |
| 733 |
my $z3950 = $input->param('z3950'); |
734 |
my $z3950 = $input->param('z3950'); |
| 734 |
my $op = $input->param('op'); |
735 |
my $op = $input->param('op'); |
|
Lines 808-820
if (($biblionumber) && !($breedingid)){
Link Here
|
| 808 |
if ($breedingid) { |
809 |
if ($breedingid) { |
| 809 |
( $record, $encoding ) = MARCfindbreeding( $breedingid ) ; |
810 |
( $record, $encoding ) = MARCfindbreeding( $breedingid ) ; |
| 810 |
} |
811 |
} |
|
|
812 |
|
| 811 |
#populate hostfield if hostbiblionumber is available |
813 |
#populate hostfield if hostbiblionumber is available |
| 812 |
if ($hostbiblionumber){ |
814 |
if ($hostbiblionumber) { |
| 813 |
my $marcflavour = C4::Context->preference("marcflavour"); |
815 |
my $marcflavour = C4::Context->preference("marcflavour"); |
| 814 |
$record=MARC::Record->new(); |
816 |
$record = MARC::Record->new(); |
| 815 |
$record->leader(''); |
817 |
$record->leader(''); |
| 816 |
my $field = PrepHostMarcField($hostbiblionumber, $hostitemnumber,$marcflavour); |
818 |
my $field = |
| 817 |
$record->append_fields($field); |
819 |
PrepHostMarcField( $hostbiblionumber, $hostitemnumber, $marcflavour ); |
|
|
820 |
$record->append_fields($field); |
| 821 |
} |
| 822 |
|
| 823 |
# This is a child record |
| 824 |
if ($parentbiblio) { |
| 825 |
my $marcflavour = C4::Context->preference('marcflavour'); |
| 826 |
$record = MARC::Record->new(); |
| 827 |
my $hostfield = prepare_host_field($parentbiblio,$marcflavour); |
| 828 |
if ($hostfield) { |
| 829 |
$record->append_fields($hostfield); |
| 830 |
} |
| 818 |
} |
831 |
} |
| 819 |
|
832 |
|
| 820 |
$is_a_modif = 0; |
833 |
$is_a_modif = 0; |
|
Lines 982-984
$template->param(
Link Here
|
| 982 |
); |
995 |
); |
| 983 |
|
996 |
|
| 984 |
output_html_with_http_headers $input, $cookie, $template->output; |
997 |
output_html_with_http_headers $input, $cookie, $template->output; |
|
|
998 |
|
| 999 |
sub get_host_control_num { |
| 1000 |
my $host_biblio_nr = shift; |
| 1001 |
my $host = GetMarcBiblio($host_biblio_nr); |
| 1002 |
my $control_num = GetMarcControlnumber($host, C4::Context->preference('marcflavour')); |
| 1003 |
$host = GetBiblioData($host_biblio_nr); |
| 1004 |
$host->{control_number} = $control_num; |
| 1005 |
return $host; |
| 1006 |
} |