[Koha-cvs] koha/cataloguing addbiblio.pl
Joshua Ferraro
jmf at kados.org
Mon Mar 6 04:48:20 CET 2006
CVSROOT: /sources/koha
Module name: koha
Branch:
Changes by: Joshua Ferraro <kados at savannah.gnu.org> 06/03/06 03:48:20
Modified files:
cataloguing : addbiblio.pl
Log message:
remove char_decode
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/cataloguing/addbiblio.pl.diff?tr1=1.7&tr2=1.8&r1=text&r2=text
Patches:
Index: koha/cataloguing/addbiblio.pl
diff -u koha/cataloguing/addbiblio.pl:1.7 koha/cataloguing/addbiblio.pl:1.8
--- koha/cataloguing/addbiblio.pl:1.7 Mon Mar 6 02:51:04 2006
+++ koha/cataloguing/addbiblio.pl Mon Mar 6 03:48:20 2006
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: addbiblio.pl,v 1.7 2006/03/06 02:51:04 kados Exp $
+# $Id: addbiblio.pl,v 1.8 2006/03/06 03:48:20 kados Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -64,7 +64,7 @@
my @subfields = $field->subfields();
foreach my $subfield (@subfields) {
if (@$subfield[0] eq $insubfield) {
- push @result,char_decode(@$subfield[1],$encoding);
+ push @result,@$subfield[1]);
$indicator = $field->indicator(1).$field->indicator(2);
}
}
@@ -246,7 +246,7 @@
}
next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
next if ($tagslib->{$tag}->{$subfield}->{kohafield} eq 'biblio.biblionumber');
- push(@subfields_data, &create_input($tag,$subfield,char_decode($value,$encoding),$i,$tabloop,$record,$authorised_values_sth));
+ push(@subfields_data, &create_input($tag,$subfield,$value,$i,$tabloop,$record,$authorised_values_sth));
$i++;
} else {
my @subfields=$field->subfields();
@@ -255,7 +255,7 @@
my $value=$subfields[$subfieldcount][1];
next if (length $subfield !=1);
next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
- push(@subfields_data, &create_input($tag,$subfield,char_decode($value,$encoding),$i,$tabloop,$record,$authorised_values_sth));
+ push(@subfields_data, &create_input($tag,$subfield,$value,$i,$tabloop,$record,$authorised_values_sth));
$i++;
}
}
More information about the Koha-cvs
mailing list