loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.12, 2001/12/24 23:01:31	version 1.13, 2001/12/25 21:02:35
Line 29	Line 29
#	#
# 05/29/00,05/30,10/11 Gerd Kortemeyer)	# 05/29/00,05/30,10/11 Gerd Kortemeyer)
#	#
# 10/19,10/21,10/23,11/27,08/09/01,12/22,12/24 Gerd Kortemeyer	# 10/19,10/21,10/23,11/27,08/09/01,12/22,12/24,12/25 Gerd Kortemeyer

package Apache::lonmeta;	package Apache::lonmeta;

Line 100 sub dynamicmeta {	Line 100 sub dynamicmeta {

sub evalgraph {	sub evalgraph {
my $value=shift;	my $value=shift;
	unless ($value) { return ''; }
my $val=int($value*10.+0.5)-10;	my $val=int($value*10.+0.5)-10;
my $output='<table border=0 cellpadding=0 cellspacing=0><tr>';	my $output='<table border=0 cellpadding=0 cellspacing=0><tr>';
if ($val>=20) {	if ($val>=20) {
Line 121 sub evalgraph {	Line 122 sub evalgraph {

sub diffgraph {	sub diffgraph {
my $value=shift;	my $value=shift;
	unless ($value) { return ''; }
my $val=int(40.0*$value+0.5);	my $val=int(40.0*$value+0.5);
my @colors=('#FF3333','#EEBB33','#BBEE33','#33FF33',	my @colors=('#FF9933','#EEAA33','#DDBB33','#CCCC33',
'#33FF33','#BBEE33','#EEBB33','#FF3333');	'#BBDD33','#CCCC33','#DDBB33','#EEAA33');
my $output='<table border=0 cellpadding=0 cellspacing=0><tr>';	my $output='<table border=0 cellpadding=0 cellspacing=0><tr>';
for (my $i=0;$i<8;$i++) {	for (my $i=0;$i<8;$i++) {
if ($val>$i*5) {	if ($val>$i*5) {