I meant this is the place to correct.
A possible solution would be this
---------
if ($wol_locale =~ /ubb=get_topic/) {
my $start = index($wol_locale,"&f=")+3;
my $stop = index($wol_locale,"&t=");
my $f = substr($wol_locale,$start,$stop-$start);
my $t = substr($wol_locale,$stop+3);
my @this_forum = &GetForumRecord($f);
my @whos_online_this_topic = &OpenTopic($t, $f);
my @whos_online_stats = split(/||/, $whos_online_this_topic[0]);
my $who_online_subject = $whos_online_stats[4];
$wol_locale = qq($vars_wordlets_mods{'whos_online_reading'} "
$who_online_subject" $vars_wordlets_mods{whos_online_in} "
$this_forum[1]");
} elsif ($wol_locale =~ /ubb=forum/) {
my $start = index($wol_locale,"&f=")+3;
my $f = substr($wol_locale,$start);
my @this_forum = &GetForumRecord($f);
$wol_locale = qq($vars_wordlets_mods{'whos_online_browsing'} "
$this_forum[1]");
} else {
$wol_locale = qq($vars_wordlets_mods{'whos_online_viewing'} "
$vars_wordlets_mods{whos_online_main_page}");
}
---------
[ 11-06-2001: Message edited by: Minichip ]