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

version 1.7, 2001/01/12 21:58:33 version 1.8, 2001/01/15 21:44:21
Line 56  sub end_foilgroup { Line 56  sub end_foilgroup {
     if ($target eq 'web') {      if ($target eq 'web') {
       $result=&displayfoils($max,$answer);        $result=&displayfoils($max,$answer);
     } elsif ( $target eq 'grade') {      } elsif ( $target eq 'grade') {
       if ( defined $ENV{'form.submit'}) {        if ( defined $ENV{'form.submitted'}) {
  my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};   my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};
  if ( $response =~ /[^\s]/) {   if ( $response =~ /[^\s]/) {
   my $id = $Apache::inputtags::response['-1'];    my $id = $Apache::inputtags::response['-1'];

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


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