[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.130 and 1.133

version 1.130, 2003/10/16 19:59:00 version 1.133, 2003/10/23 21:01:54
Line 2663  $uname, optional the username of the use Line 2663  $uname, optional the username of the use
   
 sub check_if_partid_hidden {  sub check_if_partid_hidden {
     my ($id,$symb,$udom,$uname) = @_;      my ($id,$symb,$udom,$uname) = @_;
     my $hiddenparts=&Apache::lonnet::EXT('resource.0.parameter_hiddenparts',      my $hiddenparts=&Apache::lonnet::EXT('resource.0.hiddenparts',
  $symb,$udom,$uname);   $symb,$udom,$uname);
     my @hiddenlist=split(/,/,$hiddenparts);      my @hiddenlist=split(/,/,$hiddenparts);
     foreach my $checkid (@hiddenlist) {      foreach my $checkid (@hiddenlist) {
Line 2697  sub DrawGraph { Line 2697  sub DrawGraph {
     my $NumSets=1;      my $NumSets=1;
     foreach my $array (@Values) {      foreach my $array (@Values) {
         next if (! ref($array));          next if (! ref($array));
         $ValuesHash{$identifier.'.data.'.$NumSets++} = join(',',@$array);          $ValuesHash{'cgi.'.$identifier.'.data.'.$NumSets++} = 
               join(',',@$array);
     }      }
     #      #
     $Title  = '' if (! defined($Title));      $Title  = '' if (! defined($Title));
Line 2713  sub DrawGraph { Line 2714  sub DrawGraph {
         $Max = int($Max);          $Max = int($Max);
     }      }
     #      #
     &Apache::lonnet::appenv($identifier.'.title'   => $Title,      &Apache::lonnet::appenv('cgi.'.$identifier.'.title'   => $Title,
                             $identifier.'.xlabel'  => $xlabel,                              'cgi.'.$identifier.'.xlabel'  => $xlabel,
                             $identifier.'.ylabel'  => $ylabel,                              'cgi.'.$identifier.'.ylabel'  => $ylabel,
                             $identifier.'.Max'     => $Max,                              'cgi.'.$identifier.'.Max'     => $Max,
                             $identifier.'.NumBars' => $NumBars,                              'cgi.'.$identifier.'.NumBars' => $NumBars,
                             $identifier.'.NumSets' => $NumSets,                              'cgi.'.$identifier.'.NumSets' => $NumSets,
                             $identifier.'.Colors'  => join(',',@{$colors}),                              'cgi.'.$identifier.'.Colors'  => join(',',@{$colors}),
                             %ValuesHash);                              %ValuesHash);
     return '<img src="/cgi-bin/graph.png?'.$identifier.'" border="1" />';      return '<img src="/cgi-bin/graph.png?'.$identifier.'" border="1" />';
 }  }
Removed from v.1.130  
changed lines
  Added in v.1.133

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