From 7043d15f5967022ef565ae6980a87cfd4f5a50f6 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sat, 30 Nov 2002 17:17:13 +0000
Subject: [PATCH] Fixes for Mac OSX compatibility.

---
 lib/WebGUI/Node.pm | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/lib/WebGUI/Node.pm b/lib/WebGUI/Node.pm
index d034c02cf..a58a5300d 100644
--- a/lib/WebGUI/Node.pm
+++ b/lib/WebGUI/Node.pm
@@ -57,15 +57,14 @@ use WebGUI::Session;
 =cut
 
 sub create {
-	my ($slash, $node);
-	$slash = ($^O =~ /Win/i) ? "\\" : "/";
-	$node = $session{config}{uploadsPath}.$slash.$_[0]->{_node1};
+	my ($node);
+	$node = $session{config}{uploadsPath}.$session{os}{slash}.$_[0]->{_node1};
 	mkdir($node);
 	unless ($! eq "File exists" || $! eq "") {
 		WebGUI::ErrorHandler::warn("Couldn't create node: $node : $!");
 	}
         if ($_[0]->{_node2} ne "") {
-		$node = $session{config}{uploadsPath}.$slash.$_[0]->{_node1}.$slash.$_[0]->{_node2};
+		$node = $session{config}{uploadsPath}.$slash.$_[0]->{_node1}.$session{os}{slash}.$_[0]->{_node2};
 		mkdir($node);
 		unless ($! eq "File exists" || $! eq "") {
                 	WebGUI::ErrorHandler::warn("Couldn't create node: $node : $!");
@@ -95,11 +94,10 @@ sub delete {
 =cut
 
 sub getPath {
-        my ($path,$slash);
-	$slash = ($^O =~ /Win/i) ? "\\" : "/";
-        $path = $session{config}{uploadsPath}.$slash.$_[0]->{_node1};
+        my ($path);
+        $path = $session{config}{uploadsPath}.$session{os}{slash}.$_[0]->{_node1};
         if ($_[0]->{_node2} ne "") {
-                $path .= $slash.$_[0]->{_node2};
+                $path .= $session{os}{slash}.$_[0]->{_node2};
         }
         return $path;
 }