loncom/homework/bridgetask.pm - diff

Return to bridgetask.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.264, 2014/05/18 09:59:57	version 1.264.2.1, 2017/06/13 16:20:40
Line 681 sub start_Task {	Line 681 sub start_Task {
$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) = ($interval[0] =~ /^(\d+)/);
	&Apache::lonnet::set_first_access($interval[1],$timelimit);
}	}
}	}

Line 1407 DONEBUTTON	Line 1408 DONEBUTTON
if ($canstore) {	if ($canstore) {
&Apache::structuretags::finalize_storage();	&Apache::structuretags::finalize_storage();
my @interval = &Apache::lonnet::EXT("resource.0.interval");	my @interval = &Apache::lonnet::EXT("resource.0.interval");
if ($interval[0] =~ /^\d+$/ && $interval[1] eq 'resource') {	if ($interval[0] =~ /^\d+/ && $interval[1] eq 'resource') {
my $key=$courseid."\0".$symb;	my $key=$courseid."\0".$symb;
my %times=&Apache::lonnet::get('firstaccesstimes',	my %times=&Apache::lonnet::get('firstaccesstimes',
[$key],$domain,$name);	[$key],$domain,$name);