[BACK]Return to response.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/response.pm between versions 1.59 and 1.62

version 1.59, 2002/02/14 21:48:31 version 1.62, 2002/05/03 19:32:57
Line 62  sub start_hintresponse { Line 62  sub start_hintresponse {
   my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);    my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
   if ($id eq '') { $id = $Apache::lonxml::curdepth; }    if ($id eq '') { $id = $Apache::lonxml::curdepth; }
   push (@Apache::inputtags::response,$id);    push (@Apache::inputtags::response,$id);
     push (@Apache::inputtags::paramstack,[%Apache::inputtags::params]);
   return $id;    return $id;
 }  }
   
 sub end_hintresponse {  sub end_hintresponse {
   pop @Apache::inputtags::response;    pop @Apache::inputtags::response;
     %Apache::inputtags::params=@{pop(@Apache::inputtags::paramstack)};
   return '';    return '';
 }  }
   
Line 356  sub start_responseparam { Line 358  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();
     }      }
   } elsif ($target eq 'grade' || $target eq 'answer' ) {    } elsif ($target eq 'grade' || $target eq 'answer' ||
      $target eq 'web'   || $target eq 'tex') {
     if ($ENV{'request.state'} eq 'construct') {      if ($ENV{'request.state'} eq 'construct') {
       my $name    = &Apache::lonxml::get_param('name',$parstack,$safeeval);        my $name    = &Apache::lonxml::get_param('name',$parstack,$safeeval);
       my $default = &Apache::lonxml::get_param('default',$parstack,$safeeval);        my $default = &Apache::lonxml::get_param('default',$parstack,$safeeval);
       $Apache::inputtags::params{$name}=$default;        if ($name) {$Apache::inputtags::params{$name}=$default;}
     }      }
   }    }
   return $result;    return $result;
Line 386  sub setup_params { Line 389  sub setup_params {
   my ($tag) = @_;    my ($tag) = @_;
   
   if ($ENV{'request.state'} eq 'construct') { return; }    if ($ENV{'request.state'} eq 'construct') { return; }
   @Apache::inputtags::params=();    %Apache::inputtags::params=();
   my %paramlist=();    my %paramlist=();
   foreach my $key (keys(%Apache::lonnet::packagetab)) {    foreach my $key (keys(%Apache::lonnet::packagetab)) {
     if ($key =~ /^$tag/) {      if ($key =~ /^$tag/) {
Line 448  sub answer_footer { Line 451  sub answer_footer {
   return $result;    return $result;
 }  }
   
   sub showallfoils {
     my $return=0;
     if (defined($ENV{'form.showallfoils'}) &&
         $ENV{'request.state'} eq 'construct') {
       $return=1;
     }
     return $return;
   }
 1;  1;
 __END__  __END__
     
Removed from v.1.59  
changed lines
  Added in v.1.62

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