Diff for /loncom/interface/lonevaluate.pm between versions 1.29 and 1.31

version 1.29, 2009/09/04 16:12:09 version 1.31, 2018/04/14 02:29:44
Line 76  sub handler { Line 76  sub handler {
   
     my $warning='';      my $warning='';
   
       my $windowname = 'loncapaclient';
       if ($env{'request.lti.login'}) {
           $windowname .= 'lti';
       }
   
     if ($env{'form.submiteval'} eq 'true') {      if ($env{'form.submiteval'} eq 'true') {
 # ------------------------------------------------ User is submitting something  # ------------------------------------------------ User is submitting something
         my $complete=1;          my $complete=1;
Line 90  sub handler { Line 95  sub handler {
     my $showurl=&Apache::lonenc::check_encrypt(&Apache::lonnet::clutter($feedurl));      my $showurl=&Apache::lonenc::check_encrypt(&Apache::lonnet::clutter($feedurl));
             my $js = &Apache::lonhtmlcommon::scripttag(<<ENDJS);              my $js = &Apache::lonhtmlcommon::scripttag(<<ENDJS);
     function goback() {      function goback() {
         if ((window.name=='loncapaclient')) {          if ((window.name=='$windowname')) {
             window.location='$showurl';              window.location='$showurl';
         } else {          } else {
             self.close();              self.close();
Line 125  ENDJS Line 130  ENDJS
            );             );
            return OK;             return OK;
         } else {          } else {
             $warning=&mt('Please fill out all fields below.');              $warning=&mt('Please fill out all required fields below!');
         }          }
         
     }      }
Line 173  ENDOPTIONS Line 178  ENDOPTIONS
   
     %lt=&Apache::lonlocal::texthash(      %lt=&Apache::lonlocal::texthash(
        'pleaserank' => 'Please rank the following criteria:',         'pleaserank' => 'Please rank the following criteria:',
          'required'   => '(All fields marked with * are required.)',
        'correct'    => 'The material appears to be correct',         'correct'    => 'The material appears to be correct',
        'helpful'    => 'The material is helpful',         'helpful'    => 'The material is helpful',
        'depth'      => 'The material is covered with sufficient depth',         'depth'      => 'The material is covered with sufficient depth',
Line 183  ENDOPTIONS Line 189  ENDOPTIONS
     );      );
     $r->print(      $r->print(
         $start_page          $start_page
        .'<h2>'.$title.'</h2>'         .'<h2>'.$title.'</h2>');
        .'<p class="LC_warning">'.$warning.'</p>'  
        .'<form method="post" name="evaluation" action="/adm/evaluate">'      if ($warning) {
           $r->print(
               &Apache::loncommon::confirmwrapper(
                   &Apache::lonhtmlcommon::confirm_success(
               $warning,1)));
       }
       $r->print(
           '<form method="post" name="evaluation" action="/adm/evaluate">'
        .'<input type="hidden" name="submiteval" value="true" />'         .'<input type="hidden" name="submiteval" value="true" />'
        .'<input type="hidden" name="postdata" value="'.$showurl.'" />'         .'<input type="hidden" name="postdata" value="'.$showurl.'" />'
     );      );
     $r->print(      $r->print(
         &Apache::lonhtmlcommon::start_pick_box()          &Apache::lonhtmlcommon::start_pick_box()
        .&Apache::lonhtmlcommon::row_headline()         .&Apache::lonhtmlcommon::row_headline()
        .$lt{'pleaserank'}         .$lt{'pleaserank'}.'<br />'
          .'<span class="LC_info">'.$lt{'required'}.'</span>'
        .&Apache::lonhtmlcommon::row_closure()         .&Apache::lonhtmlcommon::row_closure()
     );      );
   
     foreach my $key ('correct', 'helpful', 'depth', 'clear', 'technical') {      foreach my $key ('correct', 'helpful', 'depth', 'clear', 'technical') {
         $r->print(          $r->print(
             &Apache::lonhtmlcommon::row_title($lt{$key})              &Apache::lonhtmlcommon::row_title(
                   '<span title="'.&mt('required').'">'.$lt{$key}
                  .' <span class="LC_info">*</span></span>')
            .'<select name="'.$key.'">'             .'<select name="'.$key.'">'
            .$standardoptions             .$standardoptions
            .'</select>'             .'</select>'

Removed from v.1.29  
changed lines
  Added in v.1.31


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