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>' |