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

Diff for /loncom/interface/loncommon.pm between versions 1.128 and 1.135

version 1.128, 2003/10/13 22:35:05 version 1.135, 2003/10/24 21:09:24
Line 274  of the element the selection from the se Line 274  of the element the selection from the se
 sub browser_and_searcher_javascript {  sub browser_and_searcher_javascript {
     return <<END;      return <<END;
     var editbrowser = null;      var editbrowser = null;
     function openbrowser(formname,elementname,only,omit) {      function openbrowser(formname,elementname,only,omit,titleelement) {
         var url = '/res/?';          var url = '/res/?';
         if (editbrowser == null) {          if (editbrowser == null) {
             url += 'launch=1&';              url += 'launch=1&';
Line 288  sub browser_and_searcher_javascript { Line 288  sub browser_and_searcher_javascript {
         if (omit != null) {          if (omit != null) {
             url += 'omit=' + omit + '&';              url += 'omit=' + omit + '&';
         }          }
           if (titleelement != null) {
               url += 'titleelement=' + titleelement + '&';
           }
         url += 'element=' + elementname + '';          url += 'element=' + elementname + '';
         var title = 'Browser';          var title = 'Browser';
         var options = 'scrollbars=1,resizable=1,menubar=0';          var options = 'scrollbars=1,resizable=1,menubar=0';
Line 296  sub browser_and_searcher_javascript { Line 299  sub browser_and_searcher_javascript {
         editbrowser.focus();          editbrowser.focus();
     }      }
     var editsearcher;      var editsearcher;
     function opensearcher(formname,elementname) {      function opensearcher(formname,elementname,titleelement) {
         var url = '/adm/searchcat?';          var url = '/adm/searchcat?';
         if (editsearcher == null) {          if (editsearcher == null) {
             url += 'launch=1&';              url += 'launch=1&';
Line 304  sub browser_and_searcher_javascript { Line 307  sub browser_and_searcher_javascript {
         url += 'catalogmode=interactive&';          url += 'catalogmode=interactive&';
         url += 'mode=edit&';          url += 'mode=edit&';
         url += 'form=' + formname + '&';          url += 'form=' + formname + '&';
           if (titleelement != null) {
               url += 'titleelement=' + titleelement + '&';
           }
         url += 'element=' + elementname + '';          url += 'element=' + elementname + '';
         var title = 'Search';          var title = 'Search';
         var options = 'scrollbars=1,resizable=1,menubar=0';          var options = 'scrollbars=1,resizable=1,menubar=0';
Line 2663  $uname, optional the username of the use Line 2669  $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 2677  sub check_if_partid_hidden { Line 2683  sub check_if_partid_hidden {
   
 =pod  =pod
   
 =item DrawGraph  =item DrawBarGraph
   
 Returns a link to cgi-bin/graph  
   
 =cut  =cut
   
 ############################################################  ############################################################
 ############################################################  ############################################################
 sub DrawGraph {  sub DrawBarGraph {
     my ($Title,$xlabel,$ylabel,$Max,$values1,$values2)=@_;      my ($Title,$xlabel,$ylabel,$Max,$colors,@Values)=@_;
       #
       if (! defined($colors)) {
           $colors = ['#33ff00', 
                     '#0033cc', '#990000', '#aaaa66', '#663399', '#ff9933',
                     '#66ccff', '#ff9999', '#cccc33', '#660000', '#33cc66',
                     ]; 
       }
     #      #
     my $identifier = time.'_'.int(rand(1000));      my $identifier = time.'_'.int(rand(1000));
     if (! defined($values1) || ref($values1) ne 'ARRAY') {      if (! @Values || ref($Values[0]) ne 'ARRAY') {
         return '';          return '';
     }      }
       my $NumBars = scalar(@{$Values[0]});
       my %ValuesHash;
       my $NumSets=1;
       foreach my $array (@Values) {
           next if (! ref($array));
           $ValuesHash{'cgi.'.$identifier.'.data.'.$NumSets++} = 
               join(',',@$array);
       }
     #      #
     $Title  = '' if (! defined($Title));      $Title  = '' if (! defined($Title));
     $xlabel = '' if (! defined($xlabel));      $xlabel = '' if (! defined($xlabel));
Line 2700  sub DrawGraph { Line 2720  sub DrawGraph {
     $xlabel = &Apache::lonnet::escape($xlabel);      $xlabel = &Apache::lonnet::escape($xlabel);
     $ylabel = &Apache::lonnet::escape($ylabel);      $ylabel = &Apache::lonnet::escape($ylabel);
     #      #
     my $data1 = join(',', @$values1);  
     my $data2;  
     if (defined($values2)) {  
         $data2 = join(',', @$values2);  
     }  
     #  
     my $NumBars = scalar(@$values1);  
     $Max = 1 if ($Max < 1);      $Max = 1 if ($Max < 1);
     if ( int($Max) < $Max ) {      if ( int($Max) < $Max ) {
         $Max++;          $Max++;
         $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.'.data1'   => $data1,                              'cgi.'.$identifier.'.NumSets' => $NumSets,
                             $identifier.'.data2'   => $data2);                              'cgi.'.$identifier.'.Colors'  => join(',',@{$colors}),
     return '<IMG src="/cgi-bin/graph.png?'.$identifier.'" border="1" />';                              %ValuesHash);
       return '<img src="/cgi-bin/graph.png?'.$identifier.'" border="1" />';
 }  }
   
 ############################################################  ############################################################
Removed from v.1.128  
changed lines
  Added in v.1.135

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