[Koha-cvs] koha/members memberentry.pl [rel_3_0]

[Bruno Toumi]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Bruno Toumi <btoumi>	06/10/13 11:21:54

Modified files:
	members        : memberentry.pl 

Log message:
	bug fix : modify condition to accept  ' and " in text  fields

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/members/memberentry.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.38.2.6&r2=1.38.2.7

Patches:
Index: memberentry.pl
===================================================================
RCS file: /sources/koha/koha/members/memberentry.pl,v
retrieving revision 1.38.2.6
retrieving revision 1.38.2.7
diff -u -b -r1.38.2.6 -r1.38.2.7
--- memberentry.pl	12 Oct 2006 14:37:15 -0000	1.38.2.6
+++ memberentry.pl	13 Oct 2006 11:21:54 -0000	1.38.2.7
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: memberentry.pl,v 1.38.2.6 2006/10/12 14:37:15 btoumi Exp $
+# $Id: memberentry.pl,v 1.38.2.7 2006/10/13 11:21:54 btoumi Exp $
 
 # Copyright 2006 SAN OUEST PROVENCE et Paul POULAIN
 #
@@ -104,8 +104,7 @@
 	my @names=$input->param;
 	foreach my $key (@names){
 		$data{$key}=$input->param($key)||'';
-		$data{$key}=~ s/\'/\\\'/g;
-		$data{$key}=~ s/\"/\\\"/g;
+ 		$data{$key}=~ s/\"/&quot;/gg;
 	}
 
 	# WARN : some tests must be done whatever the step, because the librarian can click on any tab.
@@ -435,11 +434,6 @@
 	} else {
 		$template->param( sort2 => $data{'sort2'});
 	}
-
-	
- 	$data{'opacnotes'} =~ s/\\//g;
-	$data{'borrowernotes'} =~ s/\\//g;
-
 	# increase step to see next page
         if ($nok) {
             foreach my $error (@errors) {
@@ -451,7 +445,6 @@
             $step++;
         }
 
-
 	$template->param(
 		BorrowerMandatoryField => C4::Context->preference("BorrowerMandatoryField"),#field to test with javascript
 		category_type	=> $category_type,#to know the category type of the borrower