Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

- file that will hold common routines for editing a homework

# The LearningOnline Network with CAPA 
# edit mode helpers
# 3/20 Guy
package Apache::edit; 

use strict;
use Apache::lonnet;

sub tag_start {
  my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
  my $result='';

  $result.="<table border=\"1\"><tr><td>&lt;$token->[1]&gt;</td>
<td><input type=\"submit\" name=\"delete_$Apache::lonxml::curdepth\" value=\"Delete\" /></td>
<td><input type=\"submit\" name=\"insert_$Apache::lonxml::curdepth\" value=\"Insert\" /></td>
</tr><tr><td colspan=\"3\">\n";
  return $result;
}

sub tag_end {
  my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
  my $result='';

  $result.="</td></tr><tr><td>&lt;/$token->[1]&gt;</td></tr></table>\n";
  return $result;
}

1;
__END__