version 1.102, 2002/11/13 23:05:46
|
version 1.104, 2002/12/11 14:44:24
|
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 464 sub get_template_list {
|
Line 470 sub get_template_list {
|
$result=$file; |
$result=$file; |
last; |
last; |
} else { |
} else { |
push (@allnames, $name); |
if ($name) { push (@allnames, $name); } |
} |
} |
} |
} |
if (@allnames && !$result) { |
if (@allnames && !$result) { |