View | Details | Raw Unified | Return to bug 18716
Collapse All | Expand All

(-)a/acqui/updatesupplier.pl (-2 / +1 lines)
Lines 99-105 my @contacts; Link Here
99
my %contact_info;
99
my %contact_info;
100
100
101
foreach (qw(id name position phone altphone fax email notes orderacquisition claimacquisition claimissues acqprimary serialsprimary)) {
101
foreach (qw(id name position phone altphone fax email notes orderacquisition claimacquisition claimissues acqprimary serialsprimary)) {
102
    $contact_info{$_} = [ $input->param('contact_' . $_) ];
102
    $contact_info{$_} = [ $input->multi_param('contact_' . $_) ];
103
}
103
}
104
104
105
for my $cnt (0..scalar(@{$contact_info{'id'}})) {
105
for my $cnt (0..scalar(@{$contact_info{'id'}})) {
106
- 

Return to bug 18716