|
version 1.248, 2005/02/12 03:27:57
|
version 1.249, 2005/02/14 01:44:02
|
|
Line 1142 sub select_dom_form {
|
Line 1142 sub select_dom_form {
|
| my $selectdomain = "<select name=\"$name\" size=\"1\">\n"; |
my $selectdomain = "<select name=\"$name\" size=\"1\">\n"; |
| foreach (@domains) { |
foreach (@domains) { |
| $selectdomain.="<option value=\"$_\" ". |
$selectdomain.="<option value=\"$_\" ". |
| ($_ eq $defdom ? 'selected' : ''). |
($_ eq $defdom ? 'selected="selected"' : ''). |
| ">$_</option>\n"; |
">$_</option>\n"; |
| } |
} |
| $selectdomain.="</select>"; |
$selectdomain.="</select>"; |
|
Line 3919 sub icon {
|
Line 3919 sub icon {
|
| $curfext.".gif"; |
$curfext.".gif"; |
| } |
} |
| } |
} |
| return $iconname; |
return &lonhttpdurl($iconname); |
| } |
} |
| |
|
| sub lonhttpdurl { |
sub lonhttpdurl { |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface