--- loncom/interface/lonevaluate.pm 2008/11/21 20:17:11 1.26 +++ loncom/interface/lonevaluate.pm 2008/12/24 07:56:50 1.28 @@ -1,7 +1,7 @@ # The LearningOnline Network # Evaluate # -# $Id: lonevaluate.pm,v 1.26 2008/11/21 20:17:11 jms Exp $ +# $Id: lonevaluate.pm,v 1.28 2008/12/24 07:56:50 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -48,7 +48,7 @@ sub handler { &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']); my $feedurl=$env{'form.postdata'}; - $feedurl=~s/^http\:\/\///; + $feedurl=~s/^https?\:\/\///; $feedurl=~s/^$ENV{'SERVER_NAME'}//; $feedurl=~s/^$ENV{'HTTP_HOST'}//; @@ -100,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')); } @@ -115,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.'); } } @@ -167,8 +166,8 @@ ENDOPTIONS ); $r->print(<$title

-

$warning

+

$title

+

$warning

$lt{'pleaserank'}