[LON-CAPA-cvs] cvs: rat / lonpageflip.pm

[albertel]

albertel		Mon May  8 18:14:20 2006 EDT

  Modified files:              
    /rat	lonpageflip.pm 
  Log:
  - moved to the new LONCAPA pacakge
  
  
Index: rat/lonpageflip.pm
diff -u rat/lonpageflip.pm:1.67 rat/lonpageflip.pm:1.68
--- rat/lonpageflip.pm:1.67	Sun Mar 19 18:06:00 2006
+++ rat/lonpageflip.pm	Mon May  8 18:14:15 2006
@@ -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 @@
     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;