# 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;
}
sub editfield {
my ($tag,$data,$description)=@_;
my $count=0;
my $maxlength=-1;
map { $count++;
if (length($_) > $maxlength) { $maxlength = length ($_); }
} split ("\n", $data);
if ($maxlength > 80) { $maxlength = 80; }
if ($description) {
$description="<br />".$description;
}
return "$description<br />\n <textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea>\n";
# return "<br />\n<$tag><br />\n <textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea><br />\n</$tag><br />\n";
}
sub modifiedfield {
my ($token) = @_;
foreach my $envkey (sort keys %ENV) {
&Apache::lonxml::debug("$envkey ---- $ENV{$envkey}");
}
&Apache::lonxml::debug("I want homework_edit_$Apache::lonxml::curdepth");
&Apache::lonxml::debug($ENV{"form.homework_edit_$Apache::lonxml::curdepth"});
if (defined $token->[4]) {
return $token->[4].$ENV{"form.homework_edit_$Apache::lonxml::curdepth"};
} else {
return $ENV{"homework_edit_$Apache::lonxml::curdepth"}.$token->[2];
}
}
1;
__END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>