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

Diff for /loncom/interface/lonevaluate.pm between versions 1.25 and 1.27

version 1.25, 2008/11/18 19:14:22 version 1.27, 2008/11/26 10:51:36
Line 26 Line 26
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
   
 =pod  
   
 =head1 NAME  
   
 Apache::lonevaluate.pm  
   
 =head1 SYNOPSIS  
   
 Handles evaluation.  
   
 This is part of the LearningOnline Network with CAPA project  
 described at http://www.lon-capa.org.  
   
 =head1 OVERVIEW  
   
 None  
   
 =cut  
   
 package Apache::lonevaluate;  package Apache::lonevaluate;
   
Line 117  sub handler { Line 100  sub handler {
 </script>  </script>
 ENDJS  ENDJS
   
             my $start_page =              my $start_page = &Apache::loncommon::start_page('Evaluate Resource',$js);
         &Apache::loncommon::start_page('Evaluate Resource',$js);             $r->print($start_page
     $r->print('                       .'<h1>'.&mt('Thank you for your input!').'</h1>');
 '.$start_page.'             $r->print('<div class="LC_success">'
 <h1>'.&mt('Thank you for your input!').'</h1>                       .&mt('Saving feedback: [_1]'
 ');                           ,&Apache::lonnet::put('nohist_resevaldata',\%currenteval,$rdomain,$rauth))
        $r->print(&mt('Saving feedback: [_1]',                       .'</div>');
      &Apache::lonnet::put('nohist_resevaldata',\%currenteval,$rdomain,$rauth)));  
            unless ($already) {             unless ($already) {
        $r->print('<br />'.&mt('Logging first evaluation'));         $r->print('<br />'.&mt('Logging first evaluation'));
            }             }
Line 132  ENDJS Line 114  ENDJS
             '<script type="text/javascript">setTimeout("goback()",2000);</script>'.&Apache::loncommon::end_page());              '<script type="text/javascript">setTimeout("goback()",2000);</script>'.&Apache::loncommon::end_page());
            return OK;             return OK;
         } else {          } else {
     $warning=&mt('Please fill out all fields below');      $warning=&mt('Please fill out all fields below.');
         }          }
         
     }      }
Line 184  ENDOPTIONS Line 166  ENDOPTIONS
     );      );
     $r->print(<<ENDDOCUMENT);      $r->print(<<ENDDOCUMENT);
 $start_page  $start_page
 <h2><tt>$title</tt></h2><br /><br />  <h2>$title</h2>
 <h3><font color="red">$warning</font></h3>  <p class="LC_warning">$warning</p>
 $lt{'pleaserank'}<br />  $lt{'pleaserank'}<br />
 <form method="post" name="evaluation" action="/adm/evaluate">  <form method="post" name="evaluation" action="/adm/evaluate">
 <input type="hidden" name="submiteval" value="true" />  <input type="hidden" name="submiteval" value="true" />
Line 228  ENDDOCUMENT Line 210  ENDDOCUMENT
   
 1;  1;
 __END__  __END__
   
   =pod
   
   =head1 NAME
   
   Apache::lonevaluate.pm
   
   =head1 SYNOPSIS
   
   Handles evaluation.
   
   This is part of the LearningOnline Network with CAPA project
   described at http://www.lon-capa.org.
   
   =head1 OVERVIEW
   
   None
   
   =cut
Removed from v.1.25  
changed lines
  Added in v.1.27

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