--- rat/lonpageflip.pm 2005/04/07 06:56:27 1.53 +++ rat/lonpageflip.pm 2005/08/02 20:51:18 1.54 @@ -2,7 +2,7 @@ # # Page flip handler # -# $Id: lonpageflip.pm,v 1.53 2005/04/07 06:56:27 albertel Exp $ +# $Id: lonpageflip.pm,v 1.54 2005/08/02 20:51:18 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -171,6 +171,28 @@ sub move { return ($next,$mapurl); } +sub navlaunch { + my ($r)=@_; + &Apache::loncommon::content_type($r,'text/html'); + &Apache::loncommon::no_cache($r); + $r->send_http_header; + my $html=&Apache::lonxml::xmlbegin(); + $r->print("$html
\n"); + $r->print(''. + &Apache::loncommon::bodytag('Launched')); + $r->print(<