version 1.34, 2001/06/01 15:52:50
|
version 1.35, 2001/06/02 03:59:59
|
Line 42 sub end_input {
|
Line 42 sub end_input {
|
} |
} |
|
|
sub start_textarea { |
sub start_textarea { |
my ($target,$token,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my $result = ""; |
my $result = ""; |
my $id = &start_input($parstack,$safeeval); |
my $id = &start_input($parstack,$safeeval); |
if ($target eq 'web') { |
if ($target eq 'web') { |
Line 62 sub start_textarea {
|
Line 62 sub start_textarea {
|
} |
} |
|
|
sub end_textarea { |
sub end_textarea { |
my ($target,$token,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
if ($target eq 'web') { |
if ($target eq 'web') { |
return "</textarea>"; |
return "</textarea>"; |
} |
} |
Line 71 sub end_textarea {
|
Line 71 sub end_textarea {
|
} |
} |
|
|
sub start_textline { |
sub start_textline { |
my ($target,$token,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my $result = ""; |
my $result = ""; |
if ($target eq 'web') { |
if ($target eq 'web') { |
my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval); |
my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval); |
Line 83 sub start_textline {
|
Line 83 sub start_textline {
|
} |
} |
|
|
sub end_textline { |
sub end_textline { |
my ($target,$token,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
return ""; |
return ""; |
} |
} |
|
|
Line 92 sub start_datasubmission {
|
Line 92 sub start_datasubmission {
|
} |
} |
|
|
sub end_datasubmission { |
sub end_datasubmission { |
my ($target,$token,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
if ( $target == 'web' ) { |
if ( $target == 'web' ) { |
return '<input type="submit" name="submit" value="Submit All Data" />'; |
return '<input type="submit" name="submit" value="Submit All Data" />'; |
} |
} |