version 1.413, 2007/11/13 23:33:01
|
version 1.414, 2007/11/20 17:53:22
|
Line 620 ENDCHECKOUT
|
Line 620 ENDCHECKOUT
|
|
|
sub firstaccess_msg { |
sub firstaccess_msg { |
my ($time,$symb)=@_; |
my ($time,$symb)=@_; |
my ($map)=&Apache::lonnet::decode_symb($symb); |
my $result; |
my $foldertitle=&Apache::lonnet::gettitle($map); |
my @interval=&Apache::lonnet::EXT("resource.0.interval"); |
&Apache::lonxml::debug("map is $map title is $foldertitle"); |
if ($interval[1] eq 'map') { |
my $uri = &Apache::lonenc::check_encrypt($env{'request.uri'}); |
my ($map)=&Apache::lonnet::decode_symb($symb); |
return (<<ENDCHECKOUT); |
my $foldertitle=&Apache::lonnet::gettitle($map); |
|
|
|
&Apache::lonxml::debug("map is $map title is $foldertitle"); |
|
$result .= (<<ENDCHECKOUT); |
<h2>The resources in "$foldertitle" are open for a limited time. Once you click the 'Show Resource' button below you have $time to complete all resources "$foldertitle".</h2> |
<h2>The resources in "$foldertitle" are open for a limited time. Once you click the 'Show Resource' button below you have $time to complete all resources "$foldertitle".</h2> |
|
ENDCHECKOUT |
|
} elsif ($interval[1] eq 'course') { |
|
my $course = $env{'course.'.$env{'request.course.id'}.'.description'}; |
|
$result .= (<<ENDCHECKOUT); |
|
<h2>The resources in "$course" are open for a limited time. Once you click the 'Show Resource' button below you have $time to complete all resources in "$course".</h2> |
|
ENDCHECKOUT |
|
} else { |
|
my $title=&Apache::lonnet::gettitle($symb); |
|
$result .= (<<ENDCHECKOUT); |
|
<h2>This resource "$title" is open for a limited time. Once you click the 'Show Resource' button below you have $time to complete this resource "$title".</h2> |
|
ENDCHECKOUT |
|
|
|
} |
|
my $uri = &Apache::lonenc::check_encrypt($env{'request.uri'}); |
|
$result .= (<<ENDCHECKOUT); |
<form name="markaccess" method="POST" action="$uri"> |
<form name="markaccess" method="POST" action="$uri"> |
<input type="hidden" name="markaccess" value="yes" /> |
<input type="hidden" name="markaccess" value="yes" /> |
<input type="button" name="accessbutton" value="Show Resource" onClick="javascript:if (confirm('Start Timer?')) { document.markaccess.submit(); }" /> |
<input type="button" name="accessbutton" value="Show Resource" onClick="javascript:if (confirm('Start Timer?')) { document.markaccess.submit(); }" /> |
</form> |
</form> |
ENDCHECKOUT |
ENDCHECKOUT |
|
return $result; |
} |
} |
|
|
sub init_problem_globals { |
sub init_problem_globals { |
Line 798 sub start_problem {
|
Line 817 sub start_problem {
|
$result.=&Apache::lonxml::printtokenheader($target,$token); |
$result.=&Apache::lonxml::printtokenheader($target,$token); |
} |
} |
if ($env{'form.markaccess'}) { |
if ($env{'form.markaccess'}) { |
&Apache::lonnet::set_first_access('map'); |
my @interval=&Apache::lonnet::EXT("resource.0.interval"); |
|
&Apache::lonnet::set_first_access($interval[1]); |
} |
} |
#handle rand seed in construction space |
#handle rand seed in construction space |
my $rndseed=&setup_rndseed($safeeval); |
my $rndseed=&setup_rndseed($safeeval); |