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

version 1.85, 2007/09/25 23:16:13 version 1.86, 2007/09/25 23:45:33
Line 376  sub gradefoils { Line 376  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 391  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.86


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