[Koha-devel] some perl lines
Wojciech Zatorski
listy-in at zatorski.net
Sat Feb 25 12:45:24 CET 2006
Hello koha,
why are this lines in koha code? (OPAC/opac-MARCdetail.pl)
if ($fields[$x_i]->tag() eq $fields[$x_i-1]->tag()) {
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ????
$tag_data{tag}="";
} else {
$tag_data{tag}=$fields[$x_i]->tag().' -'. $tagslib->{$fields[$x_i]->tag()}->{lib};
}
because this lines of marc display are incorrect with marc standards (for example field 650)...
and i find small bug in /usr/share/perl5/5.8.7/CGI.pm when you using
utf-8:
$toencode =~ s{\x9b}{›}gso;
this line corrupt polish utf-8 S letter
bye
--
<wojciech at zatorski.net>
tel. +48 509-855-239; GG: 1500861; Skype: zatorski
http://www.Zatorski.Net
--
Actions speak louder than words.
More information about the Koha-devel
mailing list