loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.1, 2001/03/22 21:21:29
+version 1.2, 2001/04/05 00:07:34
  Line 25  sub tag_end {
    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&nbsp;&nbsp;&nbsp;<textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea>\n";
+ #  return "<br />\n&lt;$tag&gt;<br />\n&nbsp;&nbsp;&nbsp;<textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea><br />\n&lt;/$tag&gt;<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];
+   }
+ }
 ;
  __END__