> +while ( my ($key, $value ) = each(%$data) ) {
> + my $replacefield = "<$key>";
> + my $replacedby = $value;
> + $scheme =~ s/$replacefield/$replacedby/g;
> +}
Why not just name the variable (like $value) what you want it to be
($replacedby) when you declare it the first time? Why bother reassigning it
to a 2nd variable and doing nothing with the first?
Or just do:
$scheme =~ s/<$key>/$value/g;
--
Joe Atzberger
LibLime - Open Source Library Solutions
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
