--- loncom/homework/inputtags.pm 2000/09/19 18:04:47 1.3
+++ loncom/homework/inputtags.pm 2000/11/28 19:15:48 1.8
@@ -5,34 +5,93 @@ 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;
+ @Apache::inputtags::input=();
+ @Apache::inputtags::response=();
+ @Apache::inputtags::answergroup=();
+ $Apache::inputtags::part='';
+ %Apache::inputtags::params=();
+}
+
+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 {
+ my ($target,$token,$parstack,$parser,$safeeval)=@_;
+ my $args ='';
+ if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
+ my $id = &Apache::run::run("{$args;".'return $id}',$safeeval);
+ push (@Apache::inputtags::answergroup,$id);
+ if ($target == 'web') {
+
+ }
+ return '';
}
sub end_answergroup {
my ($target,$token,$parstack,$parser,$safeeval)=@_;
+ my $args ='';
+ if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
+ my $id = &Apache::run::run("{$args;".'return $id}',$safeeval);
+ push (@Apache::inputtags::answergroup,$id);
+ my $result='';
+ my $button='';
+ my $showbutton='1';
+ my $usedtry='1';
+ my $response='';
+ if ( $target == 'web' ) {
+ if ( defined $ENV{'form.submit'}) {
+ }
+ if ($showbutton > 0) { $result.=$button }
+ }
+ pop @Apache::inputtags::answergroup;
+ return $result;
+}
+
+
+sub start_datasubmission {
+}
+
+sub end_datasubmission {
+ my ($target,$token,$parstack,$parser,$safeeval)=@_;
if ( $target == 'web' ) {
- return '';
+ return '';
}
}