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

(-)a/admin/auth_subfields_structure.pl (-4 / +4 lines)
Lines 144-152 if ($op eq 'add_form') { Link Here
144
                    };
144
                    };
145
		$row_data{tagsubfieldinput} = "<input type=\"hidden\" name=\"tagsubfield\" value=\"".$data->{'tagsubfield'}."\" id=\"tagsubfield\" />";
145
		$row_data{tagsubfieldinput} = "<input type=\"hidden\" name=\"tagsubfield\" value=\"".$data->{'tagsubfield'}."\" id=\"tagsubfield\" />";
146
		$row_data{tagsubfield} = $data->{'tagsubfield'};
146
		$row_data{tagsubfield} = $data->{'tagsubfield'};
147
		$row_data{liblibrarian} = CGI::escapeHTML($data->{'liblibrarian'});
147
		$row_data{liblibrarian} = $data->{'liblibrarian'};
148
		$row_data{libopac} = CGI::escapeHTML($data->{'libopac'});
148
		$row_data{libopac} = $data->{'libopac'};
149
		$row_data{seealso} = CGI::escapeHTML($data->{'seealso'});
149
		$row_data{seealso} = $data->{'seealso'};
150
        $row_data{kohafield} = {
150
        $row_data{kohafield} = {
151
                    id      => "kohafield$i",
151
                    id      => "kohafield$i",
152
                    values  => \@kohafields,
152
                    values  => \@kohafields,
Lines 178-184 if ($op eq 'add_form') { Link Here
178
	-value => 1,
178
	-value => 1,
179
	-label => '',
179
	-label => '',
180
	-id => "mandatory$i");
180
	-id => "mandatory$i");
181
		$row_data{hidden} = CGI::escapeHTML($data->{hidden}) ;
181
		$row_data{hidden} = $data->{hidden};
182
		$row_data{isurl} = CGI::checkbox( -name => "isurl$i",
182
		$row_data{isurl} = CGI::checkbox( -name => "isurl$i",
183
			-id => "isurl$i",
183
			-id => "isurl$i",
184
			-checked => $data->{'isurl'}?'checked':'',
184
			-checked => $data->{'isurl'}?'checked':'',
(-)a/admin/marc_subfields_structure.pl (-6 / +6 lines)
Lines 189-197 if ( $op eq 'add_form' ) { Link Here
189
          . "\" id=\"tagsubfield\" />";
189
          . "\" id=\"tagsubfield\" />";
190
        $row_data{subfieldcode} = $data->{'tagsubfield'} eq '@'?'_':$data->{'tagsubfield'};
190
        $row_data{subfieldcode} = $data->{'tagsubfield'} eq '@'?'_':$data->{'tagsubfield'};
191
        $row_data{urisubfieldcode} = $row_data{subfieldcode} eq '%' ? 'pct' : $row_data{subfieldcode};
191
        $row_data{urisubfieldcode} = $row_data{subfieldcode} eq '%' ? 'pct' : $row_data{subfieldcode};
192
        $row_data{liblibrarian} = CGI::escapeHTML( $data->{'liblibrarian'} );
192
        $row_data{liblibrarian} = $data->{'liblibrarian'};
193
        $row_data{libopac}      = CGI::escapeHTML( $data->{'libopac'} );
193
        $row_data{libopac}      = $data->{'libopac'};
194
        $row_data{seealso}      = CGI::escapeHTML( $data->{'seealso'} );
194
        $row_data{seealso}      = $data->{'seealso'};
195
        $row_data{kohafield} = {
195
        $row_data{kohafield} = {
196
                    id      => "kohafield$i",
196
                    id      => "kohafield$i",
197
                    values  => \@kohafields,
197
                    values  => \@kohafields,
Lines 226-232 if ( $op eq 'add_form' ) { Link Here
226
            -label    => '',
226
            -label    => '',
227
            -id       => "mandatory$i"
227
            -id       => "mandatory$i"
228
        );
228
        );
229
        $row_data{hidden} = CGI::escapeHTML( $data->{hidden} );
229
        $row_data{hidden} = $data->{hidden};
230
        $row_data{isurl}  = CGI::checkbox(
230
        $row_data{isurl}  = CGI::checkbox(
231
            -name     => "isurl$i",
231
            -name     => "isurl$i",
232
            -id       => "isurl$i",
232
            -id       => "isurl$i",
Lines 235-241 if ( $op eq 'add_form' ) { Link Here
235
            -label    => ''
235
            -label    => ''
236
        );
236
        );
237
        $row_data{row}    = $i;
237
        $row_data{row}    = $i;
238
        $row_data{link}   = CGI::escapeHTML( $data->{'link'} ); 
238
        $row_data{link}   = $data->{'link'};
239
        push( @loop_data, \%row_data );
239
        push( @loop_data, \%row_data );
240
        $i++;
240
        $i++;
241
    }
241
    }
Lines 299-305 if ( $op eq 'add_form' ) { Link Here
299
                    values  => \@authtypes,
299
                    values  => \@authtypes,
300
                    default => $data->{'authtypecode'},
300
                    default => $data->{'authtypecode'},
301
        };
301
        };
302
        $row_data{link}   = CGI::escapeHTML( $data->{'link'} );
302
        $row_data{link}   = $data->{'link'};
303
        $row_data{row}    = $i;
303
        $row_data{row}    = $i;
304
        push( @loop_data, \%row_data );
304
        push( @loop_data, \%row_data );
305
305
(-)a/catalogue/image.pl (-2 / +1 lines)
Lines 26-32 Link Here
26
use strict;
26
use strict;
27
use warnings;
27
use warnings;
28
28
29
use CGI qw ( -utf8 );    #qw(:standard escapeHTML);
29
use CGI qw ( -utf8 );
30
use C4::Context;
30
use C4::Context;
31
use C4::Images;
31
use C4::Images;
32
32
33
- 

Return to bug 15771