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

Diff for /loncom/homework/lonsimpleproblemedit.pm between versions 1.5 and 1.6

version 1.5, 2003/09/09 19:39:04 version 1.6, 2003/09/21 21:40:06
Line 32  use strict; Line 32  use strict;
 use Apache::Constants qw(:common :http);  use Apache::Constants qw(:common :http);
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::lonnet;  use Apache::lonnet;
   use Apache::lonlocal;
   
 my %qparms;  my %qparms;
 my $prefix;  my $prefix;
Line 132  sub handler { Line 133  sub handler {
     my $r = shift;      my $r = shift;
   
     if ($r->header_only) {      if ($r->header_only) {
         $r->content_type('text/html');          &Apache::loncommon::content_type($r,'text/html');
         $r->send_http_header;          $r->send_http_header;
         return OK;          return OK;
     }      }
Line 142  sub handler { Line 143  sub handler {
  return HTTP_NOT_ACCEPTABLE;    return HTTP_NOT_ACCEPTABLE; 
     }      }
 # ----------------------------------------------------------------- Send header  # ----------------------------------------------------------------- Send header
     $r->content_type('text/html');      &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
 # ----------------------------------------------------- Figure out where we are  # ----------------------------------------------------- Figure out where we are
     my $uri=$r->uri;      my $uri=$r->uri;
Line 212  ENDDOCUMENT Line 213  ENDDOCUMENT
         unless ($questiontypes{$qtype}) { $qtype='radio'; }          unless ($questiontypes{$qtype}) { $qtype='radio'; }
         $r->print('<b>Question Type: '.&Apache::loncommon::select_form          $r->print('<b>Question Type: '.&Apache::loncommon::select_form
                                ($qtype,'questiontype',%questiontypes).                                 ($qtype,'questiontype',%questiontypes).
 '</b><br /><input type="submit" value="Store Changes" /><p>&nbsp;</p>');    '</b><br /><input type="submit" value="'.&mt('Store Changes').
     '" /><p>&nbsp;</p>');
 # Question Text  # Question Text
         $r->print(&questiontext());          $r->print(&questiontext());
 # Radio, Option ===  # Radio, Option ===
Line 229  ENDDOCUMENT Line 231  ENDDOCUMENT
             unless ($randomizes{$randomize}) { $randomize='yes'; }              unless ($randomizes{$randomize}) { $randomize='yes'; }
     $r->print(      $r->print(
   '<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.    '<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.
           '<tr><td>Max number of foils displayed: <input type="text" size="3" name="maxfoils" value="'.$maxfoils.'" />&nbsp;&nbsp;'.            '<tr><td>'.&mt('Max number of foils displayed').
   ': <input type="text" size="3" name="maxfoils" value="'.$maxfoils.'" />&nbsp;&nbsp;'.
       &Apache::loncommon::select_form        &Apache::loncommon::select_form
       ($randomize,'randomize',%randomizes).        ($randomize,'randomize',%randomizes).
   '</td></tr><tr><td bgcolor="#AAAAAA">');    '</td></tr><tr><td bgcolor="#AAAAAA">');
Line 242  ENDDOCUMENT Line 245  ENDDOCUMENT
   '<table bgcolor="#ffcc22" cellspacing="4" cellpadding="2">'.    '<table bgcolor="#ffcc22" cellspacing="4" cellpadding="2">'.
   '<tr><td><input type="hidden" name="options" value="'.    '<tr><td><input type="hidden" name="options" value="'.
                   $options.'" />Add new option: '.                    $options.'" />Add new option: '.
           '<input type="text" name="newopt" size="15" />Delete an option: '.            '<input type="text" name="newopt" size="15" />'.
             &mt('Delete an option').': '.
           &Apache::loncommon::select_form('','delopt',('' => '',%optionshash)).            &Apache::loncommon::select_form('','delopt',('' => '',%optionshash)).
           '</td></tr><tr><td>');            '</td></tr><tr><td>');
     }      }
Line 272  ENDDOCUMENT Line 276  ENDDOCUMENT
             unless ($stringtypes{$stringtype}) { $stringtype='cs'; }              unless ($stringtypes{$stringtype}) { $stringtype='cs'; }
     $r->print(      $r->print(
   '<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.    '<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.
           '<tr><td>Correct answer: <input type="text" size="20" name="stringanswer" value="'.$stringanswer.'" />&nbsp;&nbsp;'.            '<tr><td>'.&mt('Correct answer').': <input type="text" size="20" name="stringanswer" value="'.$stringanswer.'" />&nbsp;&nbsp;'.
       &Apache::loncommon::select_form        &Apache::loncommon::select_form
       ($stringtype,'stringtype',%stringtypes).        ($stringtype,'stringtype',%stringtypes).
   '</td></tr></table><br />');    '</td></tr></table><br />');
Line 281  ENDDOCUMENT Line 285  ENDDOCUMENT
  }   }
 # Store Button  # Store Button
  $r->print(   $r->print(
   '<input type="submit" value="Store Changes" /></form>');    '<input type="submit" value="'.&mt('Store Changes').'" /></form>');
     } else {      } else {
  $r->print('Could not identify problem.');   $r->print(&mt('Could not identify problem.'));
     }      }
     $r->print('</body></html>');      $r->print('</body></html>');
     return OK;      return OK;
Removed from v.1.5  
changed lines
  Added in v.1.6

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