version 1.67, 2006/03/19 23:06:00
|
version 1.68, 2006/05/08 22:14:15
|
Line 30
|
Line 30
|
package Apache::lonpageflip; |
package Apache::lonpageflip; |
|
|
use strict; |
use strict; |
|
use LONCAPA; |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::lonnet; |
use Apache::lonnet; |
use HTML::TokeParser; |
use HTML::TokeParser; |
Line 84 sub hash_src {
|
Line 85 sub hash_src {
|
return ($hash{'src_'.$id},$symb); |
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 { |
sub move { |
my ($rid,$mapurl,$direction)=@_; |
my ($rid,$mapurl,$direction)=@_; |
my $startoutrid=$rid; |
my $startoutrid=$rid; |