#######################################################################################
# Main loop....
-
my $input = new CGI;
my $branchcode=$input->param('branchcode');
my $op = $input->param('op');
my $sth = $dbh->prepare($query);
$sth->execute(@query_args);
my @results;
- while (my $data = $sth->fetchrow_hashref) {
+ while (my $data = $sth->fetchrow_hashref) {
push(@results, $data);
}
$sth->finish;
my $dbh = C4::Context->dbh;
my $query = "replace branches (branchcode,branchname,branchaddress1,branchaddress2,branchaddress3,branchphone,branchfax,branchemail) values (?,?,?,?,?,?,?,?)";
my $sth=$dbh->prepare($query);
- $sth->execute($data->{'branchcode'}, $data->{'branchname'},
+ $sth->execute(uc($data->{'branchcode'}), $data->{'branchname'},
$data->{'branchaddress1'}, $data->{'branchaddress2'},
$data->{'branchaddress3'}, $data->{'branchphone'},
$data->{'branchfax'}, $data->{'branchemail'});
push(@checkedcats, $code);
}
}
- my $branchcode = $data->{'branchcode'};
+ my $branchcode =uc($data->{'branchcode'});
my $branch = getbranchinfo($branchcode);
$branch = $branch->[0];
my $branchcats = $branch->{'categories'};
unless (grep {/^$ccat$/} @$branchcats) {
push(@addcats, $ccat);
}
- }
+ }
# FIXME - There's already a $dbh in this scope.
my $dbh = C4::Context->dbh;
foreach my $cat (@addcats) {