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

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

version 1.11, 2004/11/30 22:57:16 version 1.12, 2004/11/30 23:28:57
Line 52  sub evaloptionhash { Line 52  sub evaloptionhash {
 sub rawrendering {  sub rawrendering {
     my ($symb)=@_;      my ($symb)=@_;
     my %data=('show_errors'=>'on',      my %data=('show_errors'=>'on',
         'simple_edit_button' => 'off',
       'devalidatecourseresdata'=>'on');        'devalidatecourseresdata'=>'on');
     return &Apache::loncommon::get_student_view($symb,time,time,      return &Apache::loncommon::get_student_view($symb,time,time,
  $ENV{'request.course.id'},   $ENV{'request.course.id'},
Line 196  ENDDOCUMENT Line 197  ENDDOCUMENT
     $r->print(&Apache::loncommon::bodytag('Simple Problem Editor'));      $r->print(&Apache::loncommon::bodytag('Simple Problem Editor'));
     if ($symb) {      if ($symb) {
  $r->print('<h1>'.&Apache::lonnet::gettitle($symb).'</h1>');   $r->print('<h1>'.&Apache::lonnet::gettitle($symb).'</h1>');
    $r->print('<table width="100%" bgcolor="#FFFFAA" border="2"><tr><td>'.
                   '<a href="'.$uri.'">'.&mt('Student View').'</a> - '.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.').
     &Apache::loncommon::help_open_topic('Caching').'</td></tr></table>');
  $r->print('<table border="2" bgcolor="#FFFFFF" width="100%"><tr><td>'.   $r->print('<table border="2" bgcolor="#FFFFFF" width="100%"><tr><td>'.
                   &rawrendering($symb).                    &rawrendering($symb).
                   '</td></tr></table><br />');                    '</td></tr></table><br />');
Line 212  ENDDOCUMENT Line 216  ENDDOCUMENT
         $r->print('<b>'.&mt('Question Type').          $r->print('<b>'.&mt('Question Type').
   ': '.&Apache::loncommon::select_form    ': '.&Apache::loncommon::select_form
                                ($qtype,'questiontype',%questiontypes).                                 ($qtype,'questiontype',%questiontypes).
   '</b><br /><input type="submit" value="'.&mt('Store Changes').    '</b><br /><input type="submit" value="'.&mt('Save and Edit').
   '" /><p>&nbsp;</p>');    '" /><p>&nbsp;</p>');
 # Question Text  # Question Text
         $r->print(&questiontext());          $r->print(&questiontext());
Line 284  ENDDOCUMENT Line 288  ENDDOCUMENT
  }   }
 # Store Button  # Store Button
  $r->print(   $r->print(
   '<input type="submit" value="'.&mt('Store Changes').'" /></form>');    '<input type="submit" value="'.&mt('Save and Edit').'" /></form>');
     } else {      } else {
  $r->print(&mt('Could not identify problem.'));   $r->print(&mt('Could not identify problem.'));
     }      }
Removed from v.1.11  
changed lines
  Added in v.1.12

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