loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.512.2.22, 2019/11/05 18:14:39	version 1.512.2.23.2.1, 2020/01/15 13:57:36
Line 1556 sub start_problem {	Line 1556 sub start_problem {
$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");
my $is_set = &Apache::lonnet::set_first_access($interval[1],$interval[0]);	my ($timelimit) = ($interval[0] =~ /^(\d+)/);
	my $is_set = &Apache::lonnet::set_first_access($interval[1],$timelimit);
unless (($is_set eq 'ok') \|\| ($is_set eq 'already_set')) {	unless (($is_set eq 'ok') \|\| ($is_set eq 'already_set')) {
$firstaccres = $is_set;	$firstaccres = $is_set;
}	}
Line 3153 sub randomizetry_part_header {	Line 3154 sub randomizetry_part_header {
my ($header,$text);	my ($header,$text);
if ($reqtries eq 'none') {	if ($reqtries eq 'none') {
$header = &mt('No Question Variation');	$header = &mt('No Question Variation');
$text = &mt('For this question there will no new variation after a try.');	$text = &mt('For this question there will be no new variation after a try.');
} elsif ($reqtries > 1) {	} elsif ($reqtries > 1) {
$header = &mt('New Question Variation After Every [quant,_1,Try,Tries]',$reqtries);	$header = &mt('New Question Variation After Every [quant,_1,Try,Tries]',$reqtries);
if (($problemstatus eq 'no') \|\|	if (($problemstatus eq 'no') \|\|