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

Diff for /loncom/homework/imageresponse.pm between versions 1.85 and 1.87

version 1.85, 2007/09/25 23:16:13 version 1.87, 2007/09/25 23:47:59
Line 237  sub displayfoils { Line 237  sub displayfoils {
     } else {      } else {
  my $respid=$Apache::inputtags::response['-1'];   my $respid=$Apache::inputtags::response['-1'];
  my $token=&prep_image($image,'submission',$name);   my $token=&prep_image($image,'submission',$name);
  my $id = "HWVAL_$respid:$temp";   my $input_id = "HWVAL_$respid:$temp";
    my $id = $env{'form.request.prefix'}.$input_id;
  $result.='<img onclick="image_response_click(\''.$id.'\',event);"   $result.='<img onclick="image_response_click(\''.$id.'\',event);"
                        src="/adm/randomlabel.png?token='.$token.'"                          src="/adm/randomlabel.png?token='.$token.'" 
                                id="imageresponse_'.$id.'"                                 id="'.$id.'_imageresponse"
                                 />'.                                  />'.
        '<br />'.         '<br />'.
        '<input type="hidden" name="token_'.$id.'" value="'.$token.'" />'.         '<input type="hidden" name="'.$input_id.'_token" value="'.$token.'" />'.
        '<input type="hidden" name="'.$id.'" value="'.         '<input type="hidden" name="'.$input_id.'" value="'.
        join(':',&get_submission($name)).'" />';         join(':',&get_submission($name)).'" />';
     }      }
  }   }
Line 376  sub gradefoils { Line 377  sub gradefoils {
   
 sub stringify_submission {  sub stringify_submission {
     my ($response) = @_;      my ($response) = @_;
     return      return &Apache::lonnet::hash2str(%{ $response });
  join("\0",map {$_."\1".$response->{$_}} (sort(keys(%{ $response }))));  
           
 }  }
   
Line 391  sub get_submission { Line 392  sub get_submission {
     $Apache::lonhomework::history{"resource.$part.$respid.submission"};      $Apache::lonhomework::history{"resource.$part.$respid.submission"};
     }      }
   
     if ($string !~ /\0/) {      if ($string !~ /=/) {
  return split(':',$string);   return split(':',$string);
     } else {      } else {
  my %response = map { split("\1",$_,2) } (split("\0",$string));   my %response = &Apache::lonnet::str2hash($string);
  return split(':',$response{$name});   return split(':',$response{$name});
     }      }
 }  }
Removed from v.1.85  
changed lines
  Added in v.1.87

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