1: # The LearningOnline Network with CAPA
2: # various response type definitons response definition
3:
4: # 11/23,11/24 Gerd Kortemeyer
5:
6: package Apache::response;
7: use strict;
8:
9: sub BEGIN {
10: &Apache::lonxml::register('Apache::response',('responseparam','caparesponse'));
11: }
12:
13: sub start_caparesponse {
14: require Apache::caparesponse;
15: import Apache::caparesponse;
16: my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
17: # print "\n<br>\nsimple caparesponse\n";
18: Apache::caparesponse::start_caparesponse($target,$token,$parstack,$parser,$safeeval,$style);;
19: return "";
20: }
21:
22: sub start_responseparam {
23: my ($target,$token,$parstack,$parser,$safeeval)=@_;
24: if ($target ne 'meta') {
25: my $args='';
26: if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
27: my $default = &Apache::run::run("{$args;".'return $default}',$safeeval);
28: my $name = &Apache::run::run("{$args;".'return $name}',$safeeval);
29: &Apache::lonxml::debug("looking for resource.$Apache::inputtags::part['-1'].$name");
30: my $value = &Apache::lonnet::EXT("resource.$Apache::inputtags::part['-1'].$name");
31: &Apache::lonxml::debug("$name has value :$value: and default :$default:");
32: if (!$value) {
33: $Apache::inputtags::params{$name}=$default;
34: } else {
35: $Apache::inputtags::params{$name}=$value;
36: }
37: return '';
38: } else {
39: my $tag='parameter_'.$Apache::inputtags::part['-1'].'_'.
40: $token->[2]->{'name'};
41: my $display='';
42: if ($token->[2]->{'description'}) {
43: $display=' display="'.$token->[2]->{'description'}.'"';
44: }
45: return "\n<".$tag.$display.'>'.$token->[2]->{'type'}.':'.
46: $token->[2]->{'default'}.'</'.$tag.'>';
47: }
48: }
49:
50: sub end_responseparam {
51: }
52:
53: 1;
54: __END__
55:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>