Browse Source

fixed " error

master
chris 22 years ago
parent
commit
fe7d9b40be
  1. 1
      insertdata.pl
  2. 1
      newmember.pl

1
insertdata.pl

@ -24,6 +24,7 @@ my $env;
foreach my $key (@names){
$data{$key}=$input->param($key);
$data{$key}=~ s/\'/\\\'/g;
$data{$key}=~ s/%22/\\\"/g;
}
my $dbh=C4Connect;
my $query="Select * from borrowers where borrowernumber=$data{'borrowernumber'}";

1
newmember.pl

@ -137,6 +137,7 @@ if ($insert eq ''){
my $i=0;
my @inputs;
while (my ($key, $value) = each %data) {
$value=~ s/\"/%22/g;
$inputs[$i]=["hidden","$key","$value"];
$i++;
}

Loading…
Cancel
Save