[- $args = shift @param; $theme = $args->{theme}; $log = &EMU::get_var('log');; $addr = &EMU::get_var('data'); $addr =~s/addresses\.//g; @addr = split(/\|\|/, $addr); @used=(); -]