[BACK]Return to graph.png CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / cgi

Diff for /loncom/cgi/graph.png between versions 1.24 and 1.27

version 1.24, 2003/10/09 22:04:37 version 1.27, 2003/10/16 20:03:31
Line 78  Your cookie information is incorrect.  W Line 78  Your cookie information is incorrect.  W
 </body>  </body>
 </html>  </html>
 END  END
     return;      exit;
 }  }
   
 $|=1;   # Autoflush after each print/write  $|=1;   # Autoflush after each print/write
 my $identifier = $ENV{'QUERY_STRING'};  my $identifier = $ENV{'QUERY_STRING'};
 my $Title   = &unescape($ENV{$identifier.'.title'});  my $Title   = &unescape($ENV{'cgi.'.$identifier.'.title'});
 my $xlabel  = &unescape($ENV{$identifier.'.xlabel'});  my $xlabel  = &unescape($ENV{'cgi.'.$identifier.'.xlabel'});
 my $ylabel  = &unescape($ENV{$identifier.'.ylabel'});  my $ylabel  = &unescape($ENV{'cgi.'.$identifier.'.ylabel'});
 my $Max     = $ENV{$identifier.'.Max'};  my $Max     = $ENV{'cgi.'.$identifier.'.Max'};
 my $NumBars = $ENV{$identifier.'.NumBars'};  my $NumBars = $ENV{'cgi.'.$identifier.'.NumBars'};
 my $data1   = $ENV{$identifier.'.data1'};  my $NumSets = $ENV{'cgi.'.$identifier.'.NumSets'};
 my $data2   = $ENV{$identifier.'.data2'};  my @Colors  = split(',',$ENV{'cgi.'.$identifier.'.Colors'});
   
 my @data11=split(/\,/,$data1);  
 my @data12=split(/\,/,$data2);  
 my $skip_x = 1;  
 my $bar_width=10;  
   
 #  #
 # Labels are always digits  # Labels are always digits
Line 102  my @xlabels; Line 97  my @xlabels;
 for (my $nIdx=0; $nIdx<$NumBars; $nIdx++ ) {  for (my $nIdx=0; $nIdx<$NumBars; $nIdx++ ) {
     $xlabels[$nIdx]=$nIdx+1;      $xlabels[$nIdx]=$nIdx+1;
 }  }
   my @data;  # stores the data for the graph
   push(@data,\@xlabels);
   for (my $i=1;$i<=$NumSets;$i++) {
       push(@data,[split(',',$ENV{'cgi.'.$identifier.'.data.'.$i})]);
   }
   
 my @data =(\@xlabels,\@data11,\@data12);  my $skip_x = 1;
   my $bar_width=10;
   
 #  #
 # Customize graph based on the   # Customize graph based on the 
Line 146  if (! $MyGraph->set( x_label         => Line 147  if (! $MyGraph->set( x_label         =>
                      x_label_skip    => $skip_x,                          x_label_skip    => $skip_x,   
                      x_tick_offset   => $x_tick_offset,                       x_tick_offset   => $x_tick_offset,
                      #                       #
                      dclrs           => [ qw(lgreen dgreen lyellow                        dclrs           => \@Colors,
                                              lpurple cyan lorange)],  
                      bar_width       => $bar_width,                       bar_width       => $bar_width,
                      cumulate        => 2,                       cumulate        => 2,
                      zero_axis       => 1,                       zero_axis       => 1,
Removed from v.1.24  
changed lines
  Added in v.1.27

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