From c18b7da8cca7d369db18cf25f2520b0ea7698425 Mon Sep 17 00:00:00 2001
From: Alan Ritari <aritari@webgui-cvs>
Date: Thu, 12 Feb 2004 16:50:07 +0000
Subject: [PATCH] ! improved parsing of # anchors

---
 lib/WebGUI/Wobject/HttpProxy/Parse.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/WebGUI/Wobject/HttpProxy/Parse.pm b/lib/WebGUI/Wobject/HttpProxy/Parse.pm
index 5ef8fe9f0..a077fcaa4 100644
--- a/lib/WebGUI/Wobject/HttpProxy/Parse.pm
+++ b/lib/WebGUI/Wobject/HttpProxy/Parse.pm
@@ -122,6 +122,11 @@ sub start {
       			if ($val =~ /^\?/) {   # link that starts with ?  i.e. <a href="?var=hello">
 				my @urlBase = split(/\?/, $self->{Url}); 
 				$val = URI::URL::url($urlBase[0] . $val);
+
+                        # catch internal # anchors
+                        } elsif ($val =~ /^#/){
+                                $val = URI::URL::url($val);
+                        
       			} else {
         			$val = URI::URL::url($val)->abs($self->{Url},1); # make absolute
       			}