Call me nit picky if you want, but i don't believe in opening a profile file twice in a row.
The first change
quote:
###########
FIND:
###########
SORTORDER: foreach my $number (@xa) {
my $pn = &GetPubName($number);
###########
ADD UNDER:
###########
my $user_status = (&OpenProfile($number))[8];
if ($user_status eq "Administrator") {
$wol_se_s = "$vars_wordlets_mods{admin_effect_start}";
$wol_se_e = "$vars_wordlets_mods{admin_effect_end}";
} elsif ($user_status eq "Moderator") {
$wol_se_s = "$vars_wordlets_mods{mod_effect_start}";
$wol_se_e = "$vars_wordlets_mods{mod_effect_end}";
} else {
$wol_se_s = "";
$wol_se_e = "";
}
would be slightly easier, i think for it be like this
quote:
###########
FIND:
###########
SORTORDER: foreach my $number (@xa) {
my $pn = &GetPubName($number);
###########
REPLACE WITH:
###########
SORTORDER: foreach my $number (@xa) {
my @user_profile = &OpenProfile($number);
my $pn = $user_profile[15];
if ($user_profile[8] eq "Administrator") {
$wol_se_s = "$vars_wordlets_mods{admin_effect_start}";
$wol_se_e = "$vars_wordlets_mods{admin_effect_end}";
} elsif ($user_profile[8] eq "Moderator") {
$wol_se_s = "$vars_wordlets_mods{mod_effect_start}";
$wol_se_e = "$vars_wordlets_mods{mod_effect_end}";
} else {
$wol_se_s = "";
$wol_se_e = "";
}
but then, that's just me. 
