version 1.59, 2002/08/01 15:18:58
|
version 1.60, 2002/08/07 16:23:05
|
Line 95 sub start_textfield {
|
Line 95 sub start_textfield {
|
#get rid of any startup text if the user has already responded |
#get rid of any startup text if the user has already responded |
&Apache::lonxml::get_all_text("/textfield",$$parser[-1]); |
&Apache::lonxml::get_all_text("/textfield",$$parser[-1]); |
} |
} |
} |
} elsif ($target eq 'grade') { |
if ($target eq 'grade') { |
|
my $seedtext=&Apache::lonxml::get_all_text("/textfield",$$parser[-1]); |
my $seedtext=&Apache::lonxml::get_all_text("/textfield",$$parser[-1]); |
if ($seedtext eq $ENV{'form.HWVAL'.$resid}) { |
if ($seedtext eq $ENV{'form.HWVAL'.$resid}) { |
# if the seed text is still there it wasn't a real submission |
# if the seed text is still there it wasn't a real submission |
$ENV{'form.HWVAL'.$resid}=''; |
$ENV{'form.HWVAL'.$resid}=''; |
} |
} |
|
} elsif ($target eq 'edit') { |
|
$result.=&Apache::edit::tag_start($target,$token); |
|
$result.=&Apache::edit::text_arg('Rows:','rows',$token,4); |
|
$result.=&Apache::edit::text_arg('Columns:','cols',$token,4); |
|
my $bodytext=&Apache::lonxml::get_all_text("/textfield",$$parser[-1]); |
|
$result.=&Apache::edit::editfield($token->[1],$bodytext,'Text you want to appear by default:',50,2); |
|
} elsif ($target eq 'modified') { |
|
my $constructtag=&Apache::edit::get_new_args($token,$parstack, |
|
$safeeval,'rows','cols'); |
|
if ($constructtag) { |
|
$result = &Apache::edit::rebuild_tag($token); |
|
} else { |
|
$result=$token->[4]; |
|
} |
|
$result.=&Apache::edit::modifiedfield(); |
} |
} |
return $result; |
return $result; |
} |
} |
|
|
sub end_textfield { |
sub end_textfield { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
|
my $result; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$Apache::lonxml::evaluate++; |
$Apache::lonxml::evaluate++; |
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
return "</textarea>"; |
return "</textarea>"; |
} |
} |
|
} elsif ($target eq 'edit') { |
|
$result=&Apache::edit::end_table(); |
} |
} |
&end_input; |
&end_input; |
return ''; |
return $result; |
} |
} |
|
|
sub start_textline { |
sub start_textline { |