--- rat/lonpageflip.pm 2006/02/23 19:29:26 1.64 +++ rat/lonpageflip.pm 2006/03/19 23:06:00 1.67 @@ -2,7 +2,7 @@ # # Page flip handler # -# $Id: lonpageflip.pm,v 1.64 2006/02/23 19:29:26 albertel Exp $ +# $Id: lonpageflip.pm,v 1.67 2006/03/19 23:06:00 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -84,6 +84,28 @@ 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; @@ -185,10 +207,7 @@ sub navlaunch { &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(&Apache::loncommon::start_page('Launched')); $r->print(<