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

Fixed a bug where privileges were not being set correctly on cache files

Browse source 
and that was causing write errors.
 - fix [ 1281437 ] hidden children appear when changing assetsToHide
This commit is contained in:
JT Smith 2005-09-11 14:37:34 +00:00
parent 68d5986c39
commit 560318df51
4 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
docs/changelog/6.x.x.txt
View file

@ -29,6 +29,9 @@
- fix [ 1266159 ] 6.7.1 - getEditForm fields are in funky order
- fix [ 1283629 ] Forum bug in 6.5.6
- fix [ 1279887 ] unable to copy Survey Wobject
- Fixed a bug where privileges were not being set correctly on cache files
and that was causing write errors.
- fix [ 1281437 ] hidden children appear when changing assetsToHide
6.7.3

2
lib/WebGUI/Asset/Wobject/Layout.pm
View file

@ -142,7 +142,7 @@ sub view {
my %vars;
# I'm sure there's a more efficient way to do this. We'll figure it out someday.
my @positions = split(/\./,$self->get("contentPositions"));
my @hidden = split("\n",$self->getValue("assetsToHide"));
my @hidden = split("\n",$self->get("assetsToHide"));
my $i = 1;
my $template= WebGUI::Asset->newByDynamicClass($self->get("templateId"))->get("template");
my $numPositions = 1;

2
lib/WebGUI/Asset/Wobject/Survey.pm
View file

@ -711,7 +711,7 @@ sub view {
$var->{'mode.isSurvey'} = ($self->get("mode") eq "survey");
$var->{'survey.noprivs.label'} = WebGUI::International::get(48,'Asset_Survey');
$var->{'quiz.noprivs.label'} = WebGUI::International::get(49,'Asset_Survey');
return $self->processTemplate($var, $self->getValue("templateId"));
return $self->processTemplate($var, $self->get("templateId"));
}
#-------------------------------------------------------------------

6
lib/WebGUI/Cache/FileCache.pm
View file

@ -230,12 +230,11 @@ sub set {
my $self = shift;
my $content = shift;
my $ttl = shift || 60;
my $oldumask = umask();
umask(0000);
my $path = $self->getFolder();
unless (-e $path) {
my $oldumask = umask();
umask(0000);
eval {mkpath($path,0)};
umask($oldumask);
if ($@) {
WebGUI::ErrorHandler::error("Couldn't create cache folder: ".$path." : ".$@);
return;
@ -251,6 +250,7 @@ sub set {
open(FILE,">".$path."/expires");
print FILE time()+$ttl;
close(FILE);
umask($oldumask);
}