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

Diff for /loncom/homework/radiobuttonresponse.pm between versions 1.22 and 1.25

version 1.22, 2001/08/06 20:33:23 version 1.25, 2001/08/13 21:44:24
Line 12  sub BEGIN { Line 12  sub BEGIN {
 sub start_radiobuttonresponse {  sub start_radiobuttonresponse {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   #when in a radiobutton response use these    #when in a radiobutton response use these
     my $result;
   &Apache::lonxml::register('Apache::radiobuttonresponse',('foilgroup','foil','conceptgroup'));    &Apache::lonxml::register('Apache::radiobuttonresponse',('foilgroup','foil','conceptgroup'));
   my $id = &Apache::response::start_response($parstack,$safeeval);    my $id = &Apache::response::start_response($parstack,$safeeval);
   return '';    if ($target eq 'meta') {
       $result=&Apache::response::meta_package_write('radiobuttonresponse');
     }
     return $result;
 }  }
   
 sub end_radiobuttonresponse {  sub end_radiobuttonresponse {
Line 48  sub end_foilgroup { Line 52  sub end_foilgroup {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
       
   my $result;    my $result;
   if ($target ne 'meta') {    if ($target eq 'grade' || $target eq 'web') {
     my $style = &Apache::lonxml::get_param('style',$parstack,$safeeval,'-2');      my $style = &Apache::lonxml::get_param('style',$parstack,$safeeval,'-2');
     if ( $style eq 'survey' ) {      if ( $style eq 'survey' ) {
       if ($target eq 'web') {        if ($target eq 'web') {
Line 204  sub end_conceptgroup { Line 208  sub end_conceptgroup {
 }  }
   
 sub start_foil {  sub start_foil {
   &Apache::lonxml::startredirection;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $result='';
     if ($target eq 'web') { &Apache::lonxml::startredirection; }
   return '';    return '';
 }  }
   
Removed from v.1.22  
changed lines
  Added in v.1.25

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