Hey Lois, try this..
open(SELECT,"pteam.txt") || die "Can't open file";
@pteam_list = (<SELECT> );
close (SELECT);
print qq|<select name="PTeam">|;
foreach (@pteam_list) {
chomp $_;
if ($_ eq $rec{'PTeam'}) {
print qq| <option selected>$_</option>|;
} else {
print qq| <option>$_</option>|;
}
print "$_\n";
}
print qq|</select>
chmod
Code:
|; open(SELECT,"pteam.txt") || die "Can't open file";
@pteam_list = (<SELECT> );
close (SELECT);
print qq|<select name="PTeam">|;
foreach (@pteam_list) {
chomp $_;
if ($_ eq $rec{'PTeam'}) {
print qq| <option selected>$_</option>|;
} else {
print qq| <option>$_</option>|;
}
print "$_\n";
}
print qq|</select>
chmod