some perl lines

classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

some perl lines

Wojciech Zatorski
Hello koha,

why are this lines in koha code?

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)...

bye

--
<[hidden email]>
tel. +48 509-855-239; GG: 1500861; Skype: zatorski
http://www.Zatorski.Net
--
Actions speak louder than words.

_______________________________________________
Koha mailing list
[hidden email]
http://lists.katipo.co.nz/mailman/listinfo/koha