--- loncom/homework/bridgetask.pm 2013/07/15 16:13:12 1.262
+++ loncom/homework/bridgetask.pm 2017/06/21 19:55:00 1.264.4.1
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: bridgetask.pm,v 1.262 2013/07/15 16:13:12 bisitz Exp $
+# $Id: bridgetask.pm,v 1.264.4.1 2017/06/21 19:55:00 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -252,11 +252,11 @@ sub add_grading_button {
$size=scalar(keys(%sections))+2;
}
my $sec_select = "\n".'\n";
+ $sec_select .= "\t".'\n\n";
my $uri=$env{'request.uri'};
if ($env{'request.enc'}) { $uri=&Apache::lonenc::encrypted($uri); }
@@ -681,7 +681,8 @@ sub start_Task {
$target eq 'tex') {
if ($env{'form.markaccess'}) {
my @interval=&Apache::lonnet::EXT("resource.0.interval");
- &Apache::lonnet::set_first_access($interval[1]);
+ my ($timelimit) = ($interval[0] =~ /^(\d+)/);
+ &Apache::lonnet::set_first_access($interval[1],$timelimit);
}
}
@@ -1407,7 +1408,7 @@ DONEBUTTON
if ($canstore) {
&Apache::structuretags::finalize_storage();
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 %times=&Apache::lonnet::get('firstaccesstimes',
[$key],$domain,$name);