--- loncom/xml/londefdef.pm 2003/10/10 19:05:31 1.179 +++ loncom/xml/londefdef.pm 2003/10/14 00:21:12 1.180 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Tags Default Definition Module # -# $Id: londefdef.pm,v 1.179 2003/10/10 19:05:31 sakharuk Exp $ +# $Id: londefdef.pm,v 1.180 2003/10/14 00:21:12 albertel Exp $ # # # Copyright Michigan State University Board of Trustees @@ -201,7 +201,7 @@ sub start_head { sub end_head { my ($target,$token) = @_; my $currentstring = ''; - if ($target eq 'web') { + if ($target eq 'web' && $ENV{'request.state'} eq 'published') { $currentstring = &Apache::lonmenu::registerurl(undef,$target). $token->[2]; } @@ -476,7 +476,8 @@ sub start_body { &Apache::lonxml::warning(" tag found inside of tag this can cause problems."); return ''; } - if (!$Apache::lonxml::registered) { + if (!$Apache::lonxml::registered && + $ENV{'request.state'} eq 'published') { $currentstring.=''. &Apache::lonmenu::registerurl(undef,$target).''; } @@ -2324,7 +2325,8 @@ sub start_frameset { my ($target,$token) = @_; my $currentstring = ''; if ($target eq 'web') { - if (!$Apache::lonxml::registered) { + if (!$Apache::lonxml::registered && + $ENV{'request.state'} eq 'published') { $currentstring.=''. &Apache::lonmenu::registerurl(undef,$target).''; }