Fixing stupid bug that was causing the sql insert command to break if a person had a '

in their name

diff --git a/insertdata.pl b/insertdata.pl
index b2d33ba..0391b8c 100755 (executable)
--- a/insertdata.pl
+++ b/insertdata.pl
@@ -23,6 +23,8 @@ my $problems;
 my $env;
 foreach my $key (@names){
   $data{$key}=$input->param($key);
+  $data{$key}=~ s/\'/\\\'/g;
+  $data{$key}=~ s/\"/\\\"/g;
 }
 my $dbh=C4Connect;
 my $query="Select * from borrowers where borrowernumber=$data{'borrowernumber'}";