loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.726, 2008/12/19 17:19:48	version 1.727, 2008/12/21 22:02:39
Line 7943 sub upfile_select_html {	Line 7943 sub upfile_select_html {
# xml => &mt('HTML/XML'),	# xml => &mt('HTML/XML'),
);	);
my $Str = '<input type="file" name="upfile" size="50" />'.	my $Str = '<input type="file" name="upfile" size="50" />'.
'<br />Type: <select name="upfiletype">';	'<br />'.&mt('Type').': <select name="upfiletype">';
foreach my $type (sort(keys(%Types))) {	foreach my $type (sort(keys(%Types))) {
$Str .= '<option value="'.$type.'" >'.$Types{$type}."</option>\n";	$Str .= '<option value="'.$type.'" >'.$Types{$type}."</option>\n";
}	}