version 1.249, 2006/06/08 22:33:57
|
version 1.250, 2006/06/12 18:45:35
|
Line 486 sub check_access {
|
Line 486 sub check_access {
|
} |
} |
# this should work exactly like the copy in lonnavmaps.pm |
# this should work exactly like the copy in lonnavmaps.pm |
sub due_date { |
sub due_date { |
my ($part_id,$symb)=@_; |
my ($part_id,$symb,$udom,$uname)=@_; |
my $date; |
my $date; |
my $interval= &Apache::lonnet::EXT("resource.$part_id.interval",$symb); |
my $interval= &Apache::lonnet::EXT("resource.$part_id.interval",$symb, |
|
$udom,$uname); |
&Apache::lonxml::debug("looking for interval $part_id $symb $interval"); |
&Apache::lonxml::debug("looking for interval $part_id $symb $interval"); |
my $due_date= &Apache::lonnet::EXT("resource.$part_id.duedate",$symb); |
my $due_date= &Apache::lonnet::EXT("resource.$part_id.duedate",$symb, |
|
$udom,$uname); |
&Apache::lonxml::debug("looking for due_date $part_id $symb $due_date"); |
&Apache::lonxml::debug("looking for due_date $part_id $symb $due_date"); |
if (defined($interval)) { |
if (defined($interval)) { |
my $first_access=&Apache::lonnet::get_first_access('map',$symb); |
my $first_access=&Apache::lonnet::get_first_access('map',$symb); |