version 1.41, 2001/08/07 23:17:36
|
version 1.43, 2001/08/09 15:39:56
|
Line 211 sub start_essayresponse {
|
Line 211 sub start_essayresponse {
|
|
|
sub start_responseparam { |
sub start_responseparam { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
if ($target eq 'grade' || $target eq 'web') { |
my $result=''; |
my $default= &Apache::lonxml::get_param('default',$parstack,$safeeval); |
if ($target eq 'meta') { |
my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval); |
$result = &meta_parameter_write($token->[2]->{'name'}, |
my $entry= 'resource.'.$Apache::inputtags::part; |
$token->[2]->{'type'}, |
if (defined($Apache::inputtags::response[-1])) { |
$token->[2]->{'default'}, |
$entry.='_'.$Apache::inputtags::response[-1]; |
$token->[2]->{'description'}); |
} |
|
$entry.='.'.$name; |
|
&Apache::lonxml::debug("looking for $entry"); |
|
my $value = &Apache::lonnet::EXT("$entry"); |
|
&Apache::lonxml::debug("$name has value :$value: and default :$default:"); |
|
if ($value eq '' || $value eq 'con_lost' || $value =~ /^error:/) { |
|
&Apache::lonxml::debug("defaulting"); |
|
$Apache::inputtags::params{$name}=$default; |
|
} else { |
|
&Apache::lonxml::debug("using value"); |
|
$Apache::inputtags::params{$name}=$value; |
|
} |
|
return ''; |
|
} elsif ($target eq 'meta') { |
|
return &meta_parameter_write($token->[2]->{'name'}, |
|
$token->[2]->{'type'}, |
|
$token->[2]->{'default'}, |
|
$token->[2]->{'description'}); |
|
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
my $result.=&Apache::edit::tag_start($target,$token,&Apache::lonxml::description($token)); |
$result.=&Apache::edit::tag_start($target,$token, |
|
&Apache::lonxml::description($token)); |
$result.=&Apache::edit::text_arg('Name:','name',$token). |
$result.=&Apache::edit::text_arg('Name:','name',$token). |
&Apache::edit::text_arg('Type:','type',$token). |
&Apache::edit::text_arg('Type:','type',$token). |
&Apache::edit::text_arg('Description:','description',$token). |
&Apache::edit::text_arg('Description:','description',$token). |
&Apache::edit::text_arg('Default:','default',$token). |
&Apache::edit::text_arg('Default:','default',$token). |
"</td></tr>"; |
"</td></tr>"; |
$result.=&Apache::edit::end_table; |
$result.=&Apache::edit::end_table; |
return $result; |
|
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
my $result; |
|
my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval, |
my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval, |
'name','type','description', |
'name','type','description', |
'default'); |
'default'); |
Line 253 sub start_responseparam {
|
Line 234 sub start_responseparam {
|
$result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
$result.=&Apache::edit::handle_insert(); |
$result.=&Apache::edit::handle_insert(); |
} |
} |
return $result; |
|
|
|
} else { |
|
return ''; |
|
} |
} |
|
return $result; |
} |
} |
|
|
sub end_responseparam { |
sub end_responseparam { |
Line 266 sub end_responseparam {
|
Line 244 sub end_responseparam {
|
return ''; |
return ''; |
} |
} |
|
|
|
sub setup_params { |
|
my ($tag) = @_; |
|
|
|
@Apache::inputtags::params=(); |
|
my %paramlist=(); |
|
foreach my $key (keys(%Apache::lonnet::packagetab)) { |
|
if ($key =~ /^$tag/) { |
|
my ($package,$name) = split(/&/,$key); |
|
$paramlist{$name}=1; |
|
} |
|
} |
|
foreach my $key (keys(%paramlist)) { |
|
my $entry= 'resource.'.$Apache::inputtags::part; |
|
if (defined($Apache::inputtags::response[-1])) { |
|
$entry.='_'.$Apache::inputtags::response[-1]; |
|
} |
|
$entry.='.'.$key; |
|
&Apache::lonxml::debug("looking for $entry"); |
|
my $value = &Apache::lonnet::EXT("$entry"); |
|
&Apache::lonxml::debug("$key has value :$value:"); |
|
if ($value eq 'con_lost' || $value =~ /^error:/) { |
|
&Apache::lonxml::debug("using nothing"); |
|
$Apache::inputtags::params{$key}=''; |
|
} else { |
|
&Apache::lonxml::debug("using value"); |
|
$Apache::inputtags::params{$key}=$value; |
|
} |
|
} |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |
|
|