7 Mar
2001
7 Mar
'01
9:12 p.m.
Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv25915 Modified Files: insertdata.pl Log Message: Fixing stupid bug that was causing the sql insert command to break if a person had a ' in their name Index: insertdata.pl =================================================================== RCS file: /cvsroot/koha/koha/insertdata.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** insertdata.pl 2001/03/07 01:48:48 1.2 --- insertdata.pl 2001/03/07 21:12:47 1.3 *************** *** 24,27 **** --- 24,29 ---- foreach my $key (@names){ $data{$key}=$input->param($key); + $data{$key}=~ s/\'/\\\'/g; + $data{$key}=~ s/\"/\\\"/g; } my $dbh=C4Connect;