Dear All, I'm trying to use the script tmpl_process3.pl under script/misc/translator for generating a PO file. But when executing the file it is giving error.... I think the error is on the line no. 63 of the tmpl_process3.pl sub text_replace_tag ($$) { my($t, $attr) = @_; my $it; # value [tag=input], meta my $tag = lc($1) if $t =~ /^<(\S+)/s; my $translated_p = 0; for my $a ('alt', 'content', 'title', 'value') { if ($attr->{$a}) { next if $a eq 'content' && $tag ne 'meta'; next if $a eq 'value' && ($tag ne 'input' || (ref $attr->{'type'} && $attr->{'type'}->[1] =~ /^(?:hidden|radio|text)$/)); # FIXME my($key, $val, $val_orig, $order) = @{$attr->{$a}}; #FIXME if ($val =~ /\S/s) { my $s = find_translation($val); if ($attr->{$a}->[1] ne $s) { #FIXME $attr->{$a}->[1] = $s; # FIXME #### ERROR #### $attr->{$a}->[2] = ($s =~ /"/s)? "'$s'": "\"$s\""; #FIXME #### ERROR #### $translated_p = 1; } } } } if ($transl...... ................. Could anybody suggest why the script is giving error at that line number? With regards, Arnab Sadhukhan CDAC, Kolkata India -- View this message in context: http://www.nabble.com/Translating-Script-tmpl_process3.pl-giving-error-tp193... Sent from the Koha - Discuss mailing list archive at Nabble.com.