--- loncom/interface/lonevaluate.pm 2008/11/18 19:14:22 1.25 +++ loncom/interface/lonevaluate.pm 2008/11/26 10:51:36 1.27 @@ -1,7 +1,7 @@ # The LearningOnline Network # Evaluate # -# $Id: lonevaluate.pm,v 1.25 2008/11/18 19:14:22 jms Exp $ +# $Id: lonevaluate.pm,v 1.27 2008/11/26 10:51:36 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -26,24 +26,7 @@ # 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; @@ -117,14 +100,13 @@ sub handler { ENDJS - my $start_page = - &Apache::loncommon::start_page('Evaluate Resource',$js); - $r->print(' -'.$start_page.' -

'.&mt('Thank you for your input!').'

-'); - $r->print(&mt('Saving feedback: [_1]', - &Apache::lonnet::put('nohist_resevaldata',\%currenteval,$rdomain,$rauth))); + my $start_page = &Apache::loncommon::start_page('Evaluate Resource',$js); + $r->print($start_page + .'

'.&mt('Thank you for your input!').'

'); + $r->print('
' + .&mt('Saving feedback: [_1]' + ,&Apache::lonnet::put('nohist_resevaldata',\%currenteval,$rdomain,$rauth)) + .'
'); unless ($already) { $r->print('
'.&mt('Logging first evaluation')); } @@ -132,7 +114,7 @@ ENDJS ''.&Apache::loncommon::end_page()); return OK; } else { - $warning=&mt('Please fill out all fields below'); + $warning=&mt('Please fill out all fields below.'); } } @@ -184,8 +166,8 @@ ENDOPTIONS ); $r->print(<$title

-

$warning

+

$title

+

$warning

$lt{'pleaserank'}
@@ -228,3 +210,22 @@ ENDDOCUMENT 1; __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