@@ -, +, @@ $value =~ s/"/"/g; + fields borrowernotes and opacnotes --- authorities/authorities.pl | 2 -- cataloguing/addbiblio.pl | 2 -- cataloguing/additem.pl | 6 ++---- members/memberentry.pl | 1 - opac/opac-review.pl | 3 --- tools/batchMod.pl | 3 +-- 6 files changed, 3 insertions(+), 14 deletions(-) --- a/authorities/authorities.pl +++ a/authorities/authorities.pl @@ -136,8 +136,6 @@ sub create_input { my $index_subfield = CreateKey(); # create a specifique key for each subfield - $value =~ s/"/"/g; - # determine maximum length; 9999 bytes per ISO 2709 except for leader and MARC21 008 my $max_length = 9999; if ($tag eq '000') { --- a/cataloguing/addbiblio.pl +++ a/cataloguing/addbiblio.pl @@ -275,8 +275,6 @@ sub create_input { my $index_subfield = CreateKey(); # create a specifique key for each subfield - $value =~ s/"/"/g; - # if there is no value provided but a default value in parameters, get it if ( $value eq '' ) { $value = $tagslib->{$tag}->{$subfield}->{defaultvalue} // q{}; --- a/cataloguing/additem.pl +++ a/cataloguing/additem.pl @@ -143,12 +143,10 @@ sub generate_subfield_form { my $username=(C4::Context->userenv?C4::Context->userenv->{'surname'}:"superlibrarian"); $value=~s/<>/$username/g; } - } else { - $value =~ s/"/"/g; } - + $subfield_data{visibility} = "display:none;" if (($subfieldlib->{hidden} > 4) || ($subfieldlib->{hidden} <= -4)); - + my $pref_itemcallnumber = C4::Context->preference('itemcallnumber'); if (!$value && $subfieldlib->{kohafield} eq 'items.itemcallnumber' && $pref_itemcallnumber) { my $CNtag = substr($pref_itemcallnumber, 0, 3); --- a/members/memberentry.pl +++ a/members/memberentry.pl @@ -178,7 +178,6 @@ if ( $op eq 'insert' || $op eq 'modify' || $op eq 'save' || $op eq 'duplicate' ) foreach my $key (@names) { if (defined $input->param($key)) { $newdata{$key} = $input->param($key); - $newdata{$key} =~ s/\"/"/g unless $key eq 'borrowernotes' or $key eq 'opacnote'; } } --- a/opac/opac-review.pl +++ a/opac/opac-review.pl @@ -71,9 +71,6 @@ if( !@errors && defined $review ) { if ($clean ne $review) { push @errors, {scrubbed=>$clean}; } - my $js_ok_review = $clean; - $js_ok_review =~ s/"/"/g; # probably redundant w/ TMPL ESCAPE=JS - $template->param(clean_review=>$js_ok_review); if ($savedreview) { $savedreview->set( { --- a/tools/batchMod.pl +++ a/tools/batchMod.pl @@ -331,8 +331,7 @@ foreach my $tag (sort keys %{$tagslib}) { $subfield_data{mandatory} = $tagslib->{$tag}->{$subfield}->{mandatory}; $subfield_data{repeatable} = $tagslib->{$tag}->{$subfield}->{repeatable}; my ($x,$value); - $value =~ s/"/"/g; - if ( !$value && $use_default_values) { + if ( $use_default_values) { $value = $tagslib->{$tag}->{$subfield}->{defaultvalue}; # get today date & replace YYYY, MM, DD if provided in the default value my $today = dt_from_string; --