version 1.26, 2006/07/11 02:28:22
|
version 1.27, 2006/07/18 21:52:01
|
Line 62 sub print_course_selection_page {
|
Line 62 sub print_course_selection_page {
|
</p><p> |
</p><p> |
<b>$lt{'ccrs'}:</b> |
<b>$lt{'ccrs'}:</b> |
<select name="course"> |
<select name="course"> |
<option value="0" />$lt{'psac'} |
<option value="0">$lt{'psac'}</option> |
<option value="-1" />--------------------------------------------------- |
<option value="-1">---------------------------------------------------</option> |
ENDBLOCK |
ENDBLOCK |
my $iter = 0; |
my $iter = 0; |
my @codes = (); |
my @codes = (); |
Line 131 ENDBLOCK
|
Line 131 ENDBLOCK
|
$ownername = &Apache::loncommon::plainname($owneruname, |
$ownername = &Apache::loncommon::plainname($owneruname, |
$ownerdom); |
$ownerdom); |
} |
} |
$r->print("<option value=\"$crs\">$showcode -- $description ---------- $ownername"); |
$r->print("<option value=\"$crs\">$showcode -- $description ---------- $ownername</option>"); |
} |
} |
} |
} |
} |
} |