loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.175, 2002/05/29 16:22:09	version 1.177, 2002/06/14 19:56:57
Line 331 sub registerurl {	Line 331 sub registerurl {
my $forcereg=shift;	my $forcereg=shift;
my $target = shift;	my $target = shift;
my $result = '';	my $result = '';
if (($ENV{'request.publicaccess'}) \|\|	if ((($ENV{'request.publicaccess'}) \|\|
(!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) {	(!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) &&
	(!$forcereg)) {
return	return
'<script>function LONCAPAreg(){} function LONCAPAstale(){}</script>';	'<script>function LONCAPAreg(){} function LONCAPAstale(){}</script>';
}	}
Line 1239 ENDNOTFOUND	Line 1240 ENDNOTFOUND
#	#
unless ($ENV{'request.state'} eq 'published') {	unless ($ENV{'request.state'} eq 'published') {
if ($ENV{'form.editmode'} && (!($ENV{'form.viewmode'}))) {	if ($ENV{'form.editmode'} && (!($ENV{'form.viewmode'}))) {
$result='<html><body bgcolor="#FFFFFF"></body></html>';	my $displayfile=$request->uri;
	$displayfile=~s/^\/[^\/]*//;
	$result='<html><body bgcolor="#FFFFFF"><h3>'.$displayfile.
	'</h3></body></html>';
$result=&inserteditinfo($result,$filecontents);	$result=&inserteditinfo($result,$filecontents);
}	}
}	}