version 1.60, 2002/08/07 16:23:05
|
version 1.61, 2002/09/23 07:08:40
|
Line 79 sub start_textfield {
|
Line 79 sub start_textfield {
|
my $resid=$Apache::inputtags::response[-1]; |
my $resid=$Apache::inputtags::response[-1]; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$Apache::lonxml::evaluate--; |
$Apache::lonxml::evaluate--; |
my $partid=$Apache::inputtags::part; |
|
my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$resid.submission"}); |
|
my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval); |
|
if ( $cols eq '') { $cols = 80; } |
|
my $rows = &Apache::lonxml::get_param('rows',$parstack,$safeeval); |
|
if ( $rows eq '') { $rows = 10; } |
|
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
$result= '<textarea name="HWVAL'.$resid.'" '. |
my $partid=$Apache::inputtags::part; |
"rows=\"$rows\" cols=\"$cols\">".$oldresponse; |
my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$resid.submission"}); |
|
my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval); |
|
if ( $cols eq '') { $cols = 80; } |
|
my $rows = &Apache::lonxml::get_param('rows',$parstack,$safeeval); |
|
if ( $rows eq '') { $rows = 10; } |
|
$result= '<textarea name="HWVAL'.$resid.'" '. |
|
"rows=\"$rows\" cols=\"$cols\">".$oldresponse; |
|
if ($oldresponse ne '') { |
|
#get rid of any startup text if the user has already responded |
|
&Apache::lonxml::get_all_text("/textfield",$$parser[-1]); |
|
} |
} else { |
} else { |
$result='<table border="1"><tr><td><i>'.$oldresponse.'</i></td></tr></table>'; |
#right or wrong don't show it |
} |
#$result='<table border="1"><tr><td><i>'.$oldresponse.'</i></td></tr></table>'; |
if ($oldresponse ne '') { |
$result=''; |
#get rid of any startup text if the user has already responded |
#get rid of any startup text |
&Apache::lonxml::get_all_text("/textfield",$$parser[-1]); |
&Apache::lonxml::get_all_text("/textfield",$$parser[-1]); |
} |
} |
} elsif ($target eq 'grade') { |
} elsif ($target eq 'grade') { |
my $seedtext=&Apache::lonxml::get_all_text("/textfield",$$parser[-1]); |
my $seedtext=&Apache::lonxml::get_all_text("/textfield",$$parser[-1]); |
Line 140 sub start_textline {
|
Line 144 sub start_textline {
|
my $result = ""; |
my $result = ""; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$Apache::lonxml::evaluate--; |
$Apache::lonxml::evaluate--; |
my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval); |
|
if ($size eq '') { $size=20; } |
|
my $partid=$Apache::inputtags::part; |
|
my $id=$Apache::inputtags::response[-1]; |
|
my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$id.submission"}); |
|
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
|
my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval); |
|
if ($size eq '') { $size=20; } |
|
my $partid=$Apache::inputtags::part; |
|
my $id=$Apache::inputtags::response[-1]; |
|
my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$id.submission"}); |
$result= '<input type="text" name="HWVAL'.$id.'" value="'. |
$result= '<input type="text" name="HWVAL'.$id.'" value="'. |
$oldresponse.'" size="'.$size.'" />'; |
$oldresponse.'" size="'.$size.'" />'; |
} else { |
} else { |
$result='<i>'.$oldresponse.'</i>'; |
#right or wrong don't show what was last typed in. |
|
#$result='<i>'.$oldresponse.'</i>'; |
|
$result=''; |
} |
} |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result=&Apache::edit::tag_start($target,$token); |
$result=&Apache::edit::tag_start($target,$token); |