X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FApache%2FMVC.pm;fp=lib%2FApache%2FMVC.pm;h=0f6b7d0e9fc8c0dda03506ff398da25900b17cf0;hb=ef9ebe8ef9785b0fec3e3b20e70212e701f1c397;hp=3fcdaacf0c8b701586cbed5ccc3e492f6af0fce9;hpb=a502321f6b061747cb9bb320fd514febe58467f3;p=maypole.git

diff --git a/lib/Apache/MVC.pm b/lib/Apache/MVC.pm
index 3fcdaac..0f6b7d0 100644
--- a/lib/Apache/MVC.pm
+++ b/lib/Apache/MVC.pm
@@ -5,6 +5,9 @@ our $VERSION = '2.11';
 use strict;
 use warnings;
 
+use URI;
+use URI::QueryParam;
+
 use base 'Maypole';
 use Maypole::Headers;
 use Maypole::Constants;
@@ -14,10 +17,7 @@ __PACKAGE__->mk_accessors( qw( ar ) );
 our $MODPERL2;
 our $modperl_version;
 
-# pjs -- fixed to use standard way from perl.apache.org
 BEGIN {
-    #eval 'use Apache;'; # could fuck shit up if you have some file na
-    # named Apache.pm in your path forex CGI/Apache.pm
     $MODPERL2  = ( exists $ENV{MOD_PERL_API_VERSION} and
                         $ENV{MOD_PERL_API_VERSION} >= 2 );
     if ($MODPERL2) {
@@ -41,8 +41,6 @@ BEGIN {
 
 }
 
-
-
 =head1 NAME
 
 Apache::MVC - Apache front-end to Maypole
@@ -122,7 +120,6 @@ sub parse_location {
         $path =~ s/^($loc)?\///;
     }
     $self->path($path);
-    
     $self->parse_path;
     $self->parse_args;
 }
@@ -141,8 +138,6 @@ sub parse_args {
 
 =cut
 
-# FIXME: use headers_in to gather host and other information?
-# pjs 4-7-06 fixed so it works but did not fix headers_in issue  
 sub redirect_request
 {
   my $r = shift;
@@ -164,7 +159,6 @@ sub redirect_request
 
   $r->ar->status($status);
   $r->ar->headers_out->set('Location' => $redirect_url);
-  #$r->output("");
   return OK;
 }
 
@@ -230,6 +224,23 @@ sub _mod_perl_args {
     } else {
       my $body = $self->_prepare_body($apr);
       %args = %{$body->param};
+      my $uri = URI->new($self->ar->uri);
+      foreach my $key ($uri->query_param) {
+	if (ref $args{$key}) {
+	  push (@{$args{$key}}, $uri->query_param($key));
+	} else {
+	  if ($args{$key}) {
+	    $args{$key} = [ $args{$key}, $uri->query_param($key) ];
+	  } else {
+	    my @args = $uri->query_param($key);
+	    if (scalar @args > 1) {
+	      $args{$key} = [ $uri->query_param($key) ];
+	    } else {
+	      $args{$key} = $uri->query_param($key);
+	    }
+	  }
+	}
+      }
     }
     return %args;
 }