Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

Annotation of loncom/homework/response.pm, revision 1.6

1.1       albertel    1: # The LearningOnline Network with CAPA
                      2: # various response type definitons response definition
                      3: 
1.6     ! www         4: # 11/23,11/24 Gerd Kortemeyer
1.5       www         5: 
1.1       albertel    6: package Apache::response;
                      7: use strict;
                      8: 
                      9: sub BEGIN {
1.3       albertel   10:   &Apache::lonxml::register('Apache::response',('responseparam','caparesponse'));
1.1       albertel   11: }
                     12: 
                     13: sub start_caparesponse {
                     14:   require Apache::caparesponse; 
                     15:   import Apache::caparesponse; 
                     16:   my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
1.2       albertel   17: #  print "\n<br>\nsimple caparesponse\n";
1.1       albertel   18:   Apache::caparesponse::start_caparesponse($target,$token,$parstack,$parser,$safeeval,$style);;
1.2       albertel   19:   return "";
1.3       albertel   20: }
                     21: 
                     22: sub start_responseparam {
                     23:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
1.5       www        24:  if ($target ne 'meta') {
1.3       albertel   25:   my $args='';
                     26:   if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
                     27:   my $default = &Apache::run::run("{$args;".'return $default}',$safeeval);
1.4       albertel   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:");
1.3       albertel   32:   if (!$value) {
1.4       albertel   33:     $Apache::inputtags::params{$name}=$default;
1.3       albertel   34:   } else {
1.4       albertel   35:     $Apache::inputtags::params{$name}=$value;
1.3       albertel   36:   }
                     37:   return '';
1.5       www        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:     }
1.6     ! www        45:     return "\n<".$tag.$display.'>'.$token->[2]->{'type'}.':'.
        !            46:                $token->[2]->{'default'}.'</'.$tag.'>';
1.5       www        47: }
1.3       albertel   48: }
                     49: 
                     50: sub end_responseparam {
1.1       albertel   51: }
1.2       albertel   52: 
1.1       albertel   53: 1;
                     54: __END__
                     55: