Diff for /loncom/homework/response.pm between versions 1.7 and 1.8

version 1.7, 2000/11/28 18:56:47 version 1.8, 2000/11/28 19:10:32
Line 30  sub meta_stores_write { Line 30  sub meta_stores_write {
 }  }
   
 sub mandatory_part_meta {  sub mandatory_part_meta {
     my $partid=shift;    my $partid=shift;
 #  #
 # Autogenerate metadata for mandatory  # Autogenerate metadata for mandatory
 # input (from RAT or lonparmset) and   # input (from RAT or lonparmset) and 
Line 72  sub start_caparesponse { Line 72  sub start_caparesponse {
   
 sub start_responseparam {  sub start_responseparam {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$parstack,$parser,$safeeval)=@_;
  if ($target ne 'meta') {    if ($target ne 'meta') {
   my $args='';      my $args='';
   if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }      if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
   my $default = &Apache::run::run("{$args;".'return $default}',$safeeval);      my $default = &Apache::run::run("{$args;".'return $default}',$safeeval);
   my $name = &Apache::run::run("{$args;".'return $name}',$safeeval);      my $name = &Apache::run::run("{$args;".'return $name}',$safeeval);
   &Apache::lonxml::debug("looking for resource.$Apache::inputtags::part['-1'].$name");      &Apache::lonxml::debug("looking for resource.$Apache::inputtags::part['-1'].$name");
   my $value = &Apache::lonnet::EXT("resource.$Apache::inputtags::part['-1'].$name");      my $value = &Apache::lonnet::EXT("resource.$Apache::inputtags::part['-1'].$name");
   &Apache::lonxml::debug("$name has value :$value: and default :$default:");      &Apache::lonxml::debug("$name has value :$value: and default :$default:");
   if (!$value) {      if (!$value) {
     $Apache::inputtags::params{$name}=$default;        $Apache::inputtags::params{$name}=$default;
       } else {
         $Apache::inputtags::params{$name}=$value;
       }
       return '';
   } else {    } else {
     $Apache::inputtags::params{$name}=$value;  
   }  
   return '';  
 } else {  
     return &meta_parameter_write(      return &meta_parameter_write(
       $Apache::inputtags::part['-1'],   $Apache::inputtags::part['-1'],
  $token->[2]->{'name'},   $token->[2]->{'name'},
         $token->[2]->{'type'},   $token->[2]->{'type'},
  $token->[2]->{'default'},   $token->[2]->{'default'},
         $token->[2]->{'description'});   $token->[2]->{'description'});
 }    }
 }  }
   
 sub end_responseparam {  sub end_responseparam {

Removed from v.1.7  
changed lines
  Added in v.1.8


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>