--- rat/lonpageflip.pm 2006/03/19 23:06:00 1.67 +++ rat/lonpageflip.pm 2006/05/08 22:14:15 1.68 @@ -2,7 +2,7 @@ # # Page flip handler # -# $Id: lonpageflip.pm,v 1.67 2006/03/19 23:06:00 albertel Exp $ +# $Id: lonpageflip.pm,v 1.68 2006/05/08 22:14:15 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -30,6 +30,7 @@ package Apache::lonpageflip; use strict; +use LONCAPA; use Apache::Constants qw(:common :http REDIRECT); use Apache::lonnet; use HTML::TokeParser; @@ -84,28 +85,6 @@ sub hash_src { return ($hash{'src_'.$id},$symb); } -# Inputs are a url, adn a hash ref of -# form name => value pairs -# takes care of properly adding the form name elements and values to the -# the url doing proper escaping of the values and joining with ? or & as -# needed - -sub add_get_param { - my ($url,$form_data) = @_; - my $needs_question_mark = ($url !~ /\?/); - - while (my ($name,$value) = each(%$form_data)) { - if ($needs_question_mark) { - $url.='?'; - $needs_question_mark = 0; - } else { - $url.='&'; - } - $url.=$name.'='.&Apache::lonnet::escape($form_data->{$name}); - } - return $url; -} - sub move { my ($rid,$mapurl,$direction)=@_; my $startoutrid=$rid;