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

Diff for /loncom/homework/lonhomework.pm between versions 1.106 and 1.111

version 1.106, 2003/01/19 08:11:38 version 1.111, 2003/02/26 17:52:14
Line 49  use Apache::imageresponse(); Line 49  use Apache::imageresponse();
 use Apache::essayresponse();  use Apache::essayresponse();
 use Apache::externalresponse();  use Apache::externalresponse();
 use Apache::rankresponse();  use Apache::rankresponse();
   use Apache::matchresponse();
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use HTML::Entities();  use HTML::Entities();
 use Apache::loncommon();  use Apache::loncommon();
Line 338  sub handle_save_or_undo { Line 339  sub handle_save_or_undo {
   
 sub analyze_header {  sub analyze_header {
     my ($request) = @_;      my ($request) = @_;
     my $result.='<html><body bgcolor="#FFFFFF">      my $result.='<html>
               <head><title>Analyzing a problem</title></head>
               <body bgcolor="#FFFFFF">
             <form name="lonhomework" method="POST" action="'.              <form name="lonhomework" method="POST" action="'.
       $ENV{'request.uri'}.'">        $ENV{'request.uri'}.'">
             <input type="submit" name="problemmode" value="EditXML" />              <input type="submit" name="problemmode" value="EditXML" />
Line 352  sub analyze_header { Line 355  sub analyze_header {
     $request->rflush();      $request->rflush();
 }  }
   
   sub analyze_footer {
       my ($request) = @_;
       my $result='</body></html>';
       $request->print($result);
       $request->rflush();
   }
   
 sub analyze {  sub analyze {
     my ($request,$file) = @_;      my ($request,$file) = @_;
     &Apache::lonxml::debug("Analyze");      &Apache::lonxml::debug("Analyze");
Line 367  sub analyze { Line 377  sub analyze {
  &Apache::lonxml::debug(":$subresult:");   &Apache::lonxml::debug(":$subresult:");
  (my $garbage,$subresult)=split(/_HASH_REF__/,$subresult,2);   (my $garbage,$subresult)=split(/_HASH_REF__/,$subresult,2);
  my %analyze=&Apache::lonnet::str2hash($subresult);   my %analyze=&Apache::lonnet::str2hash($subresult);
    $Apache::lonxml::debug=1;
  &Apache::lonhomework::showhash(%analyze);   &Apache::lonhomework::showhash(%analyze);
    $Apache::lonxml::debug=0;
  my @parts = @{ $analyze{'parts'} };   my @parts = @{ $analyze{'parts'} };
  foreach my $part (@parts) {   foreach my $part (@parts) {
     if (!exists($allparts{$part})) {$allparts{$part}=1;};      if (!exists($allparts{$part})) {$allparts{$part}=1;};
     if ($analyze{$part.'.type'} eq 'numericalresponse') {      if ($analyze{$part.'.type'} eq 'numericalresponse' ||
    $analyze{$part.'.type'} eq 'stringresponse' ||
    $analyze{$part.'.type'} eq 'formularesponse'   ) {
  push( @{ $overall{$part.'.answer'} },   push( @{ $overall{$part.'.answer'} },
       [@{ $analyze{$part.'.answer'} }]);        [@{ $analyze{$part.'.answer'} }]);
     }      }
  }   }
     }      }
     foreach my $part (keys(%allparts)) {      foreach my $part (keys(%allparts)) {
  $request->print('<table><tr><td>Part '.$part.'</td></tr>');   if (defined(@{ $overall{$part.'.answer'} })) {
  foreach my $answer (sort {$a->[0] <=> $b->[0]} (@{ $overall{$part.'.answer'} })) {      $request->print('<table><tr><td>Part '.$part.'</td></tr>');
     $request->print('<tr><td>'.join('</td><td>',@{ $answer }).      foreach my $answer (sort {$a->[0] <=> $b->[0]} (@{ $overall{$part.'.answer'} })) {
     '</td></tr>');   $request->print('<tr><td>'.join('</td><td>',@{ $answer }).
    '</td></tr>');
       }
       $request->print('</table>');
    } else {
       $request->print('<p>Part '.$part.
       ' is not analyzabale at this time</p>');
  }   }
     }      }
       &analyze_footer($request);
     &Apache::lonhomework::showhash(%overall);      &Apache::lonhomework::showhash(%overall);
     return $result;      return $result;
 }  }
Line 408  sub editxmlmode { Line 429  sub editxmlmode {
     &renderpage($request,$file);      &renderpage($request,$file);
   } else {    } else {
     my ($rows,$cols) = &Apache::edit::textarea_sizes(\$problem);      my ($rows,$cols) = &Apache::edit::textarea_sizes(\$problem);
     my $xml_help = Apache::loncommon::help_open_topic("Problem_Editor_XML_Index");      my $xml_help = '<table><tr><td>'.
    &Apache::loncommon::help_open_topic("Problem_Editor_XML_Index",'Problem Editing Help')
       .'</td><td>'.
    &Apache::loncommon::help_open_topic("Greek_Symbols",'Greek Symbols',
       undef,undef,600)
       .'</td><td>'.
           &Apache::loncommon::help_open_topic("Other_Symbols",'Other Symbols',
       undef,undef,600)
       .'</td></tr></table>';
     if ($cols > 80) { $cols = 80; }      if ($cols > 80) { $cols = 80; }
     if ($cols < 70) { $cols = 70; }      if ($cols < 70) { $cols = 70; }
     if ($rows < 20) { $rows = 20; }      if ($rows < 20) { $rows = 20; }
Line 423  sub editxmlmode { Line 452  sub editxmlmode {
             <input type="submit" name="submit" value="Submit Changes and View" />              <input type="submit" name="submit" value="Submit Changes and View" />
             <input type="submit" name="Undo" value="undo" />              <input type="submit" name="Undo" value="undo" />
             <hr />              <hr />
             ' . $xml_help . ' Problem Help<br>              ' . $xml_help . '
             <textarea rows="'.$rows.'" cols="'.$cols.'" name="editxmltext">'.              <textarea rows="'.$rows.'" cols="'.$cols.'" name="editxmltext">'.
       &HTML::Entities::encode($problem).'</textarea>        &HTML::Entities::encode($problem).'</textarea>
             </form></body></html>';              </form></body></html>';
Line 447  sub renderpage { Line 476  sub renderpage {
   
     my %mystyle;      my %mystyle;
     my $result = '';      my $result = '';
     &Apache::inputtags::initialize_inputtags();      if ($target eq 'analyze') { %Apache::lonhomework::analyze=(); }
     &Apache::outputtags::initialize_outputtags();  
     &Apache::edit::initialize_edit();  
     if ($target eq 'analyze') { %Apache::lonhomework::anaylze=(); }  
     if ($target eq 'answer') { &showhash(%Apache::lonhomework::history); }      if ($target eq 'answer') { &showhash(%Apache::lonhomework::history); }
     if ($target eq 'web') {&Apache::lonhomework::showhashsubset(\%ENV,'^form');}      if ($target eq 'web') {&Apache::lonhomework::showhashsubset(\%ENV,'^form');}
   
Removed from v.1.106  
changed lines
  Added in v.1.111

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