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

Diff for /loncom/homework/lonhomework.pm between versions 1.314 and 1.317.4.2

version 1.314, 2009/07/03 14:52:47 version 1.317.4.2, 2010/11/09 17:45:09
Line 111  sub get_target { Line 111  sub get_target {
  } elsif ( $env{'form.grade_target'} eq 'webgrade'   } elsif ( $env{'form.grade_target'} eq 'webgrade'
   && ($Apache::lonhomework::queuegrade eq 'F' )) {    && ($Apache::lonhomework::queuegrade eq 'F' )) {
     return ($env{'form.grade_target'});      return ($env{'form.grade_target'});
  }          } elsif ($env{'form.grade_target'} eq 'answer') {
               if ($env{'form.answer_output_mode'} eq 'tex') {
                   return ($env{'form.grade_target'});
               }
           }
  if ($env{'form.webgrade'} &&   if ($env{'form.webgrade'} &&
     ($Apache::lonhomework::modifygrades eq 'F'      ($Apache::lonhomework::modifygrades eq 'F'
      || $Apache::lonhomework::queuegrade eq 'F' )) {       || $Apache::lonhomework::queuegrade eq 'F' )) {
Line 265  sub check_slot_access { Line 269  sub check_slot_access {
     }      }
     if ($slotstatus eq 'NEEDS_CHECKIN' &&      if ($slotstatus eq 'NEEDS_CHECKIN' &&
  &proctor_checked_in($slot_name,$returned_slot,$type)) {   &proctor_checked_in($slot_name,$returned_slot,$type)) {
  &Apache::lonxml::debug("protoctor checked in");   &Apache::lonxml::debug("proctor checked in");
  $slotstatus='CAN_ANSWER';   $slotstatus=$status;
     }      }
   
     my ($is_correct,$got_grade,$checkedin);      my ($is_correct,$got_grade,$checkedin);
Line 953  sub editxmlmode { Line 957  sub editxmlmode {
     &Apache::structuretags::remember_problem_state().'      &Apache::structuretags::remember_problem_state().'
             <div class="LC_edit_problem_editxml_header">              <div class="LC_edit_problem_editxml_header">
               <table class="LC_edit_problem_header_title"><tr><td>                <table class="LC_edit_problem_header_title"><tr><td>
                '.&mt('Problem Editing').&Apache::loncommon::help_open_topic('Problem_Editor_XML_Index').'                 <h2>'.&mt('Problem Editing').' '.&Apache::loncommon::help_open_topic('Problem_Editor_XML_Index').'</h2>
                 </td><td align="right">                  </td><td align="right">
                   '.&Apache::loncommon::helpLatexCheatsheet('Problem_LON-CAPA_Functions','Script Functions').'                    '.&Apache::loncommon::helpLatexCheatsheet('Problem_LON-CAPA_Functions','Script Functions').'
                 </td></tr>                  </td></tr>
Line 971  sub editxmlmode { Line 975  sub editxmlmode {
                 <input type="submit" name="submitbutton" accesskey="s" value="'.&mt('Save').'"  />                  <input type="submit" name="submitbutton" accesskey="s" value="'.&mt('Save').'"  />
                 <input type="submit" name="submitbutton" accesskey="v" value="'.&mt('Save and View').'" />                  <input type="submit" name="submitbutton" accesskey="v" value="'.&mt('Save and View').'" />
               </div>                </div>
               <hr />                <hr style="clear:both;" />
       '.&Apache::lonxml::message_location().'        '.&Apache::lonxml::message_location().'
             </div>              </div>
             '  . '              '  . '
Line 1127  sub get_template_list { Line 1131  sub get_template_list {
         my $filename=$file->[0];          my $filename=$file->[0];
         $filename=~s/^\/home\/httpd\/html//;          $filename=~s/^\/home\/httpd\/html//;
         $result.=' <span class="LC_fontsize_small">'          $result.=' <span class="LC_fontsize_small">'
                 .'<a href="'.$filename.'" target="sample">'.&mt('Example').'</a>'                  .'<a href="'.$filename.'?inhibitmenu=yes" target="sample">'.&mt('Example').'</a>'
                 .'</span><br />'."\n";                  .'</span><br />'."\n";
         $count ++;          $count ++;
     }      }
Removed from v.1.314  
changed lines
  Added in v.1.317.4.2

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