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

Fix problem with asset export not handling certain URLs with dots in them correctly.

Browse source
This commit is contained in:
Drake 2006-10-12 00:05:06 +00:00
parent a4784a31e9
commit f7a61cd5c6
2 changed files with 17 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lib/WebGUI/AssetExportHtml.pm
View file

@ -108,25 +108,27 @@ sub _exportAsHtml {
my $filename;
if ($url =~ /\./) {
$url =~ /^(.*)\/(.*)$/;
$path = $1;
$filename = $2;
if ($filename eq "") {
$filename = $path;
if ($url =~ /^(.*)\/(.*)$/) {
$path = $1;
$filename = $2;
if ($filename eq "") {
$filename = $path;
$path = undef;
}
} else {
$path = undef;
$filename = $url;
}
} else {
$path = $url;
$filename = $index;
}
if ($path) {
$path = $self->session->config->get("exportPath") . "/" . $path;
eval { mkpath($path) };
if($@) {
return (0, sprintf($i18n->get('could not create path'), $path, $@));
}
}
$path = $self->session->config->get("exportPath") . (length($path)? "/$path" : "");
eval { mkpath($path) };
if($@) {
return (0, sprintf($i18n->get('could not create path'), $path, $@));
}
$path .= "/".$filename;
my $file = eval { FileHandle->new(">".$path) or die "$!" };