c042f43923
fixes "Can't locate object method "whatNext" via package "WebGUI::FormBuilder::Tab" at /data/WebGUI8/lib/WebGUI/Asset/Wobject/Folder.pm line 165.", but doesn't actually manage to upload files.
348 lines
10 KiB
Perl
348 lines
10 KiB
Perl
package WebGUI::Asset::Wobject::Folder;
|
|
|
|
=head1 LEGAL
|
|
|
|
-------------------------------------------------------------------
|
|
WebGUI is Copyright 2001-2012 Plain Black Corporation.
|
|
-------------------------------------------------------------------
|
|
Please read the legal notices (docs/legal.txt) and the license
|
|
(docs/license.txt) that came with this distribution before using
|
|
this software.
|
|
-------------------------------------------------------------------
|
|
http://www.plainblack.com info@plainblack.com
|
|
-------------------------------------------------------------------
|
|
|
|
=cut
|
|
|
|
use strict;
|
|
use Moose;
|
|
use WebGUI::Definition::Asset;
|
|
extends 'WebGUI::Asset::Wobject';
|
|
|
|
define assetName => ["assetName", 'Asset_Folder'];
|
|
define icon => 'folder.gif';
|
|
define tableName => 'Folder';
|
|
|
|
property visitorCacheTimeout => (
|
|
tab => "display",
|
|
fieldType => "interval",
|
|
default => 3600,
|
|
uiLevel => 8,
|
|
label => ["visitor cache timeout", 'Asset_Folder'],
|
|
hoverHelp => ["visitor cache timeout help", 'Asset_Folder'],
|
|
);
|
|
# TODO: This should probably be a proper "sortBy" with multiple possible fields
|
|
property sortAlphabetically => (
|
|
fieldType => "yesNo",
|
|
default => 0,
|
|
tab => 'display',
|
|
label => ['sort alphabetically', 'Asset_Folder'],
|
|
hoverHelp => ['sort alphabetically help', 'Asset_Folder'],
|
|
);
|
|
|
|
property sortOrder => (
|
|
tab => 'display',
|
|
fieldType => "selectBox",
|
|
options => \&_sortOrder_options,
|
|
default => "ASC",
|
|
label => [ "editForm sortOrder label" , 'Asset_Folder'],
|
|
hoverHelp => [ "editForm sortOrder description" , 'Asset_Folder'],
|
|
);
|
|
sub _sortOrder_options {
|
|
my $self = shift;
|
|
my $i18n = WebGUI::International->new($self->session, 'Asset_Folder');
|
|
my $optionsSortOrder = {
|
|
ASC => $i18n->get( "editForm sortOrder ascending" ),
|
|
DESC => $i18n->get( "editForm sortOrder descending" ),
|
|
};
|
|
return $optionsSortOrder;
|
|
}
|
|
|
|
property templateId => (
|
|
fieldType => "template",
|
|
default => 'PBtmpl0000000000000078',
|
|
namespace => 'Folder',
|
|
tab => 'display',
|
|
label => ['folder template title', 'Asset_Folder'],
|
|
hoverHelp => ['folder template description', 'Asset_Folder'],
|
|
);
|
|
has '+uiLevel' => (
|
|
default => 5,
|
|
);
|
|
|
|
use Number::Format ();
|
|
|
|
=head1 NAME
|
|
|
|
Package WebGUI::Asset::Wobject::Folder
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Display a list of assets and sub folders just like in an operating system filesystem.
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use WebGUI::Asset::Wobject::Folder;
|
|
|
|
|
|
=head1 METHODS
|
|
|
|
These methods are available from this class:
|
|
|
|
=cut
|
|
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 getContentLastModified
|
|
|
|
Overridden to check the revision dates of children as well
|
|
|
|
=cut
|
|
|
|
sub getContentLastModified {
|
|
my $self = shift;
|
|
my $mtime = $self->get("lastModified");
|
|
my $childIter = $self->getLineageIterator(["children"]);
|
|
while ( 1 ) {
|
|
my $child;
|
|
eval { $child = $childIter->() };
|
|
if ( my $x = WebGUI::Error->caught('WebGUI::Error::ObjectNotFound') ) {
|
|
$self->session->log->error($x->full_message);
|
|
next;
|
|
}
|
|
last unless $child;
|
|
my $child_mtime = $child->getContentLastModified;
|
|
$mtime = $child_mtime if ($child_mtime > $mtime);
|
|
}
|
|
return $mtime;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 getContentLastModifiedBy
|
|
|
|
Overridden to check the updated dates of children as well
|
|
|
|
=cut
|
|
|
|
override getContentLastModifiedBy => sub {
|
|
my $self = shift;
|
|
my $mtime = super();
|
|
my $userId = $self->get('revisedBy');
|
|
my $childIter = $self->getLineageIterator(["children"]);
|
|
while ( 1 ) {
|
|
my $child;
|
|
eval { $child = $childIter->() };
|
|
if ( my $x = WebGUI::Error->caught('WebGUI::Error::ObjectNotFound') ) {
|
|
$self->session->log->error($x->full_message);
|
|
next;
|
|
}
|
|
last unless $child;
|
|
my $child_mtime = $child->getContentLastModified;
|
|
if ($child_mtime > $mtime) {
|
|
$mtime = $child_mtime;
|
|
$userId = $child->get("revisedBy");
|
|
}
|
|
}
|
|
return $userId;
|
|
};
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 getEditForm ( )
|
|
|
|
Returns the TabForm object that will be used in generating the edit page for this asset.
|
|
|
|
=cut
|
|
|
|
override getEditForm => sub {
|
|
my $self = shift;
|
|
my $tabform = super();
|
|
my $i18n = WebGUI::International->new($self->session,"Asset_Folder");
|
|
if ($self->get("assetId") eq "new") {
|
|
$tabform->getTab("properties")->addField(
|
|
'whatNext',
|
|
-options=>{
|
|
view=>$i18n->get(823),
|
|
"viewParent"=>$i18n->get(847)
|
|
},
|
|
-value=>"view"
|
|
);
|
|
}
|
|
return $tabform;
|
|
};
|
|
|
|
#----------------------------------------------------------------------------
|
|
|
|
=head2 getTemplateVars ( )
|
|
|
|
Get the shared template vars for all views of the Folder.
|
|
|
|
=cut
|
|
|
|
sub getTemplateVars {
|
|
my $self = shift;
|
|
my $vars = $self->get;
|
|
my $i18n = WebGUI::International->new($self->session, 'Asset_Folder');
|
|
|
|
$vars->{ 'addFile.label' } = $i18n->get('add file label');
|
|
# $vars->{ 'addFile.url' } = $self->getUrl('func=add;className=WebGUI::Asset::FilePile');
|
|
$vars->{ 'addFile.url' } = $self->getUrl('op=assetHelper;assetId=' . $self->getId . ';helperId=upload_files;method=uploadFiles');
|
|
$vars->{ canEdit } = $self->canEdit;
|
|
$vars->{ canAddFile } = $self->canEdit;
|
|
|
|
return $vars;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 prepareView ( )
|
|
|
|
See WebGUI::Asset::prepareView() for details.
|
|
|
|
=cut
|
|
|
|
override prepareView => sub {
|
|
my $self = shift;
|
|
super();
|
|
my $template = WebGUI::Asset::Template->newById($self->session, $self->templateId);
|
|
if (!$template) {
|
|
WebGUI::Error::ObjectNotFound::Template->throw(
|
|
error => qq{Template not found},
|
|
templateId => $self->templateId,
|
|
assetId => $self->getId,
|
|
);
|
|
}
|
|
$template->prepare($self->getMetaDataAsTemplateVariables);
|
|
$self->{_viewTemplate} = $template;
|
|
};
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 purgeCache ( )
|
|
|
|
See WebGUI::Asset::purgeCache() for details.
|
|
|
|
=cut
|
|
|
|
override purgeCache => sub {
|
|
my $self = shift;
|
|
$self->session->cache->remove("view_".$self->getId);
|
|
super();
|
|
};
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 view ( )
|
|
|
|
See WebGUI::Asset::view for details. Generate template variables and
|
|
render the template. Also handles caching.
|
|
|
|
=cut
|
|
|
|
sub view {
|
|
my $self = shift;
|
|
|
|
# Use cached version for visitors
|
|
my $cache = $self->session->cache;
|
|
if ($self->session->user->isVisitor) {
|
|
my $out = $cache->get("view_".$self->getId);
|
|
return $out if $out;
|
|
}
|
|
|
|
my $vars = $self->getTemplateVars;
|
|
# TODO: Getting the children template vars should be a seperate method.
|
|
|
|
my %rules = ( );
|
|
if ( $self->sortAlphabetically ) {
|
|
$rules{ orderByClause } = "assetData.title " . $self->get( "sortOrder" );
|
|
}
|
|
else {
|
|
$rules{ orderByClause } = "asset.lineage " . $self->sortOrder;
|
|
}
|
|
|
|
my $childIter = $self->getLineageIterator( ["children"], \%rules);
|
|
while ( 1 ) {
|
|
my $child;
|
|
eval { $child = $childIter->() };
|
|
if ( my $x = WebGUI::Error->caught('WebGUI::Error::ObjectNotFound') ) {
|
|
$self->session->log->error($x->full_message);
|
|
next;
|
|
}
|
|
last unless $child;
|
|
# TODO: Instead of this it should be using $child->getTemplateVars || $child->get
|
|
if ( $child->isa("WebGUI::Asset::Wobject::Folder") ) {
|
|
push @{ $vars->{ "subfolder_loop" } }, {
|
|
id => $child->getId,
|
|
url => $child->getUrl,
|
|
title => $child->title,
|
|
menuTitle => $child->menuTitle,
|
|
synopsis => $child->synopsis || '',
|
|
canView => $child->canView(),
|
|
"icon.small" => $child->getIcon(1),
|
|
"icon.big" => $child->getIcon,
|
|
};
|
|
}
|
|
else {
|
|
my $childVars = {
|
|
id => $child->getId,
|
|
canView => $child->canView(),
|
|
title => $child->title,
|
|
menuTitle => $child->menuTitle,
|
|
synopsis => $child->synopsis || '',
|
|
size => Number::Format::format_bytes($child->assetSize),
|
|
"date.epoch" => $child->revisionDate,
|
|
"icon.small" => $child->getIcon(1),
|
|
"icon.big" => $child->getIcon,
|
|
type => $child->getName,
|
|
extension => WebGUI::Storage->getFileExtension( $child->get("filename")),
|
|
url => $child->getUrl,
|
|
canEdit => $child->canEdit,
|
|
controls => $child->getToolbar,
|
|
};
|
|
|
|
if ( $child->isa('WebGUI::Asset::File::Image') ) {
|
|
$childVars->{ "isImage" } = 1;
|
|
$childVars->{ "thumbnail.url" } = $child->getThumbnailUrl;
|
|
}
|
|
|
|
if ( $child->isa('WebGUI::Asset::File') ) {
|
|
$childVars->{ "isFile" } = 1;
|
|
$childVars->{ "file.url" } = $child->getFileUrl;
|
|
}
|
|
|
|
push @{ $vars->{ "file_loop" } }, $childVars;
|
|
}
|
|
}
|
|
|
|
my $out = $self->processTemplate( $vars, undef, $self->{_viewTemplate} );
|
|
|
|
# Update the cache
|
|
if ($self->session->user->isVisitor) {
|
|
$cache->set("view_".$self->getId, $out, $self->visitorCacheTimeout);
|
|
}
|
|
|
|
return $out;
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 www_view ( )
|
|
|
|
See WebGUI::Asset::Wobject::www_view() for details.
|
|
|
|
=cut
|
|
|
|
override www_view => sub {
|
|
my $self = shift;
|
|
$self->session->response->setCacheControl($self->visitorCacheTimeout) if ($self->session->user->isVisitor);
|
|
super();
|
|
};
|
|
|
|
__PACKAGE__->meta->make_immutable;
|
|
1;
|
|
|