Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.219, 2004/10/12 23:26:48 | version 1.220, 2004/10/15 16:51:29 |
---|---|
Line 3293 sub DrawBarGraph { | Line 3293 sub DrawBarGraph { |
} | } |
# | # |
my ($height,$width,$xskip,$bar_width) = (200,120,1,15); | my ($height,$width,$xskip,$bar_width) = (200,120,1,15); |
if ($NumBars < 10) { | if ($NumBars < 5) { |
$width = 120+$NumBars*25; | |
$xskip = 1; | |
$bar_width = 25; | |
} elsif ($NumBars < 10) { | |
$width = 120+$NumBars*15; | $width = 120+$NumBars*15; |
$xskip = 1; | $xskip = 1; |
$bar_width = 15; | $bar_width = 15; |