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
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;
}