From: ivan <ivan>
Date: Thu, 30 Dec 2004 23:47:03 +0000 (+0000)
Subject: search the current dir *first*, otherwise some weird Apache::ASP bugs could crop... 
X-Git-Tag: BEFORE_FINAL_MASONIZE~747
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=fc4e4c29f657b9aa01180a91f461a0342a8c7be2;p=freeside.git

search the current dir *first*, otherwise some weird Apache::ASP bugs could crop up if things are ever named the same
---

diff --git a/htetc/global.asa b/htetc/global.asa
index c5f4ee099..94a103081 100644
--- a/htetc/global.asa
+++ b/htetc/global.asa
@@ -207,15 +207,15 @@ sub sprintAutoProfile {
 
 sub include {
   my $file = shift;
-  my $pop = 0;
+  my $shift = 0;
   if ( $file =~ m(^([^/].*)/[^/]+) ) {
-    push @{$Response->{asp}{includes_dir}}, "./$1";
-    $pop = 1;
+    unshift @{$Response->{asp}{includes_dir}}, "./$1";
+    $shift = 1;
   }
   $file =~ s(^/)(%%%FREESIDE_DOCUMENT_ROOT%%%/);
   #broken in 5.005# ${$Response->TrapInclude($file, @_)};
   my $ref = $Response->TrapInclude($file, @_);
-  pop @{$Response->{asp}{includes_dir}} if $pop;
+  shift @{$Response->{asp}{includes_dir}} if $shift;
   $$ref;
 }