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) { |