--- loncom/xml/lonxml.pm 2002/05/29 16:22:09 1.175
+++ loncom/xml/lonxml.pm 2002/06/14 19:56:57 1.177
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# XML Parser Module
#
-# $Id: lonxml.pm,v 1.175 2002/05/29 16:22:09 www Exp $
+# $Id: lonxml.pm,v 1.177 2002/06/14 19:56:57 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -331,8 +331,9 @@ sub registerurl {
my $forcereg=shift;
my $target = shift;
my $result = '';
- if (($ENV{'request.publicaccess'}) ||
- (!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) {
+ if ((($ENV{'request.publicaccess'}) ||
+ (!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) &&
+ (!$forcereg)) {
return
'';
}
@@ -1239,7 +1240,10 @@ ENDNOTFOUND
#
unless ($ENV{'request.state'} eq 'published') {
if ($ENV{'form.editmode'} && (!($ENV{'form.viewmode'}))) {
- $result='';
+ my $displayfile=$request->uri;
+ $displayfile=~s/^\/[^\/]*//;
+ $result=''.$displayfile.
+ '
';
$result=&inserteditinfo($result,$filecontents);
}
}