|
version 1.249, 2006/06/08 22:33:57
|
version 1.251, 2006/06/20 03:33:55
|
|
Line 245 sub check_slot_access {
|
Line 245 sub check_slot_access {
|
| my ($status,$datemsg)=&check_access($id); |
my ($status,$datemsg)=&check_access($id); |
| |
|
| my $useslots = &Apache::lonnet::EXT("resource.$id.useslots"); |
my $useslots = &Apache::lonnet::EXT("resource.$id.useslots"); |
| if ($useslots ne 'resource' && $useslots ne 'map') { |
if ($useslots ne 'resource' && $useslots ne 'map' |
| |
&& $useslots ne 'map_map') { |
| return ($status,$datemsg); |
return ($status,$datemsg); |
| } |
} |
| |
|
|
Line 486 sub check_access {
|
Line 487 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); |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonhomework.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework