version 1.42, 2001/05/04 21:20:31
|
version 1.44, 2001/05/21 19:45:28
|
Line 15 use Apache::hint;
|
Line 15 use Apache::hint;
|
use Apache::outputtags; |
use Apache::outputtags; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
|
|
|
|
|
sub BEGIN { |
|
&Apache::lonxml::register_insert(); |
|
} |
|
|
sub get_target { |
sub get_target { |
if ( $ENV{'request.state'} eq "published") { |
if ( $ENV{'request.state'} eq "published") { |
if ( defined $ENV{'form.submitted'}) { |
if ( defined $ENV{'form.submitted'}) { |
Line 294 EDITMENU
|
Line 299 EDITMENU
|
sub handler { |
sub handler { |
my $request=$_[0]; |
my $request=$_[0]; |
|
|
if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;} |
# if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;} |
|
|
if (&setupheader($request)) { return OK; } |
if (&setupheader($request)) { return OK; } |
$ENV{'request.uri'}=$request->uri; |
$ENV{'request.uri'}=$request->uri; |