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

Diff for /loncom/xml/lonplot.pm between versions 1.31 and 1.32

version 1.31, 2002/01/03 22:09:49 version 1.32, 2002/01/04 14:30:08
Line 72  sub BEGIN { Line 72  sub BEGIN {
 ##                                                               ##  ##                                                               ##
 ###################################################################  ###################################################################
   
   my $max_str_len = 50;    # if a label, title, xlabel, or ylabel text
                            # is longer than this, it will be truncated.
   
 my %linestyles =   my %linestyles = 
     (      (
      lines          => 2,     # Maybe this will be used in the future       lines          => 2,     # Maybe this will be used in the future
Line 382  sub start_title { Line 385  sub start_title {
     my $result='';      my $result='';
     if ($target eq 'web') {      if ($target eq 'web') {
  $title = &Apache::lonxml::get_all_text("/title",$$parser[-1]);   $title = &Apache::lonxml::get_all_text("/title",$$parser[-1]);
    if (length($title) > $max_str_len) {
       $title = substr($title,0,$max_str_len);
    }
     } elsif ($target eq 'edit') {      } elsif ($target eq 'edit') {
  $result.=&Apache::edit::tag_start($target,$token,'Plot Title');   $result.=&Apache::edit::tag_start($target,$token,'Plot Title');
  my $text=&Apache::lonxml::get_all_text("/title",$$parser[-1]);   my $text=&Apache::lonxml::get_all_text("/title",$$parser[-1]);
Line 409  sub start_xlabel { Line 415  sub start_xlabel {
     my $result='';      my $result='';
     if ($target eq 'web') {      if ($target eq 'web') {
  $xlabel = &Apache::lonxml::get_all_text("/xlabel",$$parser[-1]);   $xlabel = &Apache::lonxml::get_all_text("/xlabel",$$parser[-1]);
    if (length($xlabel) > $max_str_len) {
       $xlabel = substr($xlabel,0,$max_str_len);
    }
     } elsif ($target eq 'edit') {      } elsif ($target eq 'edit') {
  $result.=&Apache::edit::tag_start($target,$token,'Plot Xlabel');   $result.=&Apache::edit::tag_start($target,$token,'Plot Xlabel');
  my $text=&Apache::lonxml::get_all_text("/xlabel",$$parser[-1]);   my $text=&Apache::lonxml::get_all_text("/xlabel",$$parser[-1]);
Line 437  sub start_ylabel { Line 446  sub start_ylabel {
     my $result='';      my $result='';
     if ($target eq 'web') {      if ($target eq 'web') {
  $ylabel = &Apache::lonxml::get_all_text("/ylabel",$$parser[-1]);   $ylabel = &Apache::lonxml::get_all_text("/ylabel",$$parser[-1]);
    if (length($ylabel) > $max_str_len) {
       $ylabel = substr($ylabel,0,$max_str_len);
    }
     } elsif ($target eq 'edit') {      } elsif ($target eq 'edit') {
  $result .= &Apache::edit::tag_start($target,$token,'Plot Ylabel');   $result .= &Apache::edit::tag_start($target,$token,'Plot Ylabel');
  my $text = &Apache::lonxml::get_all_text("/ylabel",$$parser[-1]);   my $text = &Apache::lonxml::get_all_text("/ylabel",$$parser[-1]);
Line 467  sub start_label { Line 479  sub start_label {
  my %label;   my %label;
  &get_attributes(\%label,\%label_defaults,$parstack,$safeeval,   &get_attributes(\%label,\%label_defaults,$parstack,$safeeval,
     $tagstack->[-1]);      $tagstack->[-1]);
  $label{'text'} = &Apache::lonxml::get_all_text("/label",$$parser[-1]);   my $text = &Apache::lonxml::get_all_text("/label",$$parser[-1]);
  $label{'text'} =~ s/[\-\:\`\'\"\,\.]//g;   $text = substr($text,0,$max_str_len) if (length($text) > $max_str_len);
  if (! &$words_test($label{'text'})) {   $label{'text'} = $text;
     # I should probably warn about it, too.  
     $label{'text'} = 'Illegal text';  
  }  
  push(@labels,\%label);   push(@labels,\%label);
     } elsif ($target eq 'edit') {      } elsif ($target eq 'edit') {
  $result .= &Apache::edit::tag_start($target,$token,'Plot Label');   $result .= &Apache::edit::tag_start($target,$token,'Plot Label');
Removed from v.1.31  
changed lines
  Added in v.1.32

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