loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.349.2.4, 2005/12/29 18:12:36	version 1.349.2.6, 2006/02/10 22:35:24
Line 530 sub getDescription {	Line 530 sub getDescription {
if ($status == $res->PAST_DUE_NO_ANSWER) {	if ($status == $res->PAST_DUE_NO_ANSWER) {
return &mt("Was due")." " . timeToHumanString($res->duedate($part),'end');	return &mt("Was due")." " . timeToHumanString($res->duedate($part),'end');
}	}
if ($status == $res->ANSWER_OPEN	if (($status == $res->ANSWER_OPEN \|\| $status == $res->PARTIALLY_CORRECT)
\|\| ($status == $res->PARTIALLY_CORRECT	&& $res->handgrade($part) ne 'yes') {
&& $res->handgrade($part) ne 'yes')) {
return &mt("Answer available");	return &mt("Answer available");
}	}
if ($status == $res->EXCUSED) {	if ($status == $res->EXCUSED) {
Line 3642 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\\|]+)\&/);