--- loncom/interface/statistics/lonstathelpers.pm	2004/09/15 21:07:34	1.21
+++ loncom/interface/statistics/lonstathelpers.pm	2004/09/16 14:28:19	1.22
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstathelpers.pm,v 1.21 2004/09/15 21:07:34 matthew Exp $
+# $Id: lonstathelpers.pm,v 1.22 2004/09/16 14:28:19 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -602,6 +602,16 @@ keys $partid.'.'.$respid.'.answer'.
 #####################################################
 sub analyze_problem_as_student {
     my ($resource,$sname,$sdom,$partid,$respid) = @_;
+    if (ref($resource) ne 'HASH') {
+        my $res = $resource;
+        $resource = { 'src' => $res->src,
+                      'symb' => $res->symb,
+                      'parts' => $res->parts };
+        foreach my $part (@{$resource->{'parts'}}) {
+            $resource->{'partdata'}->{$part}->{'ResponseIds'}=
+                [$res->responseIds($part)];
+        }
+    }
     my $returnvalue;
     my $url = $resource->{'src'};
     my $symb = $resource->{'symb'};