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

fix #11964 files show in trash and old revisions

Browse source
This commit is contained in:
Doug Bell 2010-11-16 17:54:08 -06:00
parent 336075784c
commit 55920f59e0
5 changed files with 224 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/URL/Uploads.pm
View file

@ -15,7 +15,7 @@ package WebGUI::URL::Uploads;
=cut
use strict;
use Apache2::Const -compile => qw(OK DECLINED NOT_FOUND AUTH_REQUIRED);
use Apache2::Const -compile => qw(OK DECLINED NOT_FOUND AUTH_REQUIRED FORBIDDEN);
use WebGUI::Session;
=head1 NAME
@ -61,6 +61,7 @@ sub handler {
my @users;
my @groups;
my @assets;
my $state;
if ($fileContents =~ /\A(?:\d+|[A-Za-z0-9_-]{22})\n(?:\d+|[A-Za-z0-9_-]{22})\n(?:\d+|[A-Za-z0-9_-]{22})/) {
my @privs = split("\n", $fileContents);
push @users, $privs[0];
@ -71,8 +72,12 @@ sub handler {
@users = @{ $privs->{users} };
@groups = @{ $privs->{groups} };
@assets = @{ $privs->{assets} };
$state = $privs->{state};
}
return Apache2::Const::FORBIDDEN
if $state eq "trash";
return Apache2::Const::OK
if grep { $_ eq '1' } @users;