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

Diff for /loncom/homework/lonsimpleproblemedit.pm between versions 1.2 and 1.3

version 1.2, 2003/07/09 06:23:20 version 1.3, 2003/07/09 10:05:15
Line 204  ENDDOCUMENT Line 204  ENDDOCUMENT
 # Question Type          # Question Type        
  my %questiontypes=('radio'  =>    my %questiontypes=('radio'  => 
                                '1 out of N multiple choice (radio button)',                                 '1 out of N multiple choice (radio button)',
    'option' => 'Option Response');     'option' => 'Option response',
                              'string' => 'Short string response',
                              'essay'  => 'Essay, open end');
         $qtype=$qparms{$prefix.'questiontype'};          $qtype=$qparms{$prefix.'questiontype'};
         unless (defined($qtype)) { $qtype='radio'; }          unless (defined($qtype)) { $qtype='radio'; }
         unless ($questiontypes{$qtype}) { $qtype='radio'; }          unless ($questiontypes{$qtype}) { $qtype='radio'; }
Line 255  ENDDOCUMENT Line 257  ENDDOCUMENT
   
 # End Response  # End Response
     $r->print('</td></tr></table><br />');      $r->print('</td></tr></table><br />');
   # Hint
       $r->print(&hint());
  }   }
    if ($qtype eq 'string') {
               my %stringtypes=(
          'cs' => 'Case sensitive',
          'ci' => 'Case Insensitive',
          'mc' => 'Multiple Choice, Order of characters unchecked');
               my $stringanswer=$qparms{$prefix.'stringanswer'};
               unless (defined($stringanswer)) { $stringanswer=''; }
               my $stringtype=$qparms{$prefix.'stringtype'};
               unless (defined($stringtype)) { $stringtype='cs'; }
               unless ($stringtypes{$stringtype}) { $stringtype='cs'; }
       $r->print(
     '<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.
             '<tr><td>Correct answer: <input type="text" size="20" name="stringanswer" value="'.$stringanswer.'" />&nbsp;&nbsp;'.
         &Apache::loncommon::select_form
         ($stringtype,'stringtype',%stringtypes).
     '</td></tr></table><br />');
 # Hint  # Hint
         $r->print(&hint());      $r->print(&hint());
    }
 # Store Button  # Store Button
  $r->print(   $r->print(
   '<input type="submit" name="storeproblem" value="Store Changes" /></form>');    '<input type="submit" name="storeproblem" value="Store Changes" /></form>');
Removed from v.1.2  
changed lines
  Added in v.1.3

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