loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.284 and 1.286

version 1.284, 2005/11/08 03:12:35	version 1.286, 2005/11/10 00:37:39
Line 1186 sub multiple_select_form {	Line 1186 sub multiple_select_form {
}	}
}	}
$output.="\n<select name='$name' size='$size' multiple='1'>";	$output.="\n<select name='$name' size='$size' multiple='1'>";
my @order = ref($order) ? @{$order}	my @order = ref($order) ? @$order
: sort(keys(%$hash));	: sort(keys(%$hash));
foreach my $key (@order) {	foreach my $key (@order) {
$output.='<option value="'.$key.'" ';	$output.='<option value="'.$key.'" ';
Line 2774 sub bodytag {	Line 2774 sub bodytag {
<style type="text/css">	<style type="text/css">
h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif }	h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif }
a:focus { color: red; background: yellow }	a:focus { color: red; background: yellow }
	table.thinborder { border-collapse: collapse; }
	table.thinborder tr th { border-style: solid; border-width: 1px}
	table.thinborder tr td { border-style: solid; border-width: 1px}
	.center { text-align: center; }
</style>	</style>
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link"	<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link"
style="margin-top: 0px;$addstyle" $addentries>	style="margin-top: 0px;$addstyle" $addentries>
Line 2882 ENDROLE	Line 2886 ENDROLE
#	#
return(<<ENDBODY);	return(<<ENDBODY);
$bodytag	$bodytag
<table width="100%" cellspacing="0" border="0" cellpadding="0">	<table class="thinborder" width="100%" cellspacing="0" border="0" cellpadding="0">
<tr><td bgcolor="$sidebg">	<tr><td bgcolor="$sidebg">
$upperleft</td>	$upperleft</td>
<td bgcolor="$sidebg" align="right">$messages </td>	<td bgcolor="$sidebg" align="right">$messages </td>

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.284
changed lines
	Added in v.1.286