Attachment #78015 for bug #21142

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

Lines 237-242 if ($op eq "show"){ Link Here

(-)a/tools/batchMod.pl (+1 lines)
237		237
238	my @contentlist;	238	my @contentlist;
239	if ($filefh){	239	if ($filefh){
		240	binmode $filefh, ':encoding(UTF-8)';
240	while (my $content=<$filefh>){	241	while (my $content=<$filefh>){
241	$content =~ s/[\r\n]*$//;	242	$content =~ s/[\r\n]*$//;
242	push @contentlist, $content if $content;	243	push @contentlist, $content if $content;

Lines 57-62 if ( $op eq 'form' ) { Link Here

(-)a/tools/batch_delete_records.pl (+1 lines)
57	$recordtype = 'biblio';	57	$recordtype = 'biblio';
58	} elsif ( my $uploadfile = $input->param('uploadfile') ) {	58	} elsif ( my $uploadfile = $input->param('uploadfile') ) {
59	# A file of id is given	59	# A file of id is given
		60	binmode $uploadfile, ':encoding(UTF-8)';
60	while ( my $content = <$uploadfile> ) {	61	while ( my $content = <$uploadfile> ) {
61	next unless $content;	62	next unless $content;
62	$content =~ s/[\r\n]*$//;	63	$content =~ s/[\r\n]*$//;

Lines 105-110 if ( $op eq 'form' ) { Link Here

(-)a/tools/batch_record_modification.pl (-1 / +1 lines)
105	$recordtype = 'biblio';	105	$recordtype = 'biblio';
106	} elsif ( my $uploadfile = $input->param('uploadfile') ) {	106	} elsif ( my $uploadfile = $input->param('uploadfile') ) {
107	# A file of id is given	107	# A file of id is given
		108	binmode $uploadfile, ':encoding(UTF-8)';
108	while ( my $content = <$uploadfile> ) {	109	while ( my $content = <$uploadfile> ) {
109	next unless $content;	110	next unless $content;
110	$content =~ s/[\r\n]*$//;	111	$content =~ s/[\r\n]*$//;
111	-

Return to bug 21142