loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/response.pm between versions 1.47 and 1.48

-version 1.47, 2001/08/22 19:21:36
+version 1.48, 2001/09/14 20:15:35
  Line 44  sub end_hintresponse {
  # used by response to set the non-safe space random number generator to something
  # that is stable and unique based on the part number and response number
  sub setrandomnumber {
-   my $rndseed=&Apache::lonnet::rndseed();
+   my $rndseed;
+   if ($ENV{'request.state'} eq "construct") {
+     $rndseed=$ENV{'form.rndseed'};
+     if (!$rndseed) { $rndseed=time; }
+   } else {
+     $rndseed=&Apache::lonnet::rndseed();
+   }
    &Apache::lonxml::debug("randseed $rndseed");
  #  $rndseed=unpack("%32i",$rndseed);
    $rndseed=$rndseed
- Line 336  sub setup_params {
+ Line 342  sub setup_params {
    }
  }
+ sub answer_header {
+   my ($type) = @_;
+   my $result;
+   if ($type eq 'optionresponse') {
+     $result = '<table border="1"><tr><th>Answer for Part:'.
+       $Apache::inputtags::part. '</th></tr><tr>'."\n";
+   } else {
+     $result = '<table><tr><td>Answer for Part:'.$Apache::inputtags::part.
+       '</td>'."\n";
+   }
+   return $result;
+ }
+ sub answer_part {
+   my ($type,$answer) = @_;
+   my $result;
+   if ($type eq 'optionresponse') {
+     $result = '<td>'.$answer.'</td>';
+   } else {
+     $result = '<td>'.$answer.'</td>';
+   }
+   return $result;
+ }
+ sub answer_footer {
+   my ($type) = @_;
+   my $result;
+   if ($type eq 'optionresponse') {
+     $result = '</tr></table>';
+   } else {
+     $result = '</tr></table>';
+   }
+   return $result;
+ }
 ;
  __END__

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

Removed from v.1.47
changed lines
	Added in v.1.48