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

remove unneeded asset helpers

Browse source
This commit is contained in:
Doug Bell 2010-10-14 18:13:31 -05:00
parent d40fbc8255
commit 20744ce25d
4 changed files with 0 additions and 279 deletions
Download patch file Download diff file Expand all files Collapse all files

62
lib/WebGUI/AssetHelper/Demote.pm
View file

@ -1,62 +0,0 @@
package WebGUI::AssetHelper::Demote;
use strict;
use Class::C3;
use base qw/WebGUI::AssetHelper/;
=head1 LEGAL
-------------------------------------------------------------------
WebGUI is Copyright 2001-2009 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
-------------------------------------------------------------------
=head1 NAME
Package WebGUI::AssetHelper::Demote
=head1 DESCRIPTION
Demotes the asset with respect to its siblings.
=head1 METHODS
These methods are available from this class:
=cut
#-------------------------------------------------------------------
=head2 process ( $class, $asset )
Demotes the asset. If the user cannot edit the asset it returns an error message.
=cut
sub process {
my ($class, $asset) = @_;
my $session = $asset->session;
my $i18n = WebGUI::International->new($session, 'WebGUI');
if (! $asset->canEdit) {
return { error => $i18n->get('38'), };
}
my $success = $asset->demote();
if (! $success) {
return {
error => sprintf($i18n->get('unable to demote assset', 'Asset'), $asset->getTitle),
};
}
return {
message => sprintf($i18n->get('demoted asset', 'Asset'), $asset->getTitle),
};
}
1;

58
lib/WebGUI/AssetHelper/Manage.pm
View file

@ -1,58 +0,0 @@
package WebGUI::AssetHelper::Manage;
use strict;
use Class::C3;
use base qw/WebGUI::AssetHelper/;
use WebGUI::User;
use WebGUI::HTML;
=head1 LEGAL
-------------------------------------------------------------------
WebGUI is Copyright 2001-2009 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
-------------------------------------------------------------------
=head1 NAME
Package WebGUI::AssetHelper::Manage
=head1 DESCRIPTION
Displays the asset manager, starting at this Asset.
=head1 METHODS
These methods are available from this class:
=cut
#-------------------------------------------------------------------
=head2 process ( $class, $asset )
Opens a new tab for displaying the Asset Manager, starting at this Asset.
=cut
sub process {
my ($class, $asset) = @_;
my $session = $asset->session;
my $i18n = WebGUI::International->new($session, "Asset");
if (! $asset->canEdit) {
return {
error => $i18n->get('38', 'WebGUI'),
}
}
return {
open_tab => $asset->getManagerUrl,
};
}
1;

62
lib/WebGUI/AssetHelper/Promote.pm
View file

@ -1,62 +0,0 @@
package WebGUI::AssetHelper::Promote;
use strict;
use Class::C3;
use base qw/WebGUI::AssetHelper/;
=head1 LEGAL
-------------------------------------------------------------------
WebGUI is Copyright 2001-2009 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
-------------------------------------------------------------------
=head1 NAME
Package WebGUI::AssetHelper::Promote
=head1 DESCRIPTION
Promotes the asset with respect to its siblings.
=head1 METHODS
These methods are available from this class:
=cut
#-------------------------------------------------------------------
=head2 process ( $class, $asset )
Promotes the asset. If the user cannot edit the asset it returns an error message.
=cut
sub process {
my ($class, $asset) = @_;
my $session = $asset->session;
my $i18n = WebGUI::International->new($session, 'WebGUI');
if (! $asset->canEdit) {
return { error => $i18n->get('38'), };
}
my $success = $asset->promote();
if (! $success) {
return {
error => sprintf($i18n->get('unable to promote assset', 'Asset'), $asset->getTitle),
};
}
return {
message => sprintf($i18n->get('promoted asset', 'Asset'), $asset->getTitle),
};
}
1;

97
lib/WebGUI/AssetHelper/Revisions.pm
View file

@ -1,97 +0,0 @@
package WebGUI::AssetHelper::Revisions;
use strict;
use Class::C3;
use base qw/WebGUI::AssetHelper/;
use WebGUI::User;
use WebGUI::HTML;
=head1 LEGAL
-------------------------------------------------------------------
WebGUI is Copyright 2001-2009 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
-------------------------------------------------------------------
=head1 NAME
Package WebGUI::AssetHelper::Revisions
=head1 DESCRIPTION
Displays the revisions for this asset.
=head1 METHODS
These methods are available from this class:
=cut
#-------------------------------------------------------------------
=head2 process ( $class, $asset )
Opens a new tab for displaying revisions of this asset.
=cut
sub process {
my ($class, $asset) = @_;
my $session = $asset->session;
my $i18n = WebGUI::International->new($session, "Asset");
if (! $asset->canEdit) {
return {
error => $i18n->get('38', 'WebGUI'),
}
}
return {
open_tab => $asset->getUrl('op=assetHelper;className=WebGUI::AssetHelper::Revisions;func=manageRevisions'),
};
}
#-------------------------------------------------------------------
=head2 www_manageRevisions ( $class, $asset )
Displays a table of revision data for this asset, along with links to edit each revision, view it, or delete it.
=cut
sub www_manageRevisions {
my ($class, $asset) = @_;
my $session = $asset->session;
my $i18n = WebGUI::International->new($session, "Asset");
if (! $asset->canEdit) {
return {
error => $i18n->get('38', 'WebGUI'),
}
}
my $output = sprintf qq{<table style="width: 100%;" class="content">\n
<tr><th></th><th>%s</th><th>%s</th><th>%s</th></tr>\n},
$i18n->get('revision date'), $i18n->get('revised by'), $i18n->get('tag name');
my $sth = $session->db->read("select ad.revisionDate, ad.revisedBy, at.name, ad.tagId from assetData as ad
left join assetVersionTag as at on ad.tagId=at.tagId where ad.assetId=? order by revisionDate desc", [$asset->getId]);
my $url = $asset->get('url');
while (my ($date, $userId, $tagName, $tagId) = $sth->array) {
my $user = WebGUI::User->new($session, $userId);
$output .= WebGUI::HTML::arrayToRow(
$session->icon->delete("func=purgeRevision;revisionDate=".$date, $url, $i18n->get("purge revision prompt"))
.$session->icon->view( "func=view;revision=" . $date )
.$session->icon->edit( "func=edit;revision=" . $date ),
$session->datetime->epochToHuman($date),
$user->username,
'<a href="'.$asset->getUrl("op=manageRevisionsInTag;tagId=".$tagId).'">'.$tagName.'</a>'
);
}
$sth->finish;
$output .= '</table>';
return $output;
}
1;