loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.207, 2007/05/12 23:04:07	version 1.208, 2007/05/15 20:21:17
Line 1212 ENDBOMBS	Line 1212 ENDBOMBS
<input type="submit" name="clearmsg" value="$clear" />	<input type="submit" name="clearmsg" value="$clear" />
ENDDEL	ENDDEL
} else {	} else {
$r->print('<p><a href="'.$disuri.'" />'.$goback.'</a></p>');	$r->print('<p><a href="'.$disuri.'">'.$goback.'</a></p>');
if ($env{'form.clearmsg'}) {	if ($env{'form.clearmsg'}) {
my ($diruri) = ($disuri =~ m{(./)[^/]});	my ($diruri) = ($disuri =~ m{(./)[^/]});
$r->print('<p><a href="'.$diruri.'" />'.	$r->print('<p><a href="'.$diruri.'">'.
&mt('Back To Directory').'</a></p>');	&mt('Back To Directory').'</a></p>');
}	}
}	}