--- loncom/homework/inputtags.pm 2000/10/02 22:23:39 1.5
+++ loncom/homework/inputtags.pm 2000/10/11 21:01:25 1.6
@@ -5,25 +5,45 @@ package Apache::inputtags;
use strict;
sub BEGIN {
- &Apache::lonxml::register('Apache::inputtags',('textline','answergroup'));
+ &Apache::lonxml::register('Apache::inputtags',('textarea','textline','answergroup','datasubmission'));
}
sub initialize_inputtags {
$Apache::inputtags::curvalue=0;
}
+sub start_textarea {
+ my ($target,$token,$parstack,$parser,$safeeval)=@_;
+ my $result = "";
+ $Apache::inputtags::curvalue++;
+ if ($target eq 'web') {
+ $result= '";
+}
+
sub start_textline {
my ($target,$token,$parstack,$parser,$safeeval)=@_;
my $result = "";
$Apache::inputtags::curvalue++;
+ my $args ='';
+ if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
+ my $size = &Apache::run::run("{$args;".'return $size}',$safeeval);
+ if ($size eq '') { $size=20; }
if ($target eq 'web') {
- $result= '';
+ $result= '';
}
return $result;
}
sub end_textline {
my ($target,$token,$parstack,$parser,$safeeval)=@_;
+ return "";
}
sub start_answergroup {
@@ -36,6 +56,17 @@ sub end_answergroup {
}
}
+
+sub start_datasubmission {
+}
+
+sub end_datasubmission {
+ my ($target,$token,$parstack,$parser,$safeeval)=@_;
+ if ( $target == 'web' ) {
+ return '';
+ }
+}
+
1;
__END__