sub getWeekStr{ my ($week1,$week2,$week3,$week4)= @_; my $weekStr; for (my $x = 1;$x <= 4; $x++ ) { my $WEEK_PD = 'WEEK'.$x; my $stored_num = $_[$x-1]; my $WEEK_PD_NAME = 'WEEK'.$x."_PD"; $WEEK_PD_NAME = qq|<SELECT NAME="$WEEK_PD">|; $WEEK_PD =~ s/WEEK//; for (my $y = 1;$y <= 4; $y++){ if ($y =~ /$stored_num/) { $WEEK_PD_NAME .= qq|<option selected value = "$stored_num">TEAM $store +d_num</OPTION>|; } else { $WEEK_PD_NAME .= qq|<option value = "$y">TEAM $y</OPTION>|; } } $WEEK_PD_NAME .= qq|</SELECT>|; print $WEEK_PD_NAME; my $weekStr .= qq|<td align=center width=25%>$WEEK_PD_NAME </td>|; } return $weekStr; }
In reply to returning values by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |