--- loncom/interface/lonevaluate.pm 2009/09/04 16:12:09 1.29 +++ loncom/interface/lonevaluate.pm 2018/04/14 02:29:44 1.31 @@ -1,7 +1,7 @@ # The LearningOnline Network # Evaluate # -# $Id: lonevaluate.pm,v 1.29 2009/09/04 16:12:09 bisitz Exp $ +# $Id: lonevaluate.pm,v 1.31 2018/04/14 02:29:44 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -76,6 +76,11 @@ sub handler { my $warning=''; + my $windowname = 'loncapaclient'; + if ($env{'request.lti.login'}) { + $windowname .= 'lti'; + } + if ($env{'form.submiteval'} eq 'true') { # ------------------------------------------------ User is submitting something my $complete=1; @@ -90,7 +95,7 @@ sub handler { my $showurl=&Apache::lonenc::check_encrypt(&Apache::lonnet::clutter($feedurl)); my $js = &Apache::lonhtmlcommon::scripttag(< 'Please rank the following criteria:', + 'required' => '(All fields marked with * are required.)', 'correct' => 'The material appears to be correct', 'helpful' => 'The material is helpful', 'depth' => 'The material is covered with sufficient depth', @@ -183,22 +189,32 @@ ENDOPTIONS ); $r->print( $start_page - .'

'.$title.'

' - .'

'.$warning.'

' - .'
' + .'

'.$title.'

'); + + if ($warning) { + $r->print( + &Apache::loncommon::confirmwrapper( + &Apache::lonhtmlcommon::confirm_success( + $warning,1))); + } + $r->print( + '' .'' .'' ); $r->print( &Apache::lonhtmlcommon::start_pick_box() .&Apache::lonhtmlcommon::row_headline() - .$lt{'pleaserank'} + .$lt{'pleaserank'}.'
' + .''.$lt{'required'}.'' .&Apache::lonhtmlcommon::row_closure() ); foreach my $key ('correct', 'helpful', 'depth', 'clear', 'technical') { $r->print( - &Apache::lonhtmlcommon::row_title($lt{$key}) + &Apache::lonhtmlcommon::row_title( + ''.$lt{$key} + .' *') .''