Diff for /loncom/homework/lonsimpleproblemedit.pm between versions 1.10 and 1.11

version 1.10, 2003/12/11 21:23:58 version 1.11, 2004/11/30 22:57:16
Line 50  sub evaloptionhash { Line 50  sub evaloptionhash {
 }  }
   
 sub rawrendering {  sub rawrendering {
     my ($request,$uri)=@_;      my ($symb)=@_;
     my $problem=&Apache::lonnet::getfile      my %data=('show_errors'=>'on',
                             (&Apache::lonnet::filelocation('',$uri));        'devalidatecourseresdata'=>'on');
     &Apache::lonnet::devalidatecourseresdata(      return &Apache::loncommon::get_student_view($symb,time,time,
      $ENV{'course.'.$ENV{'request.course.id'}.'.num'},   $ENV{'request.course.id'},
      $ENV{'course.'.$ENV{'request.course.id'}.'.domain'});   'web',\%data);
     my $uname=$ENV{'user.name'};  
     my $udom=$ENV{'user.domain'};  
     $ENV{'user.name'}=time;  
     $ENV{'user.domain'}=time;  
     my $result = &Apache::lonxml::xmlparse($request,'web', $problem);  
     undef($Apache::lonhomework::parsing_a_problem);  
     $ENV{'user.name'}=$uname;  
     $ENV{'user.domain'}=$udom;  
     $result=~s/^.*\<body[^\>]*\>//si;  
     $result=~s/\<\/body[^\>]*\>.*$//si;  
     return $result;  
 }  }
   
 sub questiontext {  sub questiontext {
Line 208  ENDDOCUMENT Line 197  ENDDOCUMENT
     if ($symb) {      if ($symb) {
  $r->print('<h1>'.&Apache::lonnet::gettitle($symb).'</h1>');   $r->print('<h1>'.&Apache::lonnet::gettitle($symb).'</h1>');
  $r->print('<table border="2" bgcolor="#FFFFFF" width="100%"><tr><td>'.   $r->print('<table border="2" bgcolor="#FFFFFF" width="100%"><tr><td>'.
                   &rawrendering($r,$uri).                    &rawrendering($symb).
                   '</td></tr></table><br />');                    '</td></tr></table><br />');
         $r->print('<form method="post">');          $r->print('<form method="post">');
 # Question Type          # Question Type        

Removed from v.1.10  
changed lines
  Added in v.1.11


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