rat/lonpageflip.pm - diff

Return to lonpageflip.pm CVS log

Up to [LON-CAPA] / rat

-version 1.67, 2006/03/19 23:06:00
+version 1.68, 2006/05/08 22:14:15
  Line 30
  package Apache::lonpageflip;
  use strict;
+ use LONCAPA;
  use Apache::Constants qw(:common :http REDIRECT);
  use Apache::lonnet;
  use HTML::TokeParser;
- Line 84  sub hash_src {
+ Line 85  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;