loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/structuretags.pm between versions 1.512.2.9 and 1.562

version 1.512.2.9, 2015/03/11 14:50:10	version 1.562, 2018/12/26 19:40:04
Line 67 use lib '/home/httpd/lib/perl/';	Line 67 use lib '/home/httpd/lib/perl/';
use LONCAPA;	use LONCAPA;

BEGIN {	BEGIN {
&Apache::lonxml::register('Apache::structuretags',('block','languageblock','translated','instructorcomment','while','randomlist','problem','library','web','tex','part','preduedate','postanswerdate','solved','notsolved','problemtype','startpartmarker','startouttext','endpartmarker','endouttext','simpleeditbutton','definetag'));	&Apache::lonxml::register('Apache::structuretags',('block','languageblock','translated','instructorcomment','while','randomlist','problem','library','web','print','tex','part','preduedate','postanswerdate','solved','notsolved','problemtype','startpartmarker','startouttext','endpartmarker','endouttext','simpleeditbutton','definetag'));
}	}


Line 192 sub end_web {	Line 192 sub end_web {
return '';	return '';
}	}

	sub start_print {
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
	if ($target ne 'edit' && $target ne 'modified') {
	if ($target ne 'tex') {
	my $skip = &Apache::lonxml::get_all_text("/print",$parser,$style);
	&Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
	}
	} elsif ($target eq "edit") {
	my $bodytext = &Apache::lonxml::get_all_text_unbalanced("/print",$parser);
	my $result = &Apache::edit::tag_start($target,$token);
	$result .= &Apache::edit::editfield($token->[1],$bodytext,'',80,1);
	return $result;
	} elsif ($target eq "modified") {
	return $token->[4].&Apache::edit::modifiedfield("/print",$parser);
	}
	return '';
	}

	sub end_print {
	return '';
	}

sub start_tex {	sub start_tex {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result='';	my $result='';
Line 226 sub end_tex {	Line 248 sub end_tex {
sub homework_js {	sub homework_js {
my ($postsubmit,$timeout);	my ($postsubmit,$timeout);
if (($env{'request.course.id'}) && ($env{'request.state'} ne 'construct')) {	if (($env{'request.course.id'}) && ($env{'request.state'} ne 'construct')) {
my $crstype;	my $crstype = &Apache::loncommon::course_type();
if (&Apache::loncommon::course_type() eq 'Community') {	if ($crstype eq 'Community') {
$crstype = 'community';	$crstype = 'community';
	} elsif ($crstype eq 'Placement') {
	$crstype = 'placement';
} else {	} else {
if ($env{'course.'.$env{'request.course.id'}.'.internal.coursecode'}) {	if ($env{'course.'.$env{'request.course.id'}.'.internal.coursecode'}) {
$crstype = 'official';	$crstype = 'official';
Line 270 sub homework_js {	Line 294 sub homework_js {
$jstimeout = 1000 * $timeout;	$jstimeout = 1000 * $timeout;
}	}
return &Apache::loncommon::resize_textarea_js().	return &Apache::loncommon::resize_textarea_js().
	&Apache::loncommon::colorfuleditor_js().
&setmode_javascript().	&setmode_javascript().
<<"JS";	<<"JS";
<script type="text/javascript">	<script type="text/javascript">
Line 316 var keypresshandled = 0;	Line 341 var keypresshandled = 0;
var postsubmit = '$postsubmit';	var postsubmit = '$postsubmit';

\$(document).ready(function(){	\$(document).ready(function(){
if (postsubmit != 'off') {	if (postsubmit != 'off') {
\$(document).keypress(function(event){	\$(document).keypress(function(event){
var keycode = (event.keyCode ? event.keyCode : event.which);	var keycode = (event.keyCode ? event.keyCode : event.which);
if ((keycode == '13') && (keypresshandled == 0)) {	if ((keycode == '13') && (keypresshandled == 0)) {
Line 389 sub setmode_javascript {	Line 414 sub setmode_javascript {
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[
function setmode(form,probmode) {	function setmode(form,probmode) {
	var initial = form.problemmode.value;
form.problemmode.value = probmode;	form.problemmode.value = probmode;
form.submit();	form.submit();
	form.problemmode.value = initial;
}	}
// ]]>	// ]]>
</script>	</script>
Line 416 sub page_start {	Line 443 sub page_start {
$extra_head .= &homework_js().	$extra_head .= &homework_js().
&Apache::lonhtmlcommon::dragmath_js("EditMathPopup");	&Apache::lonhtmlcommon::dragmath_js("EditMathPopup");
if (&Apache::lonhtmlcommon::htmlareabrowser()) {	if (&Apache::lonhtmlcommon::htmlareabrowser()) {
my %textarea_args = (	my %textarea_args;
	if (($env{'request.state'} ne 'construct') \|\|
	($env{'environment.nocodemirror'})) {
	%textarea_args = (
dragmath => 'math',	dragmath => 'math',
);	);
	}
$extra_head .= &Apache::lonhtmlcommon::htmlareaselectactive(\%textarea_args);	$extra_head .= &Apache::lonhtmlcommon::htmlareaselectactive(\%textarea_args);
}	}
my $is_task = ($env{'request.uri'} =~ /\.task$/);	my $is_task = ($env{'request.uri'} =~ /\.task$/);
Line 489 sub page_start {	Line 520 sub page_start {
}	}
}	}
if ($needs_upload) {	if ($needs_upload) {
$extra_head .= &Apache::lonhtmlcommon::file_submissionchk_js();	$extra_head .= &Apache::lonhtmlcommon::file_submissionchk_js()
	.'<script type="text/javascript"
	src="/res/adm/includes/file_upload.js"></script>';
}	}
}	}

Line 520 sub page_start {	Line 553 sub page_start {
} elsif (!defined($found{'body'})	} elsif (!defined($found{'body'})
&& $env{'request.state'} eq 'construct') {	&& $env{'request.state'} eq 'construct') {
if ($target eq 'web' \|\| $target eq 'edit') {	if ($target eq 'web' \|\| $target eq 'edit') {
# Breadcrumbs for Authoring Space	unless ($env{'form.inhibitmenu'} eq 'yes') {
&Apache::lonhtmlcommon::clear_breadcrumbs();	# Breadcrumbs for Authoring Space
&Apache::lonhtmlcommon::add_breadcrumb({	&Apache::lonhtmlcommon::clear_breadcrumbs();
'text' => 'Authoring Space',	&Apache::lonhtmlcommon::add_breadcrumb({
'href' => &Apache::loncommon::authorspace($env{'request.uri'}),	'text' => 'Authoring Space',
});	'href' => &Apache::loncommon::authorspace($env{'request.uri'}),
# breadcrumbs (and tools) will be created	});
# in start_page->bodytag->innerregister	# breadcrumbs (and tools) will be created
	# in start_page->bodytag->innerregister

# FIXME Where are we?	# FIXME Where are we?
# &Apache::lonhtmlcommon::add_breadcrumb({	# &Apache::lonhtmlcommon::add_breadcrumb({
# 'text' => 'Problem Editing', # 'Problem Testing'	# 'text' => 'Problem Editing', # 'Problem Testing'
# 'href' => '',	# 'href' => '',
# });	# });
$pageheader =&Apache::loncommon::head_subbox(	$pageheader = &Apache::loncommon::head_subbox(
&Apache::loncommon::CSTR_pageheader());	&Apache::loncommon::CSTR_pageheader());
}	}
	}
} elsif (!defined($found{'body'})) {	} elsif (!defined($found{'body'})) {
my %add_entries;	my %add_entries;
my $background=&Apache::lonxml::get_param('background',$parstack,	my $background=&Apache::lonxml::get_param('background',$parstack,
Line 643 sub setup_rndseed {	Line 678 sub setup_rndseed {
unless (defined($questiontype)) {	unless (defined($questiontype)) {
$questiontype = $Apache::lonhomework::type;	$questiontype = $Apache::lonhomework::type;
}	}
if ($env{'request.state'} eq "construct"	if (($env{'request.state'} eq "construct")
\|\| $symb eq ''	\|\| ($symb eq '')
\|\| $Apache::lonhomework::type eq 'practice'	\|\| ($Apache::lonhomework::type eq 'practice')
\|\| $Apache::lonhomework::history{'resource.CODE'}) {	\|\| ($Apache::lonhomework::history{'resource.CODE'})
	\|\| (($env{'form.code_for_randomlist'}) && ($target eq 'analyze'))) {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['rndseed']);	['rndseed']);
$rndseed=$env{'form.rndseed'};	$rndseed=$env{'form.rndseed'};
Line 655 sub setup_rndseed {	Line 691 sub setup_rndseed {
if (!$rndseed) {	if (!$rndseed) {
$rndseed=time;	$rndseed=time;
}	}
$env{'form.rndseed'}=$rndseed;	unless ($env{'form.code_for_randomlist'}) {
	$env{'form.rndseed'}=$rndseed;
	}
}	}
if (($env{'request.state'} eq "construct") &&	if (($env{'request.state'} eq "construct") &&
($Apache::lonhomework::type eq 'randomizetry')) {	($Apache::lonhomework::type eq 'randomizetry')) {
Line 665 sub setup_rndseed {	Line 703 sub setup_rndseed {
}	}
$env{'form.'.$Apache::inputtags::part.'.rndseed'}=$rndseed;	$env{'form.'.$Apache::inputtags::part.'.rndseed'}=$rndseed;
}	}
if ( ($env{'form.resetdata'} eq &mt('New Problem Variation')	if ( ($env{'form.resetdata'} eq 'new_problem_variation'
&& $env{'form.submitted'} eq 'yes') \|\|	&& $env{'form.submitted'} eq 'yes') \|\|
$env{'form.newrandomization'} eq &mt('New Randomization')) {	$env{'form.newrandomization'} eq &mt('New Randomization')) {
srand(time);	srand(time);
Line 683 sub setup_rndseed {	Line 721 sub setup_rndseed {
$rndseed=join(':',&Apache::lonnet::digest($rndseed));	$rndseed=join(':',&Apache::lonnet::digest($rndseed));
}	}
}	}
if ($Apache::lonhomework::history{'resource.CODE'}) {	if (($env{'form.code_for_randomlist'}) && ($target eq 'analyze')) {
	$env{'form.CODE'} = $env{'form.code_for_randomlist'};
	$rndseed=&Apache::lonnet::rndseed();
	undef($env{'form.CODE'});
	} elsif ($Apache::lonhomework::history{'resource.CODE'}) {
$rndseed=&Apache::lonnet::rndseed();	$rndseed=&Apache::lonnet::rndseed();
}	}
$set_safespace = 1;	$set_safespace = 1;
Line 751 sub problem_edit_action_button {	Line 793 sub problem_edit_action_button {

sub problem_edit_buttons {	sub problem_edit_buttons {
my ($mode)=@_;	my ($mode)=@_;
	# Buttons that save
	my $result = '<div style="float:right">';
	if ($mode eq 'editxml') {
	$result.=&problem_edit_action_button('subsaveedit','saveeditxml','s','Save and EditXML');
	$result.=&problem_edit_action_button('subsaveview','saveviewxml','v','Save and View');
	} else {
	$result.=&problem_edit_action_button('subsaveedit','saveedit','s','Save and Edit');
	$result.=&problem_edit_action_button('subsaveview','saveview','v','Save and View');
	}
	$result.="\n</div>\n";
# Buttons that do not save	# Buttons that do not save
my $result='<div class="LC_edit_problem_discards">'.	$result .= '<div>'.
&problem_edit_action_button('subdiscview','discard','d','Discard Edits and View',1);	&problem_edit_action_button('subdiscview','discard','d','Discard Edits and View',1);
if ($mode eq 'editxml') {	if ($mode eq 'editxml') {
$result.=&problem_edit_action_button('subedit','edit','e','Edit',1);	$result.=&problem_edit_action_button('subedit','edit','e','Edit',1);
$result.=&problem_edit_action_button('subundo','undoxml','u','Undo',1);	$result.=&problem_edit_action_button('subundo','undoxml','u','Undo',1);
$result.=&Apache::lonhtmlcommon::dragmath_button("LC_editxmltext",1);	if ($env{'environment.nocodemirror'}) {
	$result.=&Apache::lonhtmlcommon::dragmath_button("LC_editxmltext",1);
	}
} else {	} else {
$result.=&problem_edit_action_button('subeditxml','editxml','x','EditXML',1);	$result.=&problem_edit_action_button('subeditxml','editxml','x','EditXML',1);
$result.=&problem_edit_action_button('subundo','undo','u','Undo',1);	$result.=&problem_edit_action_button('subundo','undo','u','Undo',1);
}	}
$result.="\n</div>";	$result.="\n</div>";
# Buttons that save
$result.='<div class="LC_edit_problem_saves">';
if ($mode eq 'editxml') {
$result.=&problem_edit_action_button('subsaveedit','saveeditxml','s','Save and EditXML');
$result.=&problem_edit_action_button('subsaveview','saveviewxml','v','Save and View');
} else {
$result.=&problem_edit_action_button('subsaveedit','saveedit','s','Save and Edit');
$result.=&problem_edit_action_button('subsaveview','saveview','v','Save and View');
}
$result.="\n</div>\n";
return $result;	return $result;
}	}

sub problem_edit_header {	sub problem_edit_header {
return '<input type="hidden" name="submitted" value="edit" />'.	my ($mode)=@_;
	my $return = '<input type="hidden" name="submitted" value="edit" />'.
&remember_problem_state('edit').'	&remember_problem_state('edit').'
<div class="LC_edit_problem_header">	<div class="LC_edit_problem_header">
<div class="LC_edit_problem_header_title">	<div class="LC_edit_problem_header_title">
'.&mt('Problem Editing').&Apache::loncommon::help_open_menu('Problem Editing','Problem_Editor_XML_Index',5,'Authoring').'	'.&mt('Problem Editing').$mode.&Apache::loncommon::help_open_menu('Problem Editing','Problem_Editor_XML_Index',5,'Authoring').'
</div>'.	</div><div class="LC_edit_actionbar" id="actionbar">'.
'<input type="hidden" name="problemmode" value="saveedit" />'.	'<input type="hidden" name="problemmode" value="saveedit" />'.
&problem_edit_buttons().'	&problem_edit_buttons();
<hr style="clear:both;" />
'.&Apache::lonxml::message_location().'	$return .= '</div></div>' . &Apache::lonxml::message_location();
</div>	$return .= '<link rel="stylesheet" href="/adm/codemirror/codemirror-combined.css" />
'.	<script type="text/javascript" src="/adm/codemirror/codemirror-compressed-colorful.js"></script>';
'<table id="LC_edit_problem_colorful" border="0" width="100%"><tr><td bgcolor="#F8F8F8">';
	$return .= '<script type="text/javascript" src="/adm/jQuery/addons/jquery-scrolltofixed.js"></script>
	<script type="text/javascript">
	// unless internet explorer
	if (!(window.navigator.appName == "Microsoft Internet Explorer" && (document.documentMode \|\| document.compatMode))){
	$(document).ready(
	function() {
	$(\'.LC_edit_actionbar\').scrollToFixed(
	{
	fixed: function(){
	//$(this).find(\'.LC_edit_actionbar\').css(\'height\', \'31px\');
	$(this).find(\'.LC_edit_actionbar\');
	}
	}
	);
	}
	);
	}
	</script>
	<table id="LC_edit_problem_colorful" border="0" width="100%"><tr><td bgcolor="#F8F8F8">';
	return $return;
}	}

sub problem_edit_footer {	sub problem_edit_footer {
	my $resource = $env{'request.ambiguous'};
return '</td></tr></table><br />	return '</td></tr></table><br />
<div class="LC_edit_problem_footer">	<div class="LC_edit_problem_footer">
<hr />'.	<hr />'.
&problem_edit_buttons().'	&problem_edit_buttons().'
<hr style="clear:both;" />	<hr style="clear:both;" />
	<script type="text/javascript">
	restoreState("'.$resource.'");
	restoreScrollPosition("'.$resource.'");
	</script>
</div>	</div>
'.	'.
"\n</form>\n".&Apache::loncommon::end_page();	"\n</form>\n".&Apache::loncommon::end_page();
Line 862 sub problem_web_to_edit_header {	Line 932 sub problem_web_to_edit_header {
".&mt("Problem Type:")."	".&mt("Problem Type:")."
<select name='problemtype'>	<select name='problemtype'>
<option value=''></option>	<option value=''></option>
".&option('exam' ,'problemtype').&mt("Exam Problem")."</option>	".&option('exam' ,'problemtype').&mt("Bubblesheet Exam Problem")."</option>
".&option('problem','problemtype').&mt("Homework Problem")."</option>	".&option('problem','problemtype').&mt("Homework Problem")."</option>
".&option('survey' ,'problemtype').&mt("Survey Question")."</option>	".&option('survey' ,'problemtype').&mt("Survey Question")."</option>
".&option('surveycred' ,'problemtype').&mt("Survey Question (with credit)")."</option>	".&option('surveycred' ,'problemtype').&mt("Survey Question (with credit)")."</option>
Line 914 $show_all	Line 984 $show_all
</div>	</div>
<input type="submit" name="changeproblemmode" value="'.&mt("Change View").'" />	<input type="submit" name="changeproblemmode" value="'.&mt("Change View").'" />
<input type="submit" name="clear_style_file" accesskey="d" value="'.&mt('Show Default View').'" />	<input type="submit" name="clear_style_file" accesskey="d" value="'.&mt('Show Default View').'" />
<input type="submit" name="resetdata" accesskey="r" value="'.&mt('Reset Submissions').'" />	<button type="submit" name="resetdata" accesskey="r" value="reset_submissions">
	'.&mt('Reset Submissions').'</button>
</div>	</div>
<hr />	<hr />
<div class="LC_edit_problem_header_randomize_row">	<div class="LC_edit_problem_header_randomize_row">
Line 947 $show_all	Line 1018 $show_all
'onclick="javascript:setmode(this.form,'."'edit'".')" />';	'onclick="javascript:setmode(this.form,'."'edit'".')" />';
$result .= '<input type="button" name="submitmode" accesskey="x" value="'.&mt('EditXML').'" '.	$result .= '<input type="button" name="submitmode" accesskey="x" value="'.&mt('EditXML').'" '.
'onclick="javascript:setmode(this.form,'."'editxml'".')" />';	'onclick="javascript:setmode(this.form,'."'editxml'".')" />';
	if ($env{'browser.type'} ne 'explorer' \|\| $env{'browser.version'} > 9) {
	my $uri = $env{'request.uri'};
	my $daxeurl = '/daxepage'.$uri;
	$result .= '<input type="button" value="'.&mt('Edit with Daxe').'" '.
	'onclick="window.open(\''.$daxeurl.'\',\'_blank\');" />';
	}
$result.='	$result.='
</div>	</div>
<hr />	<hr />
Line 973 sub initialize_storage {	Line 1050 sub initialize_storage {
\|\| $Apache::lonhomework::type eq 'practice') {	\|\| $Apache::lonhomework::type eq 'practice') {

my $namespace = $symb \|\| $env{'request.uri'};	my $namespace = $symb \|\| $env{'request.uri'};
if ($env{'form.resetdata'} eq &mt('Reset Submissions') \|\|	if ($env{'form.resetdata'} eq 'reset_submissions' \|\|
($env{'form.resetdata'} eq &mt('New Problem Variation')	($env{'form.resetdata'} eq 'new_problem_variation'
&& $env{'form.submitted'} eq 'yes') \|\|	&& $env{'form.submitted'} eq 'yes') \|\|
$env{'form.newrandomization'} eq &mt('New Randomization')) {	$env{'form.newrandomization'} eq &mt('New Randomization')) {
&Apache::lonnet::tmpreset($namespace,'',$domain,$name);	&Apache::lonnet::tmpreset($namespace,'',$domain,$name);
Line 982 sub initialize_storage {	Line 1059 sub initialize_storage {
}	}
%Apache::lonhomework::history=	%Apache::lonhomework::history=
&Apache::lonnet::tmprestore($namespace,'',$domain,$name);	&Apache::lonnet::tmprestore($namespace,'',$domain,$name);
my ($temp)=keys(%Apache::lonhomework::history);	my ($temp)=keys(%Apache::lonhomework::history) ;
&Apache::lonxml::debug("Return message of $temp");	&Apache::lonxml::debug("Return message of $temp");
} else {	} else {
%Apache::lonhomework::history=	%Apache::lonhomework::history=
Line 1005 sub initialize_storage {	Line 1082 sub initialize_storage {
&check_correctness_changes() is called in two circumstances	&check_correctness_changes() is called in two circumstances
in which the results hash is to be stored permanently, for	in which the results hash is to be stored permanently, for
grading triggered by a student's submission, where feedback on	grading triggered by a student's submission, where feedback on
correctness is to be provided to the student.	correctness is to be provided to the student.

1. Immediately prior to storing the results hash	1. Immediately prior to storing the results hash

To handle the case where a student's submission (and award) were	To handle the case where a student's submission (and award) were
stored after history was retrieved in &initialize_storage(), e.g.,	stored after history was retrieved in &initialize_storage(), e.g.,
if a student submitted answers in quick succession (e.g., from	if a student submitted answers in quick succession (e.g., from
multiple tabs). &Apache::inputtags::hidealldata() is called for	multiple tabs). &Apache::inputtags::hidealldata() is called for
any parts with out-of-order storage (i.e., correct then incorrect,	any parts with out-of-order storage (i.e., correct then incorrect,
where awarded >= 1 when correct).	where awarded >= 1 when correct).
Line 1021 sub initialize_storage {	Line 1098 sub initialize_storage {
To handle the case where lond on the student's homeserver returns	To handle the case where lond on the student's homeserver returns
delay:N -- where N is the number of transactions between the last	delay:N -- where N is the number of transactions between the last
retrieved in &initialize_storage() and the last stored immediately	retrieved in &initialize_storage() and the last stored immediately
before permanent storage of the current transaction via	before permanent storage of the current transaction via
lond::store_handler(). &Apache::grades::makehidden() is called	lond::store_handler(). &Apache::grades::makehidden() is called
for any parts with out-of-order storage (i.e., correct then incorrect,	for any parts with out-of-order storage (i.e., correct then incorrect,
where awarded >= 1 when correct).	where awarded >= 1 when correct).

Will call &store_aggregates() to increment totals for attempts,	Will call &store_aggregates() to increment totals for attempts,
students, and corrects, if running user has student role.	students, and corrects, if running user has student role.

=cut	=cut


Line 1040 sub finalize_storage {	Line 1117 sub finalize_storage {
delete(@Apache::lonhomework::results{@remove});	delete(@Apache::lonhomework::results{@remove});
my ($symb,$courseid,$domain,$name) =	my ($symb,$courseid,$domain,$name) =
&Apache::lonnet::whichuser($given_symb);	&Apache::lonnet::whichuser($given_symb);
	my ($passback,$ltiscope,$ltimap,$ltisymb,$ltiref,$total,$possible,$dopassback);
if ($env{'request.state'} eq 'construct'	if ($env{'request.state'} eq 'construct'
\|\| $symb eq ''	\|\| $symb eq ''
\|\| $Apache::lonhomework::type eq 'practice') {	\|\| $Apache::lonhomework::type eq 'practice') {
Line 1049 sub finalize_storage {	Line 1127 sub finalize_storage {
$namespace,'',$domain,$name);	$namespace,'',$domain,$name);
&Apache::lonxml::debug('Construct Store return message:'.$result);	&Apache::lonxml::debug('Construct Store return message:'.$result);
} else {	} else {
my ($laststore,$checkedparts,@parts,%postcorrect);	my ($laststore,$checkedparts,@parts,%postcorrect,%record);
if (($env{'user.name'} eq $name) && ($env{'user.domain'} eq $domain) &&	if (($env{'user.name'} eq $name) && ($env{'user.domain'} eq $domain) &&
(!$Apache::lonhomework::scantronmode) && (!defined($env{'form.grade_symb'})) &&	(!$Apache::lonhomework::scantronmode) && (!defined($env{'form.grade_symb'})) &&
(!defined($env{'form.grade_courseid'}))) {	(!defined($env{'form.grade_courseid'}))) {
	if ($env{'request.lti.login'}) {
	my ($map)=&Apache::lonnet::decode_symb($symb);
	$map = &Apache::lonnet::clutter($map);
	($passback,$ltiscope,$ltimap,$ltisymb,$ltiref) =
	&needs_lti_passback($courseid,$symb,$map);
	}
if ($Apache::lonhomework::history{'version'}) {	if ($Apache::lonhomework::history{'version'}) {
$laststore = $Apache::lonhomework::history{'version'}.'='.	$laststore = $Apache::lonhomework::history{'version'}.'='.
$Apache::lonhomework::history{'timestamp'};	$Apache::lonhomework::history{'timestamp'};
} else {	} else {
$laststore = '0=0';	$laststore = '0=0';
}	}
my %record = &Apache::lonnet::restore($symb,$courseid,$domain,$name);	%record = &Apache::lonnet::restore($symb,$courseid,$domain,$name);
if ($record{'version'}) {	if ($record{'version'}) {
my ($newversion,$oldversion,$oldtimestamp);	my ($newversion,$oldversion,$oldtimestamp);
if ($Apache::lonhomework::history{'version'}) {	if ($Apache::lonhomework::history{'version'}) {
Line 1135 sub finalize_storage {	Line 1219 sub finalize_storage {
}	}
}	}
}	}
	if ($passback) {
	foreach my $key (keys(%Apache::lonhomework::results)) {
	if ($key =~ /^resource\.([^\.]+)\.solved$/) {
	my $part = $1;
	if ((($Apache::lonhomework::results{$key} =~ /^correct_/) \|\|
	($Apache::lonhomework::results{$key} eq 'incorrect_attempted')) &&
	($Apache::lonhomework::results{"resource.$part.tries"})) {
	$dopassback = 1;
	last;
	}
	}
	}
	}
	if (($dopassback) && ($ltiscope eq 'resource') && ($ltisymb eq $symb)) {
	$total = 0;
	$possible = 0;
	my $navmap = Apache::lonnavmaps::navmap->new();
	if (ref($navmap)) {
	my $res = $navmap->getBySymb($symb);
	if (ref($res)) {
	my $partlist = $res->parts();
	if (ref($partlist) eq 'ARRAY') {
	foreach my $part (@{$partlist}) {
	unless (exists($Apache::lonhomework::results{"resource.$part.solved"})) {
	next if ($Apache::lonhomework::record{"resource.$part.solved"} =~/^excused/);
	my $weight = &Apache::lonnet::EXT("resource.$part.weight",$symb);
	$possible += $weight;
	if (($record{'version'}) && (exists($record{"resource.$part.awarded"}))) {
	my $awarded = $record{"resource.$part.awarded"};
	if ($awarded) {
	$total += $weight * $awarded;
	}
	}
	}
	}
	}
	}
	}
	foreach my $key (keys(%Apache::lonhomework::results)) {
	if ($key =~ /^resource\.([^\.]+)\.awarded$/) {
	my $part = $1;
	my $weight = &Apache::lonnet::EXT("resource.$part.weight",$symb);
	$possible += $weight;
	my $awarded = $Apache::lonhomework::results{$key};
	if ($awarded) {
	$total += $weight * $awarded;
	}
	}
	}
	}
&Apache::lonxml::debug('Store return message:'.$result);	&Apache::lonxml::debug('Store return message:'.$result);
&store_aggregates($symb,$courseid);	&store_aggregates($symb,$courseid);
	if ($dopassback) {
	my $scoreformat = 'decimal';
	if (ref($ltiref) eq 'HASH') {
	if ($ltiref->{'scoreformat'} =~ /^(decimal\|ratio\|percentage)$/) {
	$scoreformat = $1;
	}
	}
	my $ltigrade = {
	'lti' => $ltiref,
	'cid' => $courseid,
	'uname' => $env{'user.name'},
	'udom' => $env{'user.domain'},
	'pbid' => $env{'request.lti.passbackid'},
	'pburl' => $env{'request.lti.passbackurl'},
	'scope' => $ltiscope,
	'ltimap' => $ltimap,
	'ltisymb' => $ltisymb,
	'format' => $scoreformat,
	};
	if ($ltiscope eq 'resource') {
	$ltigrade->{'total'} = $total;
	$ltigrade->{'possible'} = $possible;
	}
	push(@Apache::lonhomework::ltipassback,$ltigrade);
	}
}	}
} else {	} else {
&Apache::lonxml::debug('Nothing to store');	&Apache::lonxml::debug('Nothing to store');
Line 1144 sub finalize_storage {	Line 1303 sub finalize_storage {
return $result;	return $result;
}	}

	sub needs_lti_passback {
	my ($courseid,$symb,$map) = @_;
	if (($env{'request.lti.passbackid'}) && ($env{'request.lti.passbackurl'})) {
	if ($courseid =~ /^($LONCAPA::match_domain)_($LONCAPA::match_courseid)$/) {
	my ($cdom,$cnum) = ($1,$2);
	my %lti = &Apache::lonnet::get_domain_lti($cdom,'provider');
	if (ref($lti{$env{'request.lti.login'}}) eq 'HASH') {
	if ($lti{$env{'request.lti.login'}}{'passback'}) {
	my ($ltiscope,$ltiuri,$ltisymb) =
	&LONCAPA::ltiutils::lti_provider_scope($env{'request.lti.uri'},
	$cdom,$cnum,1);
	my ($passback,$ltimap);
	if ($ltiscope eq 'resource') {
	if ($ltisymb eq $symb) {
	$passback = 1;
	}
	} elsif ($ltiscope eq 'map') {
	if ($ltiuri eq $map) {
	$passback = 1;
	$ltimap = $map;
	}
	} elsif ($ltiscope eq 'course') {
	if (($env{'request.lti.uri'} eq "/$cdom/$cnum") \|\| ($env{'request.lti.uri'} eq '')) {
	$passback = 1;
	}
	}
	return ($passback,$ltiscope,$ltimap,$ltisymb,$lti{$env{'request.lti.login'}});
	}
	}
	}
	}
	return;
	}

=pod	=pod

=item check_correctness_changes()	=item check_correctness_changes()

For all parts for which current results contain a solved status	For all parts for which current results contain a solved status
of "incorrect_attempted", check if there was a transaction in which	of "incorrect_attempted", check if there was a transaction in which
solved was set to "correct_by_student" in the time since the last	solved was set to "correct_by_student" in the time since the last
transaction (retrieved when &initialize_storage() was called i.e.,	transaction (retrieved when &initialize_storage() was called i.e.,
when &start_problem() was called), unless:	when &start_problem() was called), unless:
(a) questiontype parameter is set to survey or anonymous survey (+/- credit)	(a) questiontype parameter is set to survey or anonymous survey (+/- credit)
(b) problemstatus is set to no or no_feedback_ever	(b) problemstatus is set to no or no_feedback_ever
If such a transaction exists, and did not occur after "reset status"	If such a transaction exists, and did not occur after "reset status"
by a user with grading privileges, then the current transaction is an	by a user with grading privileges, then the current transaction is an
example of an out-of-order transaction (i.e., incorrect occurring after	example of an out-of-order transaction (i.e., incorrect occurring after
correct). Accordingly, the current transaction should be hidden.	correct). Accordingly, the current transaction should be hidden.
Line 1249 sub store_aggregates {	Line 1442 sub store_aggregates {
} else {	} else {
$anoncounter{$symb."\0".$part} = 1;	$anoncounter{$symb."\0".$part} = 1;
}	}
my $needsrelease = $Apache::lonnet::needsrelease{'parameter:type:'.$Apache::lonhomework::results{'resource.'.$part.'.type'}};	my $needsrelease = $Apache::lonnet::needsrelease{'parameter:type:'.$Apache::lonhomework::results{'resource.'.$part.'.type'}.'::'};
if ($needsrelease) {	if ($needsrelease) {
my $curr_required = $env{'course.'.$env{'request.course.id'}.'.internal.releaserequired'};	my $curr_required = $env{'course.'.$env{'request.course.id'}.'.internal.releaserequired'};
if ($curr_required eq '') {	if ($curr_required eq '') {
&Apache::lonnet::update_released_required($needsrelease);	&Apache::lonnet::update_released_required($needsrelease);
Line 1278 sub store_aggregates {	Line 1471 sub store_aggregates {
}	}
}	}

	sub access_status_msg {
	my ($mode,$status,$symb,$target,$ipused,$accessmsg) = @_;
	my $msg;
	if ($target eq 'web') {
	if ($status eq 'UNAVAILABLE') {
	$msg.='<p class="LC_error">'.&mt('Unable to determine if this resource is open due to network problems. Please try again later.').'</p>';
	} elsif ($status eq 'NOT_IN_A_SLOT') {
	$msg.='<p class="LC_warning">'.&mt('You are not currently signed up to work at this time and/or place.').'</p>';
	} elsif (($status eq 'RESERVABLE') \|\| ($status eq 'RESERVABLE_LATER') \|\|
	($status eq 'NOTRESERVABLE')) {
	$msg.='<p class="LC_warning">'.&mt('Access requires reservation to work at specific time/place.').'</p>';
	} elsif ($status ne 'NOT_YET_VIEWED') {
	$msg.='<p class="LC_warning">'.&mt('Not open to be viewed').'</p>';
	}
	if ($status eq 'CLOSED' \|\| $status eq 'INVALID_ACCESS') {
	$msg.=&mt('The problem ').$accessmsg;
	} elsif ($status eq 'UNCHECKEDOUT') {
	$msg.=&checkout_msg();
	} elsif ($status eq 'NOT_YET_VIEWED') {
	$msg.=&firstaccess_msg($accessmsg,$symb);
	} elsif ($status eq 'NOT_IN_A_SLOT') {
	$msg.=&Apache::bridgetask::add_request_another_attempt_button("Sign up for time to work");
	} elsif ($status eq 'RESERVABLE') {
	$msg.=&mt('Available to make a reservation.').' '.&mt('Reservation window closes [_1].',
	&Apache::lonnavmaps::timeToHumanString($accessmsg,'end')).
	'<br />'.
	&Apache::bridgetask::add_request_another_attempt_button("Sign up for time to work");
	} elsif ($status eq 'RESERVABLE_LATER') {
	$msg.=&mt('Window to make a reservation will open [_1].',
	&Apache::lonnavmaps::timeToHumanString($accessmsg,'start'));
	} elsif ($status eq 'NOTRESERVABLE') {
	$msg.=&mt('Not available to make a reservation.');
	} elsif ($status eq 'NEED_DIFFERENT_IP') {
	if ($ipused) {
	$msg.=&mt('You must use the same computer ([_1]) you used when you first accessed this resource using your time/place-based reservation.',"IP: $ipused");
	} else {
	$msg.=&mt('Each student must use a different computer to access this resource at this time and/or place.').'<br />'.
	&mt('Somebody else has already used this particular computer for that purpose.');
	}
	}
	$msg.='<br />';
	} elsif ($target eq 'tex') {
	my $startminipage = ($env{'form.problem_split'}=~/yes/i)? ''
	: '\begin{minipage}{\textwidth}';

	$msg ='\noindent \vskip 1 mm '.
	$startminipage.'\vskip 0 mm';
	if ($status eq 'UNAVAILABLE') {
	$msg.=&mt('Unable to determine if this resource is open due to network problems. Please try again later.').'\vskip 0 mm ';
	} else {
	$msg.=&mt('Problem is not open to be viewed. It')." $accessmsg \\vskip 0 mm ";
	}
	}
	return $msg;
	}

	sub checkin_prompt {
	my ($target,$slot_name,$slot,$type) = @_;
	my $result;
	if ($target eq 'web') {
	$result = &Apache::bridgetask::proctor_validation_screen($slot);
	} elsif ($target eq 'grade') {
	if (!&Apache::bridgetask::proctor_check_auth($slot_name,$slot,$type)) {
	$result = &mt('An error occurred during check-in');
	}
	}
	return $result;
	}

	sub selfcheckin_resource {
	my ($resource_due,$slot_name,$slot,$symb) = @_;
	if ($slot_name ne '') {
	my $checked_in =
	$Apache::lonhomework::history{'resource.0.checkedin'};
	if ($checked_in eq '') {
	# unproctored slot access, self checkin
	my $needsiptied;
	if (ref($slot)) {
	$needsiptied = $slot->{'iptied'};
	}
	my $check = &Apache::bridgetask::check_in('problem',undef,undef,
	$slot_name,$needsiptied);
	if ($check =~ /^error: /) {
	&Apache::lonnet::logthis("Error during self-checkin of problem (symb: $symb) using slot: $slot_name");
	} else {
	$checked_in = $Apache::lonhomework::results{"resource.0.checkedin"};
	}
	}
	if ((ref($slot) eq 'HASH') && ($checked_in ne '')) {
	if ($slot->{'starttime'} < time()) {
	if (!$resource_due) {
	$resource_due = $slot->{'endtime'};
	} elsif ($slot->{'endtime'} < $resource_due) {
	$resource_due = $slot->{'endtime'};
	}
	}
	}
	}
	return $resource_due;
	}

sub checkout_msg {	sub checkout_msg {
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'resource'=>'The resource needs to be checked out',	'resource'=>'The resource needs to be checked out',
'id_expln'=>'As a resource gets checked out, a unique timestamped ID is given to it, and a permanent record is left in the system.',	'id_expln'=>'As a resource gets checked out, a unique timestamped ID is given to it, and a permanent record is left in the system.',
'warning'=>'Checking out resources is subject to course policies, and may exclude future credit even if done erroneously.',	'warning'=>'Checking out resources is subject to course policies, and may exclude future credit even if done erroneously.',
'checkout'=>'Check out Exam for Viewing',	'checkout'=>'Check out Bubblesheet Exam for Viewing',
'checkout?'=>'Check out Exam?');	'checkout?'=>'Check out Bubblesheet Exam?');
my $uri = &Apache::lonenc::check_encrypt($env{'request.uri'});	my $uri = &Apache::lonenc::check_encrypt($env{'request.uri'});
return (<<ENDCHECKOUT);	return (<<ENDCHECKOUT);
<h2>$lt{'resource'}</h2>	<h2>$lt{'resource'}</h2>
Line 1361 sub init_problem_globals {	Line 1655 sub init_problem_globals {
@Apache::inputtags::importlist = ();	@Apache::inputtags::importlist = ();
@Apache::inputtags::previous=();	@Apache::inputtags::previous=();
@Apache::inputtags::previous_version=();	@Apache::inputtags::previous_version=();
	$Apache::inputtags::leniency='';
$Apache::structuretags::printanswer='No';	$Apache::structuretags::printanswer='No';
@Apache::structuretags::whileconds=();	@Apache::structuretags::whileconds=();
@Apache::structuretags::whilebody=();	@Apache::structuretags::whilebody=();
Line 1376 sub reset_problem_globals {	Line 1671 sub reset_problem_globals {
undef(%Apache::lonhomework::history);	undef(%Apache::lonhomework::history);
undef(%Apache::lonhomework::results);	undef(%Apache::lonhomework::results);
undef($Apache::inputtags::part);	undef($Apache::inputtags::part);
	undef($Apache::inputtags::leniency);
if ($type eq 'Task') {	if ($type eq 'Task') {
undef($Apache::inputtags::slot_name);	undef($Apache::inputtags::slot_name);
} elsif ($type eq 'problem') {	} elsif ($type eq 'problem') {
Line 1479 sub start_problem {	Line 1775 sub start_problem {
my $status;	my $status;
my $accessmsg;	my $accessmsg;
my $resource_due;	my $resource_due;
	my $ipused;

my $name= &get_resource_name($parstack,$safeeval);	my $name= &get_resource_name($parstack,$safeeval);
my ($result,$form_tag_start,$slot_name,$slot,$probpartlist);	my ($result,$form_tag_start,$slot_name,$slot,$probpartlist,$firstaccres);

if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'answer' \|\|	if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'answer' \|\|
$target eq 'tex') {	$target eq 'tex') {
if ($env{'form.markaccess'}) {	if ($env{'form.markaccess'}) {
my @interval=&Apache::lonnet::EXT("resource.0.interval");	my @interval=&Apache::lonnet::EXT("resource.0.interval");
&Apache::lonnet::set_first_access($interval[1],$interval[0]);	my ($timelimit) = split(/_/,$interval[0]);
	my $is_set = &Apache::lonnet::set_first_access($interval[1],$timelimit);
	unless (($is_set eq 'ok') \|\| ($is_set eq 'already_set')) {
	$firstaccres = $is_set;
	}
}	}

($status,$accessmsg,$slot_name,$slot) =
&Apache::lonhomework::check_slot_access('0','problem');
push (@Apache::inputtags::status,$status);
}	}

if ($target eq 'web' \|\| $target eq 'webgrade' \|\| $target eq 'tex'	if ($target eq 'web' \|\| $target eq 'webgrade' \|\| $target eq 'tex'
Line 1500 sub start_problem {	Line 1797 sub start_problem {
($result,$form_tag_start,$probpartlist) =	($result,$form_tag_start,$probpartlist) =
&page_start($target,$token,$tagstack,$parstack,$parser,$safeeval,	&page_start($target,$token,$tagstack,$parstack,$parser,$safeeval,
$name);	$name);
} elsif (($target eq 'grade') && ($Apache::lonhomework::type eq 'randomizetry')) {	} elsif ((($target eq 'grade') && ($Apache::lonhomework::type eq 'randomizetry')) \|\|
	($target eq 'answer')) {
my ($symb)= &Apache::lonnet::whichuser();	my ($symb)= &Apache::lonnet::whichuser();
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
if (ref($navmap)) {	if (ref($navmap)) {
Line 1511 sub start_problem {	Line 1809 sub start_problem {
}	}
}	}

	if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'answer' \|\|
	$target eq 'tex') {

	my ($symb)= &Apache::lonnet::whichuser();
	($status,$accessmsg,$slot_name,$slot,$ipused) =
	&Apache::lonhomework::check_slot_access('0','problem',$symb,$probpartlist);
	push (@Apache::inputtags::status,$status);
	}

if ($target eq 'tex' and $env{'request.symb'} =~ m/\.page_/) {$result='';}	if ($target eq 'tex' and $env{'request.symb'} =~ m/\.page_/) {$result='';}

if ($target eq 'analyze') { my $rndseed=&setup_rndseed($safeeval,$target); }	if ($target eq 'analyze') { my $rndseed=&setup_rndseed($safeeval,$target); }
Line 1538 sub start_problem {	Line 1845 sub start_problem {
($symb eq '' \|\| $Apache::lonhomework::type eq 'practice')) {	($symb eq '' \|\| $Apache::lonhomework::type eq 'practice')) {
$form_tag_start.='<input type="hidden" name="rndseed" value="'.	$form_tag_start.='<input type="hidden" name="rndseed" value="'.
$rndseed.'" />'.	$rndseed.'" />'.
'<input type="submit" name="resetdata"	'<button type="submit" name="resetdata"
value="'.&mt('New Problem Variation').'" />';	value="new_problem_variation">'.&mt('New Problem Variation').'</button>';
if (exists($env{'form.username'})) {	if (exists($env{'form.username'})) {
$form_tag_start.=	$form_tag_start.=
'<input type="hidden" name="username"	'<input type="hidden" name="username"
Line 1561 sub start_problem {	Line 1868 sub start_problem {
$form_tag_start.='<hr />';	$form_tag_start.='<hr />';
} elsif (($env{'request.state'} ne "construct") &&	} elsif (($env{'request.state'} ne "construct") &&
($Apache::lonhomework::type eq 'randomizetry') &&	($Apache::lonhomework::type eq 'randomizetry') &&
($status eq 'CAN_ANSWER')) {	($status eq 'CAN_ANSWER') &&
	($env{'course.'.$env{'request.course.id'}.'.type'} ne 'Placement') &&
	(!$env{'request.role.adv'})) {
	# "New Problem Variation Each Try" header suppressed for Placement Tests, unless course personnel.
my $reqtries = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.randomizeontries");	my $reqtries = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.randomizeontries");
my $problemstatus = &get_problem_status($Apache::inputtags::part);	my $problemstatus = &get_problem_status($Apache::inputtags::part);
$form_tag_start.=&randomizetry_problem_header($problemstatus,$reqtries);	$form_tag_start.=&randomizetry_problem_header($problemstatus,$reqtries);
Line 1581 sub start_problem {	Line 1891 sub start_problem {
( $status eq 'NOTRESERVABLE') \|\|	( $status eq 'NOTRESERVABLE') \|\|
( $status eq 'RESERVABLE') \|\|	( $status eq 'RESERVABLE') \|\|
( $status eq 'RESERVABLE_LATER') \|\|	( $status eq 'RESERVABLE_LATER') \|\|
( $status eq 'INVALID_ACCESS')) {	( $status eq 'INVALID_ACCESS') \|\|
	( $status eq 'NEED_DIFFERENT_IP')) {
my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,	my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,
$style);	$style);
if ( $target eq "web" ) {	if (($status eq 'NOT_YET_VIEWED') && ($firstaccres)) {
my $msg;	$result .= '<p class="LC_error">'.
if ($status eq 'UNAVAILABLE') {	&mt('A problem occurred when trying to start the timer.').'</p>';
$msg.='<p class="LC_error">'.&mt('Unable to determine if this resource is open due to network problems. Please try again later.').'</p>';	}
} elsif ($status eq 'NOT_IN_A_SLOT') {	$result .= &access_status_msg('problem',$status,$symb,$target,$ipused,$accessmsg);
$msg.='<p class="LC_warning">'.&mt('You are not currently signed up to work at this time and/or place.').'</p>';
} elsif (($status eq 'RESERVABLE') \|\| ($status eq 'RESERVABLE_LATER') \|\|
($status eq 'NOTRESERVABLE')) {
$msg.='<p class="LC_warning">'.&mt('Access requires reservation to work at specific time/place.').'</p>';
} elsif ($status ne 'NOT_YET_VIEWED') {
$msg.='<p class="LC_warning">'.&mt('Not open to be viewed').'</p>';
}
if ($status eq 'CLOSED' \|\| $status eq 'INVALID_ACCESS') {
$msg.=&mt('The problem ').$accessmsg;
} elsif ($status eq 'UNCHECKEDOUT') {
$msg.=&checkout_msg();
} elsif ($status eq 'NOT_YET_VIEWED') {
$msg.=&firstaccess_msg($accessmsg,$symb);
} elsif ($status eq 'NOT_IN_A_SLOT') {
$msg.=&Apache::bridgetask::add_request_another_attempt_button("Sign up for time to work");
} elsif ($status eq 'RESERVABLE') {
$msg.=&mt('Available to make a reservation.').' '.&mt('Reservation window closes [_1].',
&Apache::lonnavmaps::timeToHumanString($accessmsg,'end')).
'<br />'.
&Apache::bridgetask::add_request_another_attempt_button("Sign up for time to work");
} elsif ($status eq 'RESERVABLE_LATER') {
$msg.=&mt('Window to make a reservation will open [_1].',
&Apache::lonnavmaps::timeToHumanString($accessmsg,'start'));
} elsif ($status eq 'NOTRESERVABLE') {
$msg.=&mt('Not available to make a reservation.');
}
$result.=$msg.'<br />';
} elsif ($target eq 'tex') {
my $startminipage = ($env{'form.problem_split'}=~/yes/i)? ''
: '\begin{minipage}{\textwidth}';
$result.='\noindent \vskip 1 mm '.
$startminipage.'\vskip 0 mm';
if ($status eq 'UNAVAILABLE') {
$result.=&mt('Unable to determine if this resource is open due to network problems. Please try again later.').'\vskip 0 mm ';
} else {
$result.=&mt('Problem is not open to be viewed. It')." $accessmsg \\vskip 0 mm ";
}
}
} elsif ($status eq 'NEEDS_CHECKIN') {	} elsif ($status eq 'NEEDS_CHECKIN') {
my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,	my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,
$style);	$style);
if ($target eq 'web') {	$result .= &checkin_prompt($target,$slot_name,$slot,'problem');
$result .=
&Apache::bridgetask::proctor_validation_screen($slot);
} elsif ($target eq 'grade') {
&Apache::bridgetask::proctor_check_auth($slot_name,$slot,
'problem');
}
} elsif ($target eq 'web') {	} elsif ($target eq 'web') {
if ($status eq 'CAN_ANSWER') {	if ($status eq 'CAN_ANSWER') {
$resource_due = &Apache::lonhomework::due_date(0, $env{'request.symb'});	$resource_due = &Apache::lonhomework::due_date(0, $env{'request.symb'});
if ($slot_name ne '') {	if ($slot_name ne '') {
my $checked_in =	$resource_due = &selfcheckin_resource($resource_due,$slot_name,$slot,
$Apache::lonhomework::history{'resource.0.checkedin'};	$env{'request.symb'});
if ($checked_in eq '') {
# unproctored slot access, self checkin
&Apache::bridgetask::check_in('problem',undef,undef,
$slot_name);
$checked_in =
$Apache::lonhomework::results{"resource.0.checkedin"};
}
if ((ref($slot) eq 'HASH') && ($checked_in ne '')) {
if ($slot->{'starttime'} < time()) {
if (!$resource_due) {
$resource_due = $slot->{'endtime'};
} elsif ($slot->{'endtime'} < $resource_due) {
$resource_due = $slot->{'endtime'};
}
}
}
}	}
if ($resource_due) {	if ($resource_due) {
my $time_left = $resource_due - time();	my $time_left = $resource_due - time();
Line 1671 sub start_problem {	Line 1922 sub start_problem {
'<input type="hidden" name="submitted" value="yes" />';	'<input type="hidden" name="submitted" value="yes" />';
# create a page header and exit	# create a page header and exit
if ($env{'request.state'} eq "construct") {	if ($env{'request.state'} eq "construct") {
$result.= &problem_web_to_edit_header($env{'form.rndseed'});	if ($env{'form.inhibitmenu'} eq 'yes') {
	# error messages can be useful in any case
	$result.= &Apache::lonxml::message_location();
	} else {
	$result.= &problem_web_to_edit_header($env{'form.rndseed'});
	}
if ($Apache::lonhomework::type eq 'practice') {	if ($Apache::lonhomework::type eq 'practice') {
$result.= '<input type="submit" name="resetdata" '.	$result.= '<button type="submit" name="resetdata" '.
'value="'.&mt('New Problem Variation').'" />'.	'value="new_problem_variation">'.&mt('New Problem Variation').'</button>'.
&practice_problem_header().'<hr />';	&practice_problem_header().'<hr />';
}	}
}	}
# if we are viewing someone else preserve that info	# if we are viewing someone else preserve that info
Line 1697 sub start_problem {	Line 1953 sub start_problem {
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$result .= 'INSERTTEXFRONTMATTERHERE';	$result .= 'INSERTTEXFRONTMATTERHERE';
$result .= &select_metadata_hyphenation();	$result .= &select_metadata_hyphenation();


}	}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result .= $form_tag_start.&problem_edit_header();	$result .= $form_tag_start.&problem_edit_header();
Line 1857 sub end_problem {	Line 2111 sub end_problem {
# Added separately at end of this routine, after added	# Added separately at end of this routine, after added
# <script></script> so document will be valid xhtml.	# <script></script> so document will be valid xhtml.
#	#
$result.= &Apache::loncommon::end_page({'discussion' => 1,	my $showdisc = 1;
	if (($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Placement') &&
	(!$env{'request.role.adv'})) {
	# For Placement Tests footer with "Post Discussion" and "Send Feedback" links is suppressed.
	$showdisc = 0;
	my ($symb)= &Apache::lonnet::whichuser();
	if ($symb) {
	my $navmap = Apache::lonnavmaps::navmap->new();
	if (ref($navmap)) {
	my $hastries = &Apache::lonplacementtest::has_tries($symb,$navmap);
	# For Placement Tests test status is displayed if this is the last resource in the course
	# and there are no tries left
	unless ($hastries) {
	if (&Apache::lonplacementtest::is_lastres($symb,$navmap)) {
	my ($score,$incomplete) =
	&Apache::lonplacementtest::check_completion(undef,undef,1);
	if (!$incomplete) {
	$result .= &Apache::lonplacementtest::showresult(1,1);
	} elsif ($incomplete < 100) {
	$result.= &Apache::lonplacementtest::showincomplete($incomplete,1);
	}
	} else {
	# For Placement Tests score is displayed if test has just been completed
	my ($score,$incomplete) = &Apache::lonplacementtest::check_completion(undef,undef,1);
	if (!$incomplete) {
	$result.= &Apache::lonplacementtest::showresult(1,1);
	}
	}
	}
	}
	}
	}
	$result.= &Apache::loncommon::end_page({'discussion' => $showdisc,
'notbody' => 1});	'notbody' => 1});
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $endminipage = '';	my $endminipage = '';
Line 1894 sub end_problem {	Line 2180 sub end_problem {
@Apache::inputtags::response=();	@Apache::inputtags::response=();
$result=&Apache::response::mandatory_part_meta;	$result=&Apache::response::mandatory_part_meta;
}	}
$result.=&Apache::response::meta_part_order();	$result.=&Apache::response::meta_part_order('problem');
$result.=&Apache::response::meta_response_order();	$result.=&Apache::response::meta_response_order();
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
&Apache::lonxml::debug("in end_problem with $target, edit");	&Apache::lonxml::debug("in end_problem with $target, edit");
Line 1954 sub start_library {	Line 2240 sub start_library {
'<input type="hidden" name="submitted" value="yes" />';	'<input type="hidden" name="submitted" value="yes" />';
$result.=&problem_web_to_edit_header($rndseed);	$result.=&problem_web_to_edit_header($rndseed);
if ($Apache::lonhomework::type eq 'practice') {	if ($Apache::lonhomework::type eq 'practice') {
$result.= '<input type="submit" name="resetdata" '.	$result.= '<button type="submit" name="resetdata" '.
'value="'.&mt('New Problem Variation').'" />'.	'value="new_problem_variation">'.&mt('New Problem Variation').'</button>'.
&practice_problem_header().'<hr />';	&practice_problem_header().'<hr />';
}	}
}	}
return $result;	return $result;
Line 1971 sub end_library {	Line 2257 sub end_library {
&& ($#$tagstack eq 0 && $$tagstack[0] eq 'library')	&& ($#$tagstack eq 0 && $$tagstack[0] eq 'library')
&& $env{'request.state'} eq "construct") {	&& $env{'request.state'} eq "construct") {
$result.='</form>'.&Apache::loncommon::end_page({'discussion' => 1});	$result.='</form>'.&Apache::loncommon::end_page({'discussion' => 1});
	} elsif ($target eq 'meta') {
	$result.=&Apache::response::meta_part_order('library');
	$result.=&Apache::response::meta_response_order();
}	}
if ( $#$tagstack eq 0 && $$tagstack[0] eq 'library') {	if ( $#$tagstack eq 0 && $$tagstack[0] eq 'library') {
&reset_problem_globals('library');	&reset_problem_globals('library');
Line 2453 sub start_randomlist {	Line 2742 sub start_randomlist {
}	}
if (@randomlist) {	if (@randomlist) {
my @idx_arr = (0 .. $#randomlist);	my @idx_arr = (0 .. $#randomlist);
&Apache::structuretags::shuffle(\@idx_arr);	if ($env{'form.code_for_randomlist'}) {
	&Apache::structuretags::shuffle(\@idx_arr,$target);
	undef($env{'form.code_for_randomlist'});
	} else {
	&Apache::structuretags::shuffle(\@idx_arr);
	}
my $bodytext = '';	my $bodytext = '';
my $show=$#randomlist;	my $show=$#randomlist;
my $showarg=&Apache::lonxml::get_param('show',$parstack,$safeeval);	my $showarg=&Apache::lonxml::get_param('show',$parstack,$safeeval);
Line 2492 sub start_randomlist {	Line 2786 sub start_randomlist {
}	}

sub shuffle {	sub shuffle {
my $a=shift;	my ($a,$target) = @_;
my $i;	my $i;
if (ref($a) eq 'ARRAY' && @$a) {	if (ref($a) eq 'ARRAY' && @$a) {
&Apache::response::pushrandomnumber();	&Apache::response::pushrandomnumber(undef,$target);
for($i=@$a;--$i;) {	for($i=@$a;--$i;) {
my $j=int(&Math::Random::random_uniform() * ($i+1));	my $j=int(&Math::Random::random_uniform() * ($i+1));
next if $i == $j;	next if $i == $j;
Line 2579 sub start_part {	Line 2873 sub start_part {
my $id= &Apache::lonxml::get_id($parstack,$safeeval);	my $id= &Apache::lonxml::get_id($parstack,$safeeval);
$Apache::inputtags::part=$id;	$Apache::inputtags::part=$id;
push(@Apache::inputtags::partlist,$id);	push(@Apache::inputtags::partlist,$id);
	$Apache::inputtags::leniency='';
@Apache::inputtags::response=();	@Apache::inputtags::response=();
@Apache::inputtags::previous=();	@Apache::inputtags::previous=();
@Apache::inputtags::previous_version=();	@Apache::inputtags::previous_version=();
Line 2744 sub end_part {	Line 3039 sub end_part {
}	}
pop @Apache::inputtags::status;	pop @Apache::inputtags::status;
$Apache::inputtags::part='';	$Apache::inputtags::part='';
	$Apache::inputtags::leniency='';
$Apache::lonhomework::type = $Apache::lonhomework::default_type;	$Apache::lonhomework::type = $Apache::lonhomework::default_type;
return $result;	return $result;
}	}
Line 2851 sub start_problemtype {	Line 3147 sub start_problemtype {
['hide','Hide']]	['hide','Hide']]
,$token);	,$token);
$result .=&Apache::edit::checked_arg('When used as type(s):','for',	$result .=&Apache::edit::checked_arg('When used as type(s):','for',
[ ['exam','Exam/Quiz Problem'],	[ ['exam','Bubblesheet Exam/Quiz Problem'],
['survey','Survey'],	['survey','Survey'],
['surveycred','Survey (with credit)'],	['surveycred','Survey (with credit)'],
['anonsurvey','Anonymous Survey'],	['anonsurvey','Anonymous Survey'],
Line 2894 sub end_startouttext {	Line 3190 sub end_startouttext {
if ($target eq 'edit') {	if ($target eq 'edit') {
my $areaid = 'homework_edit_'.$Apache::lonxml::curdepth;	my $areaid = 'homework_edit_'.$Apache::lonxml::curdepth;
$text=&Apache::lonxml::get_all_text("endouttext",$parser,$style);	$text=&Apache::lonxml::get_all_text("endouttext",$parser,$style);
$result.=&Apache::edit::start_table($token)."<tr><td>".&mt('Text Block')."</td>"	$result.=&Apache::edit::start_table($token)."<tr><td>".&Apache::loncommon::insert_folding_button()
	." ".&mt('Text Block')."</td>"
.'<td><span class="LC_nobreak">'.&mt('Delete?').' '	.'<td><span class="LC_nobreak">'.&mt('Delete?').' '
.&Apache::edit::deletelist($target,$token)	.&Apache::edit::deletelist($target,$token)
.'</span></td>'	.'</span></td>'
.'<td><span id="math_'.$areaid.'">'	.'<td><span id="math_'.$areaid.'">';
.&Apache::lonhtmlcommon::dragmath_button($areaid,1)	if ($env{'environment.nocodemirror'}) {
.'</span></td>'	$result.=&Apache::lonhtmlcommon::dragmath_button($areaid,1);
	} else {
	$result.=' ';
	}
	$result.='</span></td>'
.'<td>'	.'<td>'
.&Apache::edit::insertlist($target,$token)	.&Apache::edit::insertlist($target,$token)
.'</td>'	.'</td>'
Line 2989 sub end_simpleeditbutton {	Line 3290 sub end_simpleeditbutton {
}	}

sub practice_problem_header {	sub practice_problem_header {
return '<span class="LC_info"><h3>'.&mt('Practice Problem').'</h3></span>'.	return '<h3 class="LC_info">'.&mt('Practice Problem').'</h3>'.
'<span class="LC_info">'.&mt('Submissions are not permanently recorded').	'<span class="LC_info">'.&mt('Submissions are not permanently recorded').
'</span>';	'</span>';
}	}
Line 3015 sub randomizetry_problem_header {	Line 3316 sub randomizetry_problem_header {
$text = &mt('A new variation will be generated after each try until correct or tries limit is reached.');	$text = &mt('A new variation will be generated after each try until correct or tries limit is reached.');
}	}
}	}
return '<span class="LC_info"><h3>'.$header.'</h3></span>'.	return '<h3 class="LC_info">'.$header.'</h3>'.
'<span class="LC_info">'.$text.'</span><hr />';	'<span class="LC_info">'.$text.'</span><hr />';
}	}

Line 3046 sub randomizetry_part_header {	Line 3347 sub randomizetry_part_header {
if ($num > 1) {	if ($num > 1) {
$output .= '<hr />';	$output .= '<hr />';
}	}
$output .= '<span class="LC_info"><h4>'.$header.'</h4></span>'.	$output .= '<h4 class="LC_info">'.$header.'</h4>'.
'<span class="LC_info">'.$text.'</span><br /><br />';	'<span class="LC_info">'.$text.'</span><br /><br />';
return $output;	return $output;
}	}

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

Removed from v.1.512.2.9
changed lines
	Added in v.1.562