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

(-)a/authorities/authorities.pl (-2 lines)
Lines 136-143 sub create_input { Link Here
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') {
(-)a/cataloguing/addbiblio.pl (-2 lines)
Lines 275-282 sub create_input { Link Here
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{};
(-)a/cataloguing/additem.pl (-4 / +2 lines)
Lines 143-154 sub generate_subfield_form { Link Here
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/"/&quot;/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);
(-)a/members/memberentry.pl (-1 lines)
Lines 178-184 if ( $op eq 'insert' || $op eq 'modify' || $op eq 'save' || $op eq 'duplicate' ) Link Here
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/\"/&quot;/g unless $key eq 'borrowernotes' or $key eq 'opacnote';
182
        }
181
        }
183
    }
182
    }
184
183
(-)a/opac/opac-review.pl (-3 lines)
Lines 71-79 if( !@errors && defined $review ) { Link Here
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/"/&quot;/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
                    {
(-)a/tools/batchMod.pl (-3 / +1 lines)
Lines 331-338 foreach my $tag (sort keys %{$tagslib}) { Link Here
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/"/&quot;/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