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

Diff for /loncom/xml/lonplot.pm between versions 1.25 and 1.26

version 1.25, 2001/12/28 21:56:16 version 1.26, 2001/12/31 16:19:55
Line 288  sub start_plot { Line 288  sub start_plot {
     ($token,$parstack,$safeeval,keys(%plot_defaults));      ($token,$parstack,$safeeval,keys(%plot_defaults));
  if ($constructtag) {   if ($constructtag) {
     $result = &Apache::edit::rebuild_tag($token);      $result = &Apache::edit::rebuild_tag($token);
     $result.= &Apache::edit::handle_insert();  #    $result.= &Apache::edit::handle_insert();
  }   }
     }      }
     return $result;      return $result;
Line 496  sub start_curve { Line 496  sub start_curve {
     $tagstack->[-1]);      $tagstack->[-1]);
  push (@curves,\%curve);   push (@curves,\%curve);
     } elsif ($target eq 'edit') {      } elsif ($target eq 'edit') {
  $result .= &Apache::edit::tag_start($target,$token,'Plot Curve');   $result .= &Apache::edit::tag_start($target,$token,'Curve');
  $result .= &edit_attributes($target,$token,\%curve_defaults);   $result .= &edit_attributes($target,$token,\%curve_defaults);
     } elsif ($target eq 'modified') {      } elsif ($target eq 'modified') {
  my $constructtag=&Apache::edit::get_new_args   my $constructtag=&Apache::edit::get_new_args
Line 536  sub start_function { Line 536  sub start_function {
  $result .= &Apache::edit::tag_start($target,$token,'Curve Function');   $result .= &Apache::edit::tag_start($target,$token,'Curve Function');
  my $text = &Apache::lonxml::get_all_text("/function",$$parser[-1]);   my $text = &Apache::lonxml::get_all_text("/function",$$parser[-1]);
  $result .= '</td></tr><tr><td colspan="3">'.   $result .= '</td></tr><tr><td colspan="3">'.
     &Apache::edit::editfield('',$text,'',20,1).      &Apache::edit::editfield('',$text,'',20,1);
     &Apache::edit::end_table();  
   
     } elsif ($target eq 'modified') {      } elsif ($target eq 'modified') {
  # Why do I do this?   # Why do I do this?
  my $text=$$parser[-1]->get_text("/function");   my $text=$$parser[-1]->get_text("/function");
Line 552  sub end_function { Line 550  sub end_function {
     my $result = '';      my $result = '';
     if ($target eq 'web') {      if ($target eq 'web') {
     } elsif ($target eq 'edit') {      } elsif ($target eq 'edit') {
    $result .= &Apache::edit::end_table();
     }      }
     return $result;      return $result;
 }  }
Line 599  sub start_data { Line 598  sub start_data {
  $result .= &Apache::edit::tag_start($target,$token,'Curve Data');   $result .= &Apache::edit::tag_start($target,$token,'Curve Data');
  my $text = &Apache::lonxml::get_all_text("/data",$$parser[-1]);   my $text = &Apache::lonxml::get_all_text("/data",$$parser[-1]);
  $result .= '</td></tr><tr><td colspan="3">'.   $result .= '</td></tr><tr><td colspan="3">'.
     &Apache::edit::editfield('',$text,'',20,1).      &Apache::edit::editfield('',$text,'',20,1);
     &Apache::edit::end_table();  
     } elsif ($target eq 'modified') {      } elsif ($target eq 'modified') {
  my $text=$$parser[-1]->get_text("/data");   my $text=$$parser[-1]->get_text("/data");
  $result.=&Apache::edit::modifiedfield($token);   $result.=&Apache::edit::modifiedfield($token);
Line 613  sub end_data { Line 611  sub end_data {
     my $result = '';      my $result = '';
     if ($target eq 'web') {      if ($target eq 'web') {
     } elsif ($target eq 'edit') {      } elsif ($target eq 'edit') {
    $result .= &Apache::edit::end_table();
     }      }
     return $result;      return $result;
 }  }
Removed from v.1.25  
changed lines
  Added in v.1.26

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