Attachment #83120 for bug #21986

View | Details | Raw Unified | Return to bug 21986
Collapse All | Expand All

Lines 136-143 sub create_input { Link Here

(-)a/authorities/authorities.pl (-2 lines)
136		136
137	my $index_subfield = CreateKey(); # create a specifique key for each subfield	137	my $index_subfield = CreateKey(); # create a specifique key for each subfield
138		138
139	$value =~ s/"/"/g;
140
141	# determine maximum length; 9999 bytes per ISO 2709 except for leader and MARC21 008	139	# determine maximum length; 9999 bytes per ISO 2709 except for leader and MARC21 008
142	my $max_length = 9999;	140	my $max_length = 9999;
143	if ($tag eq '000') {	141	if ($tag eq '000') {

Lines 275-282 sub create_input { Link Here

(-)a/cataloguing/addbiblio.pl (-2 lines)
275		275
276	my $index_subfield = CreateKey(); # create a specifique key for each subfield	276	my $index_subfield = CreateKey(); # create a specifique key for each subfield
277		277
278	$value =~ s/"/"/g;
279
280	# if there is no value provided but a default value in parameters, get it	278	# if there is no value provided but a default value in parameters, get it
281	if ( $value eq '' ) {	279	if ( $value eq '' ) {
282	$value = $tagslib->{$tag}->{$subfield}->{defaultvalue} // q{};	280	$value = $tagslib->{$tag}->{$subfield}->{defaultvalue} // q{};




                my $username=(C4::Context->userenv?C4::Context->userenv->{'surname'}:"superlibrarian");
                $value=~s/<<USER>>/$username/g;
            }
        } else {
            $value =~ s/"/&quot;/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);

Lines 178-184 if ( $op eq 'insert' \|\| $op eq 'modify' \|\| $op eq 'save' \|\| $op eq 'duplicate' ) Link Here

(-)a/members/memberentry.pl (-1 lines)
178	foreach my $key (@names) {	178	foreach my $key (@names) {
179	if (defined $input->param($key)) {	179	if (defined $input->param($key)) {
180	$newdata{$key} = $input->param($key);	180	$newdata{$key} = $input->param($key);
181	$newdata{$key} =~ s/\"/"/g unless $key eq 'borrowernotes' or $key eq 'opacnote';
182	}	181	}
183	}	182	}
184		183

Lines 71-79 if( !@errors && defined $review ) { Link Here

(-)a/opac/opac-review.pl (-3 lines)
71	if ($clean ne $review) {	71	if ($clean ne $review) {
72	push @errors, {scrubbed=>$clean};	72	push @errors, {scrubbed=>$clean};
73	}	73	}
74	my $js_ok_review = $clean;
75	$js_ok_review =~ s/"/"/g; # probably redundant w/ TMPL ESCAPE=JS
76	$template->param(clean_review=>$js_ok_review);
77	if ($savedreview) {	74	if ($savedreview) {
78	$savedreview->set(	75	$savedreview->set(
79	{	76	{

Lines 331-338 foreach my $tag (sort keys %{$tagslib}) { Link Here

(-)a/tools/batchMod.pl (-3 / +1 lines)
331	$subfield_data{mandatory} = $tagslib->{$tag}->{$subfield}->{mandatory};	331	$subfield_data{mandatory} = $tagslib->{$tag}->{$subfield}->{mandatory};
332	$subfield_data{repeatable} = $tagslib->{$tag}->{$subfield}->{repeatable};	332	$subfield_data{repeatable} = $tagslib->{$tag}->{$subfield}->{repeatable};
333	my ($x,$value);	333	my ($x,$value);
334	$value =~ s/"/"/g;	334	if ( $use_default_values) {
335	if ( !$value && $use_default_values) {
336	$value = $tagslib->{$tag}->{$subfield}->{defaultvalue};	335	$value = $tagslib->{$tag}->{$subfield}->{defaultvalue};
337	# get today date & replace YYYY, MM, DD if provided in the default value	336	# get today date & replace YYYY, MM, DD if provided in the default value
338	my $today = dt_from_string;	337	my $today = dt_from_string;
339	-

Return to bug 21986

Lines 143-154 sub generate_subfield_form { Link Here

(-)a/cataloguing/additem.pl (-4 / +2 lines)
143	my $username=(C4::Context->userenv?C4::Context->userenv->{'surname'}:"superlibrarian");	143	my $username=(C4::Context->userenv?C4::Context->userenv->{'surname'}:"superlibrarian");
144	$value=~s/<<USER>>/$username/g;	144	$value=~s/<<USER>>/$username/g;
145	}	145	}
146	} else {
147	$value =~ s/"/"/g;
148	}	146	}
149		147
150	$subfield_data{visibility} = "display:none;" if (($subfieldlib->{hidden} > 4) \|\| ($subfieldlib->{hidden} <= -4));	148	$subfield_data{visibility} = "display:none;" if (($subfieldlib->{hidden} > 4) \|\| ($subfieldlib->{hidden} <= -4));
151		149
152	my $pref_itemcallnumber = C4::Context->preference('itemcallnumber');	150	my $pref_itemcallnumber = C4::Context->preference('itemcallnumber');
153	if (!$value && $subfieldlib->{kohafield} eq 'items.itemcallnumber' && $pref_itemcallnumber) {	151	if (!$value && $subfieldlib->{kohafield} eq 'items.itemcallnumber' && $pref_itemcallnumber) {
154	my $CNtag = substr($pref_itemcallnumber, 0, 3);	152	my $CNtag = substr($pref_itemcallnumber, 0, 3);