# 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><$token->[1]></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></$token->[1]></td></tr></table>\n";
return $result;
}
1;
__END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>