--- rat/lonpageflip.pm 2005/04/07 06:56:27 1.53 +++ rat/lonpageflip.pm 2005/08/31 07:38:29 1.56 @@ -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.56 2005/08/31 07:38:29 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -73,10 +73,14 @@ sub fullmove { sub hash_src { my ($id)=@_; + my ($mapid,$resid)=split(/\./,$id); + my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid}, + $resid,$hash{'src_'.$id}); if ($hash{'encrypted_'.$id}) { - return &Apache::lonenc::encrypted($hash{'src_'.$id}); + return (&Apache::lonenc::encrypted($hash{'src_'.$id}), + &Apache::lonenc::encrypted($symb)); } - return $hash{'src_'.$id}; + return ($hash{'src_'.$id},$symb); } sub move { @@ -171,6 +175,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(<