version 1.101, 2002/11/12 05:05:26
|
version 1.103, 2002/12/05 22:59:37
|
Line 144 $Apache::lonxml::browse='';
|
Line 144 $Apache::lonxml::browse='';
|
sub check_access { |
sub check_access { |
my ($id) = @_; |
my ($id) = @_; |
my $date =''; |
my $date =''; |
my $status = ''; |
my $status; |
my $datemsg = ''; |
my $datemsg = ''; |
my $lastdate = ''; |
my $lastdate = ''; |
my $temp; |
my $temp; |
Line 156 sub check_access {
|
Line 156 sub check_access {
|
$lastdate = $date; |
$lastdate = $date; |
$date = &Apache::lonnet::EXT("resource.$id.$temp"); |
$date = &Apache::lonnet::EXT("resource.$id.$temp"); |
my $thistype = &Apache::lonnet::EXT("resource.$id.$temp.type"); |
my $thistype = &Apache::lonnet::EXT("resource.$id.$temp.type"); |
|
if ($thistype =~ /^(con_lost|no_such_host)/ || |
|
$date =~ /^(con_lost|no_such_host)/) { |
|
$status='UNAVAILABLE'; |
|
$date="may open later."; |
|
return($status,$date); |
|
} |
if ($thistype eq 'date_interval') { |
if ($thistype eq 'date_interval') { |
if ($temp eq 'opendate') { |
if ($temp eq 'opendate') { |
$date=&Apache::lonnet::EXT("resource.$id.duedate")-$date; |
$date=&Apache::lonnet::EXT("resource.$id.duedate")-$date; |
Line 332 sub analyze {
|
Line 338 sub analyze {
|
my %overall; |
my %overall; |
my %allparts; |
my %allparts; |
my $rndseed=$ENV{'form.rndseed'}; |
my $rndseed=$ENV{'form.rndseed'}; |
srand($rndseed); |
|
&analyze_header($request); |
&analyze_header($request); |
for(my $i;$i<$ENV{'form.numtoanalyze'};$i++) { |
for(my $i=1;$i<$ENV{'form.numtoanalyze'}+1;$i++) { |
my $subresult=&Apache::lonnet::ssi($request->uri, |
my $subresult=&Apache::lonnet::ssi($request->uri, |
('grade_target' => 'analyze'), |
('grade_target' => 'analyze'), |
('rndseed' => rand)); |
('rndseed' => $i)); |
#&Apache::lonxml::debug(":$subresult:"); |
&Apache::lonxml::debug(":$subresult:"); |
(my $garbage,$subresult)=split(/_HASH_REF__/,$subresult,2); |
(my $garbage,$subresult)=split(/_HASH_REF__/,$subresult,2); |
my %analyze=&Apache::lonnet::str2hash($subresult); |
my %analyze=&Apache::lonnet::str2hash($subresult); |
&Apache::lonhomework::showhash(%analyze); |
&Apache::lonhomework::showhash(%analyze); |