version 1.175, 2002/05/29 16:22:09
|
version 1.178, 2002/06/15 18:59:26
|
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 523 sub xmlparse {
|
Line 524 sub xmlparse {
|
my ($request,$target,$content_file_string,$safeinit,%style_for_target) = @_; |
my ($request,$target,$content_file_string,$safeinit,%style_for_target) = @_; |
|
|
&setup_globals($request,$target); |
&setup_globals($request,$target); |
|
# |
|
# do we have a course style file? |
|
# |
|
|
|
if ($ENV{'request.course.id'}) { |
|
my $bodytext= |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.default_xml_style'}; |
|
if ($bodytext) { |
|
my $location=&Apache::lonnet::filelocation('',$bodytext); |
|
my $styletext=&Apache::lonnet::getfile($location); |
|
if ($styletext ne '-1') { |
|
%style_for_target = (%style_for_target, |
|
&Apache::style::styleparser($target,$styletext)); |
|
} |
|
} |
|
} |
|
|
#&printalltags(); |
#&printalltags(); |
my @pars = (); |
my @pars = (); |
my $pwd=$ENV{'request.filename'}; |
my $pwd=$ENV{'request.filename'}; |
Line 1239 ENDNOTFOUND
|
Line 1257 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); |
} |
} |
} |
} |