oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixes for Mac OSX compatibility.

Browse source
This commit is contained in:
JT Smith 2002-11-30 17:17:13 +00:00
parent 0e9531c0b5
commit 7043d15f59
1 changed files with 6 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/WebGUI/Node.pm
View file

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