--- loncom/interface/lonnavmaps.pm 2004/12/17 22:40:09 1.311 +++ 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.311 2004/12/17 22:40:09 albertel Exp $ +# $Id: lonnavmaps.pm,v 1.317 2005/03/01 00:41:01 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -30,6 +30,7 @@ package Apache::lonnavmaps; use strict; +use GDBM_File; use Apache::Constants qw(:common :http); use Apache::loncommon(); use Apache::lonmenu(); @@ -38,6 +39,7 @@ 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; } @@ -142,7 +144,7 @@ sub handler { sub real_handler { my $r = shift; - + #my $t0=[&gettimeofday()]; # Handle header-only request if ($r->header_only) { if ($ENV{'browser.mathml'}) { @@ -164,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'); @@ -184,8 +186,9 @@ MENU $navstatus MENU } + my $html=&Apache::lonxml::xmlbegin(); $r->print(<<"ENDSUBM"); - + $html