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

Diff for /loncom/homework/essayresponse.pm between versions 1.100.4.1 and 1.101

version 1.100.4.1, 2009/09/11 16:34:09 version 1.101, 2009/05/23 18:07:57
Line 60  sub start_essayresponse { Line 60  sub start_essayresponse {
  }   }
  $result.='<br /><table border="1">';   $result.='<br /><table border="1">';
  if ( $Apache::lonhomework::type ne 'survey' ) {   if ( $Apache::lonhomework::type ne 'survey' ) {
             if ($env{'request.uri'} eq '/res/gci/gci/internal/submission.problem') {      $result.= '<tr><td>'.
                 $result .= '<input type="hidden" name="HWDRAFT'.$part.'_'.$id.'" value="yes" />';   '<label>'.
             } else {   '<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked="checked" /> '.
                 $result.= '<tr><td>'.   &mt('Submit entries below as answer to receive credit').
                 '<label>'.   '</label> <br />'.
                 '<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked="checked" /> '.   '<label>'.
                 &mt('Submit entries below as answer to receive credit').   '<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="no" /> '.
                 '</label> <br />'.   &mt('Save entries below (not submitted for credit yet)').
                 '<label>'.   '</label>'.
                 '<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="no" /> '.   '</td></tr>';
                 &mt('Save entries below as a draft answer (not submitting them for credit yet)').   }
                 '</label>'.  
                 '</td></tr>';  
             }  
         }  
   
  if ($ncol > 0) {   if ($ncol > 0) {
     $result .='<tr><td>'.'<label>'.      $result .='<tr><td>'.'<label>'.
Removed from v.1.100.4.1  
changed lines
  Added in v.1.101

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