[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: |
paul poulain |
Subject: |
[Koha-cvs] koha/members memberentry.pl [rel_3_0] |
Date: |
Thu, 25 Jan 2007 11:02:08 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: rel_3_0
Changes by: paul poulain <tipaul> 07/01/25 11:02:08
Modified files:
members : memberentry.pl
Log message:
Don't escape " in borrowernotes or opacnote : the librarian must be
able to insert html in those fields, to hilight or put a link
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/members/memberentry.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.38.2.23&r2=1.38.2.24
Patches:
Index: memberentry.pl
===================================================================
RCS file: /sources/koha/koha/members/memberentry.pl,v
retrieving revision 1.38.2.23
retrieving revision 1.38.2.24
diff -u -b -r1.38.2.23 -r1.38.2.24
--- memberentry.pl 10 Jan 2007 16:31:15 -0000 1.38.2.23
+++ memberentry.pl 25 Jan 2007 11:02:08 -0000 1.38.2.24
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: memberentry.pl,v 1.38.2.23 2007/01/10 16:31:15 toins Exp $
+# $Id: memberentry.pl,v 1.38.2.24 2007/01/25 11:02:08 tipaul Exp $
# Copyright 2006 SAN OUEST PROVENCE et Paul POULAIN
#
@@ -104,7 +104,7 @@
my @names=$input->param;
foreach my $key (@names){
$data{$key}=$input->param($key)||'';
- $data{$key}=~ s/\"/"/gg;
+ $data{$key}=~ s/\"/"/gg unless $key eq 'borrowernotes' or
$key eq 'opacnote';
}
# WARN : some tests must be done whatever the step, because the
librarian can click on any tab.