--- loncom/interface/lonnavmaps.pm 2004/10/27 18:15:31 1.301 +++ loncom/interface/lonnavmaps.pm 2005/03/01 00:41:01 1.317 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Navigate Maps Handler # -# $Id: lonnavmaps.pm,v 1.301 2004/10/27 18:15:31 albertel Exp $ +# $Id: lonnavmaps.pm,v 1.317 2005/03/01 00:41:01 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -30,12 +30,16 @@ package Apache::lonnavmaps; use strict; +use GDBM_File; use Apache::Constants qw(:common :http); use Apache::loncommon(); use Apache::lonmenu(); +use Apache::lonenc(); use Apache::lonlocal; +use Apache::lonnet; use POSIX qw (floor strftime); use Data::Dumper; # for debugging, not always +use Time::HiRes qw( gettimeofday tv_interval ); # symbolic constants sub SYMB { return 1; } @@ -119,23 +123,6 @@ window.status='Done.'; ENDCLOSE } -sub nav_control_js { - my $nav=($ENV{'environment.remotenavmap'} eq 'on'); - return (<header_only) { if ($ENV{'browser.mathml'}) { @@ -179,7 +166,7 @@ sub real_handler { $r->send_http_header; my %toplinkitems=(); - + &add_linkitem(\%toplinkitems,'blank','',"Select Action"); if ($ENV{QUERY_STRING} eq 'collapseExternal') { &Apache::lonnet::put('environment',{'remotenavmap' => 'off'}); &Apache::lonnet::appenv('environment.remotenavmap' => 'off'); @@ -199,8 +186,9 @@ MENU $navstatus MENU } + my $html=&Apache::lonxml::xmlbegin(); $r->print(<<"ENDSUBM"); - + $html