fixed the nasty logout bug

This commit is contained in:
JT Smith 2005-08-16 13:37:11 +00:00
parent cfe20cfce6
commit 0e34bdfc1d
4 changed files with 5 additions and 4 deletions

View file

@ -932,7 +932,7 @@ sub new {
my $revisionDate = shift;
unless ($revisionDate) {
($revisionDate) = WebGUI::SQL->quickArray("select max(revisionDate) from assetData where assetId="
.quote($assetId)." and status='approved' or tagId=".quote($session{scratch}{versionTag})."
.quote($assetId)." and (status='approved' or status='archived' or tagId=".quote($session{scratch}{versionTag}).")
group by assetData.assetId order by assetData.revisionDate");
}
return undef unless ($revisionDate);
@ -1053,7 +1053,7 @@ sub newByUrl {
where
assetData.url=".quote($url)." and
(
assetData.status='approved' or
assetData.status='approved' or assetData.status='archived' or
assetData.tagId=".quote($session{scratch}{versionTag})."
)
group by

View file

@ -131,7 +131,7 @@ Returns the number of revisions available for this asset.
=head3 status
Optionally specify to get the count based upon the status of the revisions. Options are "approved", "pending", "denied". Defaults to any status.
Optionally specify to get the count based upon the status of the revisions. Options are "approved", "archived", "pending", "denied". Defaults to any status.
=cut

View file

@ -161,7 +161,7 @@ sub getNamespaceSize {
my $self = shift;
my $expiresModifier = shift || 0;
my $path = shift || $self->getNamespaceRoot;
my $filesRemaining = '0';
my $filesRemaining = 0;
if (opendir(DIR,$path)) {
my @files = readdir(DIR);
foreach my $file (@files) {