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

Flesh out Revisions assetHelper.

Browse source 
Add a simple method to WebGUI::HTML to format an array as a table row.
Do not join non-asset tables in queries.
This commit is contained in:
Colin Kuskie 2009-11-29 16:03:51 -08:00
parent eba37b8bc1
commit 3eb0ac756f
3 changed files with 108 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -3,6 +3,8 @@ package WebGUI::AssetHelper::Revisions;
use strict;
use Class::C3;
use base qw/WebGUI::AssetHelper/;
use WebGUI::User;
use WebGUI::HTML;
=head1 LEGAL
@ -40,10 +42,56 @@ Opens a new tab for displaying revisions of this asset.
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('func=manageRevisions'),
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;