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

Diff for /loncom/homework/inputtags.pm between versions 1.248.4.1 and 1.248.4.2

version 1.248.4.1, 2009/09/14 16:39:21 version 1.248.4.2, 2009/09/14 17:03:42
Line 829  sub decideoutput { Line 829  sub decideoutput {
  $button=1;   $button=1;
     } elsif ($award eq 'SUBMITTED') {      } elsif ($award eq 'SUBMITTED') {
  $message = &mt("Your submission has been recorded.");   $message = &mt("Your submission has been recorded.");
           if ($env{'request.uri'} eq '/res/gci/gci/internal/submission.problem') {
               if ($target eq 'web') {
                   $message .= '<br />'.&mt('Thank you for making a submission to the Geosciences Concept Inventory via the GCI Web Center.');
               }
           }
  $css_class=$possible_class{'no_grade'};   $css_class=$possible_class{'no_grade'};
  $button=1;   $button=1;
     } elsif ($award eq 'DRAFT') {      } elsif ($award eq 'DRAFT') {
Line 881  sub decideoutput { Line 886  sub decideoutput {
     if (&Apache::lonhomework::hide_problem_status()      if (&Apache::lonhomework::hide_problem_status()
  && $Apache::inputtags::status[-1] ne 'SHOW_ANSWER'   && $Apache::inputtags::status[-1] ne 'SHOW_ANSWER'
  && &hide_award($award)) {   && &hide_award($award)) {
  $message = &mt("Answer Submitted: Your final submission will be graded after the due date.");          if ($env{'request.uri'} eq '/res/gci/gci/internal/submission.problem') {
               if ($target eq 'web') {
                   $message = &mt("Your submission has been recorded.").'<br />'.
                              &mt('Thank you for making a submission to the Geosciences Concept Inventory via the GCI Web Center.');
               }
           } else {
               $message = &mt("Answer Submitted: Your final submission will be graded after the due date.");
           }
  $css_class=$possible_class{'no_grade'};   $css_class=$possible_class{'no_grade'};
  $button=1;   $button=1;
     }      }
Line 1196  sub get_grade_messages { Line 1208  sub get_grade_messages {
  $trystr = '\vskip 0 mm ';   $trystr = '\vskip 0 mm ';
     }      }
  } else {   } else {
     $trystr = '<td><span class="LC_nobreak">'.$tries_text." $tries";              $trystr = '<td><span class="LC_nobreak">';
     if ($Apache::lonhomework::parsing_a_task) {              my %parmhash=&Apache::lonnet::coursedescription($env{'request.course.id'});
     } elsif($env{'request.state'} ne 'construct') {              if ($parmhash{'suppress_tries'} ne 'yes') {
  $trystr.="/$maxtries";                  $trystr .= "$tries_text $tries";
     } else {          if ($Apache::lonhomework::parsing_a_task) {
  if (defined($Apache::inputtags::params{'maxtries'})) {          } elsif($env{'request.state'} ne 'construct') {
     $trystr.="/".$Apache::inputtags::params{'maxtries'};      $trystr.="/$maxtries";
  }          } else {
     }      if (defined($Apache::inputtags::params{'maxtries'})) {
           $trystr.="/".$Apache::inputtags::params{'maxtries'};
       }
           }
               }
     $trystr.="</span></td>";      $trystr.="</span></td>";
  }   }
     }      }
Line 1245  sub gradestatus { Line 1261  sub gradestatus {
  if ( $status eq 'SHOW_ANSWER') {   if ( $status eq 'SHOW_ANSWER') {
     undef($previousmsg);      undef($previousmsg);
  }   }
  if ( $showbutton ) {    if ( $showbutton ) {
     if ($target ne 'tex') {              if ($target ne 'tex') {
                   my $submit_text = &mt('Submit Answer');
                   if ($env{'request.uri'} eq '/res/gci/gci/internal/submission.problem') {
                       $submit_text = &mt('Submit Questions');
                   }
  $button =    $button = 
     '<input       '<input 
                           onmouseup="javascript:setSubmittedPart(\''.$id.'\')"                            onmouseup="javascript:setSubmittedPart(\''.$id.'\')"
                            onsubmit="javascript:setSubmittedPart(\''.$id.'\')"                             onsubmit="javascript:setSubmittedPart(\''.$id.'\')"
                         type="submit" name="submit_'.$id.'"                          type="submit" name="submit_'.$id.'"
                          value="'.&mt('Submit Answer').'" />';                           value="'.$submit_text.'" />';
     }      }
  }   }
   
Line 1360  sub previous_tries { Line 1380  sub previous_tries {
     $prefix =~ tr{.}{_};      $prefix =~ tr{.}{_};
     my $function_name = "LONCAPA_previous_tries_".$prefix.      my $function_name = "LONCAPA_previous_tries_".$prefix.
  $Apache::lonxml::curdepth.'_'.$env{'form.counter'};   $Apache::lonxml::curdepth.'_'.$env{'form.counter'};
       my $triestext = &mt('Previous Tries');
       if ($env{'request.uri'} eq '/res/gci/gci/internal/submission.problem') {
           $triestext = &mt('Submission History');
       }
     my $result ="<script type=\"text/javascript\">      my $result ="<script type=\"text/javascript\">
 // <![CDATA[  // <![CDATA[
     function $function_name() {newWindow=open('','new_W','width=500,height=500,scrollbars=1,resizable=yes');newWindow.$windowopen;newWindow.document.writeln('$start_page $output $end_page');newWindow.document.close();newWindow.focus()}      function $function_name() {newWindow=open('','new_W','width=500,height=500,scrollbars=1,resizable=yes');newWindow.$windowopen;newWindow.document.writeln('$start_page $output $end_page');newWindow.document.close();newWindow.focus()}
 // ]]>  // ]]>
 </script><a href=\"javascript:$function_name();void(0);\">".&mt("Previous Tries")."</a><br />";  </script><a href=\"javascript:$function_name();void(0);\">".$triestext."</a><br />";
     #use Data::Dumper;      #use Data::Dumper;
     #&Apache::lonnet::logthis(&Dumper(\%Apache::inputtags::submission_display));      #&Apache::lonnet::logthis(&Dumper(\%Apache::inputtags::submission_display));
     return $result;      return $result;
Removed from v.1.248.4.1  
changed lines
  Added in v.1.248.4.2

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