loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.349.2.5, 2005/12/29 18:50:35	version 1.349.2.6, 2006/02/10 22:35:24
Line 3641 sub condition {	Line 3641 sub condition {
}	}
sub condval {	sub condval {
my $self=shift;	my $self=shift;
my $uri=&Apache::lonnet::deversion(&Apache::lonnet::declutter($self->src()));	my ($pathname,$filename) =
my ($pathname,$filename)=($uri=~m\|(.)/([^/])\|);	&Apache::lonnet::split_uri_for_cond($self->src());
$pathname=~s/^adm\/wrapper\///;

my $match=($env{'acc.res.'.$env{'request.course.id'}.'.'.$pathname}=~	my $match=($env{'acc.res.'.$env{'request.course.id'}.'.'.$pathname}=~
/\&\Q$filename\E\:([\d\\|]+)\&/);	/\&\Q$filename\E\:([\d\\|]+)\&/);