fixed " error

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'}";

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++;
    }