version 1.19, 2001/10/05 17:01:05
|
version 1.20, 2001/10/09 20:45:13
|
Line 14 sub start_hintgroup {
|
Line 14 sub start_hintgroup {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $skiptoend='0'; |
my $skiptoend='0'; |
my $result; |
my $result; |
|
|
if ($target eq 'web') { |
if ($target eq 'web') { |
my $id=$Apache::inputtags::part; |
my $id=$Apache::inputtags::part; |
my $numtries=$Apache::lonhomework::history{"resource.$id.tries"}; |
my $numtries=$Apache::lonhomework::history{"resource.$id.tries"}; |
Line 27 sub start_hintgroup {
|
Line 27 sub start_hintgroup {
|
} else { |
} else { |
if ($target eq 'web') {$result='<table bgcolor="#dddddd"><tr><td>';} |
if ($target eq 'web') {$result='<table bgcolor="#dddddd"><tr><td>';} |
} |
} |
} |
if ($skiptoend) { |
if ($skiptoend) { |
&Apache::lonxml::get_all_text("/hintgroup",$$parser[$#$parser]); |
&Apache::lonxml::get_all_text("/hintgroup",$$parser[$#$parser]); |
} |
} |
} |
@Apache::hint::which=(); |
@Apache::hint::which=(); |
return $result; |
return $result; |
Line 38 sub start_hintgroup {
|
Line 38 sub start_hintgroup {
|
sub end_hintgroup { |
sub end_hintgroup { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result; |
my $result; |
|
|
if ($target eq 'web') { |
if ($target eq 'web') { |
my $id=$Apache::inputtags::part; |
my $id=$Apache::inputtags::part; |
my $numtries=$Apache::lonhomework::history{"resource.$id.tries"}; |
my $numtries=$Apache::lonhomework::history{"resource.$id.tries"}; |
Line 49 sub end_hintgroup {
|
Line 49 sub end_hintgroup {
|
if ( $numtries >= $hinttries ) { |
if ( $numtries >= $hinttries ) { |
$result='</td></tr></table>'; |
$result='</td></tr></table>'; |
} |
} |
|
} elsif ($target eq 'edit') { |
|
$result.=&Apache::edit::end_table(); |
} |
} |
@Apache::hint::which=(); |
@Apache::hint::which=(); |
return $result; |
return $result; |
Line 58 sub start_numericalhint {
|
Line 60 sub start_numericalhint {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
#do everything in end, so intervening <responseparams> work |
#do everything in end, so intervening <responseparams> work |
&Apache::response::start_hintresponse($parstack,$safeeval); |
&Apache::response::start_hintresponse($parstack,$safeeval); |
return ''; |
my $result; |
|
if ($target eq 'edit') { |
|
$result.=&Apache::edit::tag_start($target,$token); |
|
$result.=&Apache::edit::text_arg('Name:','name',$token); |
|
$result.=&Apache::edit::text_arg('Answer:','answer',$token); |
|
$result.=&Apache::edit::text_arg('Unit:','unit',$token,5); |
|
$result.=&Apache::edit::text_arg('Format:','format',$token,4); |
|
$result.='</td></tr><tr><td colspan="3">'; |
|
} elsif ($target eq 'modified') { |
|
my $constructtag= |
|
&Apache::edit::get_new_args($token,$parstack,$safeeval, |
|
'name','answer','unit', 'format'); |
|
if ($constructtag) { |
|
$result = &Apache::edit::rebuild_tag($token); |
|
$result .= &Apache::edit::handle_insert(); |
|
} |
|
} |
|
return $result; |
} |
} |
|
|
sub end_numericalhint { |
sub end_numericalhint { |
Line 92 sub end_numericalhint {
|
Line 111 sub end_numericalhint {
|
$result=''; |
$result=''; |
} elsif ($target eq 'meta') { |
} elsif ($target eq 'meta') { |
$result=&Apache::response::meta_package_write('numericalhint'); |
$result=&Apache::response::meta_package_write('numericalhint'); |
|
} elsif ($target eq 'edit') { |
|
$result.='</td></tr>'.&Apache::edit::end_table; |
} |
} |
&Apache::response::end_hintresponse(); |
&Apache::response::end_hintresponse(); |
return $result; |
return $result; |
Line 102 sub start_hintpart {
|
Line 123 sub start_hintpart {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
|
|
my $show ='0'; |
my $show ='0'; |
|
my $result = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
my $on= &Apache::lonxml::get_param('on',$parstack,$safeeval); |
my $on= &Apache::lonxml::get_param('on',$parstack,$safeeval); |
&Apache::lonxml::debug("hintpart sees $on and ,$#Apache::hint::which"); |
&Apache::lonxml::debug("hintpart sees $on and ,$#Apache::hint::which"); |
Line 117 sub start_hintpart {
|
Line 138 sub start_hintpart {
|
} |
} |
} elsif ($target eq 'grade') { |
} elsif ($target eq 'grade') { |
&Apache::lonxml::get_all_text("/hintpart",$$parser[$#$parser]); |
&Apache::lonxml::get_all_text("/hintpart",$$parser[$#$parser]); |
|
} elsif ($target eq 'edit') { |
|
$result.= &Apache::edit::tag_start($target,$token, |
|
&Apache::lonxml::description($token)); |
|
$result.= &Apache::edit::text_arg('On:','on',$token).'</td></tr><tr><td colspan="3">'; |
|
} elsif ($target eq 'modified') { |
|
my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval, |
|
'on'); |
|
if ($constructtag) { |
|
$result = &Apache::edit::rebuild_tag($token); |
|
$result.=&Apache::edit::handle_insert(); |
|
} |
} |
} |
return ''; |
return $result; |
} |
} |
|
|
sub end_hintpart { |
sub end_hintpart { |
return ''; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
|
my $result; |
|
if ($target eq 'edit') { $result.=&Apache::edit::end_table; } |
|
return $result; |
} |
} |
|
|
1; |
1; |