|
Lines 827-832
AND (authtypecode IS NOT NULL AND authtypecode<>\"\")|);
Link Here
|
| 827 |
my $input = new CGI; |
827 |
my $input = new CGI; |
| 828 |
my $error = $input->param('error'); |
828 |
my $error = $input->param('error'); |
| 829 |
my $biblionumber = $input->param('biblionumber'); # if biblionumber exists, it's a modif, not a new biblio. |
829 |
my $biblionumber = $input->param('biblionumber'); # if biblionumber exists, it's a modif, not a new biblio. |
|
|
830 |
my $parentbiblio = $input->param('parentbiblionumber'); |
| 830 |
my $breedingid = $input->param('breedingid'); |
831 |
my $breedingid = $input->param('breedingid'); |
| 831 |
my $z3950 = $input->param('z3950'); |
832 |
my $z3950 = $input->param('z3950'); |
| 832 |
my $op = $input->param('op'); |
833 |
my $op = $input->param('op'); |
|
Lines 904-909
if (($biblionumber) && !($breedingid)){
Link Here
|
| 904 |
if ($breedingid) { |
905 |
if ($breedingid) { |
| 905 |
( $record, $encoding ) = MARCfindbreeding( $breedingid ) ; |
906 |
( $record, $encoding ) = MARCfindbreeding( $breedingid ) ; |
| 906 |
} |
907 |
} |
|
|
908 |
# This is a child record |
| 909 |
if ($parentbiblio) { |
| 910 |
my $marcflavour = C4::Context->preference('marcflavour'); |
| 911 |
$record = MARC::Record->new(); |
| 912 |
my $hostfield = prepare_host_field($parentbiblio,$marcflavour); |
| 913 |
if ($hostfield) { |
| 914 |
$record->append_fields($hostfield); |
| 915 |
} |
| 916 |
} |
| 907 |
|
917 |
|
| 908 |
$is_a_modif = 0; |
918 |
$is_a_modif = 0; |
| 909 |
|
919 |
|
|
Lines 1070-1072
$template->param(
Link Here
|
| 1070 |
); |
1080 |
); |
| 1071 |
|
1081 |
|
| 1072 |
output_html_with_http_headers $input, $cookie, $template->output; |
1082 |
output_html_with_http_headers $input, $cookie, $template->output; |
|
|
1083 |
|
| 1084 |
sub get_host_control_num { |
| 1085 |
my $host_biblio_nr = shift; |
| 1086 |
my $host = GetMarcBiblio($host_biblio_nr); |
| 1087 |
my $control_num = GetMarcControlnumber($host, C4::Context->preference('marcflavour')); |
| 1088 |
$host = GetBiblioData($host_biblio_nr); |
| 1089 |
$host->{control_number} = $control_num; |
| 1090 |
return $host; |
| 1091 |
} |