Diff for /loncom/homework/radiobuttonresponse.pm between versions 1.32 and 1.33

version 1.32, 2001/12/13 23:36:39 version 1.33, 2001/12/14 23:00:52
Line 65  sub end_radiobuttonresponse { Line 65  sub end_radiobuttonresponse {
   if ($target eq 'edit') { $result=&Apache::edit::end_table(); }    if ($target eq 'edit') { $result=&Apache::edit::end_table(); }
   &Apache::response::end_response;    &Apache::response::end_response;
   pop @Apache::lonxml::namespace;    pop @Apache::lonxml::namespace;
     &Apache::lonxml::deregister('Apache::radiobuttonresponse',('foilgroup','foil','conceptgroup'));
   return $result;    return $result;
 }  }
   
Line 77  sub start_foilgroup { Line 78  sub start_foilgroup {
 }  }
   
 sub storesurvey {  sub storesurvey {
   if ( defined $ENV{'form.submitted'}) {    if ( !defined($ENV{'form.submitted'})) { return ''; }
     my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};    my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};
     &Apache::lonxml::debug("Here I am!:$response:");    &Apache::lonxml::debug("Here I am!:$response:");
     if ( $response =~ /[0-9]+/) {    if ( $response !~ /[0-9]+/) { return ''; }
       my $id = $Apache::inputtags::response['-1'];    my $id = $Apache::inputtags::response['-1'];
       my @whichfoils=@{ $Apache::response::foilgroup{'names'} };    my @whichfoils=@{ $Apache::response::foilgroup{'names'} };
       my %responsehash;    my %responsehash;
       $responsehash{$whichfoils[$response]}=$response;    $responsehash{$whichfoils[$response]}=$response;
       $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=&Apache::lonnet::hash2str(%responsehash);    $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=&Apache::lonnet::hash2str(%responsehash);
       $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}='SUBMITTED';    $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}='SUBMITTED';
       &Apache::lonxml::debug("submitted a $response<br />\n");    &Apache::lonxml::debug("submitted a $response<br />\n");
     }  
   }  
   return '';    return '';
 }  }
   

Removed from v.1.32  
changed lines
  Added in v.1.33


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