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.46 and 1.48

-version 1.46, 2001/08/20 23:48:05
+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 210  sub start_essayresponse {
+ Line 216  sub start_essayresponse {
  }
  sub view_or_modify {
-   my ($symb,$courseid,$domain,$name) = &Apache::lonhomework::whichuser();
+   my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
    my $myself=0;
    if ( ($name eq $ENV{'user.name'}) && ($domain eq $ENV{'user.domain'}) ) {
      $myself=1;
- Line 244  sub end_dataresponse {
+ Line 250  sub end_dataresponse {
    if ( $target eq 'web' ) {
    } elsif ($target eq 'grade' ) {
      if ( defined $ENV{'form.submitted'}) {
-       my ($symb,$courseid,$domain,$name)=&Apache::lonhomework::whichuser();
+       my ($symb,$courseid,$domain,$name)=&Apache::lonxml::whichuser();
        my $allowed=&Apache::lonnet::allowed('mgr',$courseid);
        if ($allowed) {
  	&Apache::response::setup_params('datasubmission');
- 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.46
changed lines
	Added in v.1.48