# 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.="
<$token->[1]>
\n"; return $result; } sub tag_end { my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; my $result=''; $result.="
</$token->[1]>
\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="
".$description; } return "$description
\n   \n"; # return "
\n<$tag>
\n   
\n</$tag>
\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__