[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/members memberentry.pl [rel_3_0]
From: |
Bruno Toumi |
Subject: |
[Koha-cvs] koha/members memberentry.pl [rel_3_0] |
Date: |
Fri, 13 Oct 2006 11:21:54 +0000 |
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/\"/"/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