my $sth = $dbh->prepare($query);
$sth->execute || $form->dberror($query);
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
my $sth = $dbh->prepare($query);
$sth->execute || $form->dberror($query);
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
push @{ $form->{"${module}_links"}{$key} },
{ accno => $ref->{accno},
description => $ref->{description},
push @{ $form->{"${module}_links"}{$key} },
{ accno => $ref->{accno},
description => $ref->{description},
my ($self, $myconfig, $form, $memberfile, $userspath, $webdav) = @_;
my ($self, $myconfig, $form, $memberfile, $userspath, $webdav) = @_;
- map { push(@a, uc pack "A3", $_) if $_ } split /:/, $form->{curr};
+ map { push(@a, uc pack "A3", $_) if $_ } split(/:/, $form->{curr});
$query = qq|UPDATE tax
SET rate = | . ($form->{$item} / 100) . qq|,
taxnumber = '$form->{"taxnumber_$item"}'
$query = qq|UPDATE tax
SET rate = | . ($form->{$item} / 100) . qq|,
taxnumber = '$form->{"taxnumber_$item"}'