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

fixed a bug that would only happen when you tried to deploy a package that contained collaboration systems with posts

Browse source
This commit is contained in:
JT Smith 2006-09-22 18:09:08 +00:00
parent 56e78708a4
commit 3f45819b49
2 changed files with 17 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
docs/changelog/7.x.x.txt
View file

@ -11,6 +11,10 @@
- fix: search functionality throwing fatal errors - fix: search functionality throwing fatal errors
- fix: DBI connect errors infinitely recurse - fix: DBI connect errors infinitely recurse
- add: setting cookieTTL to "session" now creates browser-session cookies - add: setting cookieTTL to "session" now creates browser-session cookies
- Added a reverse option for the getAssets method in VersionTag.
- Fixed a bug that would occur when deploying a package that contained a
collaboration system with posts.
7.0.7 7.0.7
- rfe: Image Management (funded by Formation Design Systems) - rfe: Image Management (funded by Formation Design Systems)

16
lib/WebGUI/VersionTag.pm
View file

@ -92,7 +92,7 @@ Commits all assets edited under a version tag, and then sets the version tag to
sub commit { sub commit {
my $self = shift; my $self = shift;
foreach my $asset (@{$self->getAssets}) { foreach my $asset (@{$self->getAssets({"reverse"=>1})}) {
$asset->commit; $asset->commit;
} }
$self->{_data}{isCommitted} = 1; $self->{_data}{isCommitted} = 1;
@ -133,16 +133,26 @@ sub getAssetCount {
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 getAssets ( ) =head2 getAssets ( [options] )
Returns a list of asset objects that are part of this version tag. Returns a list of asset objects that are part of this version tag.
=head3 options
A hash reference containing options to change the output.
=head4 reverse
A boolean that will reverse the order of the assets. The default is to return the assets in descending order.
=cut =cut
sub getAssets { sub getAssets {
my $self = shift; my $self = shift;
my $options = shift;
my @assets = (); my @assets = ();
my $sth = $self->session->db->read("select asset.assetId,asset.className,assetData.revisionDate from assetData left join asset on asset.assetId=assetData.assetId where assetData.tagId=? order by revisionDate desc", [$self->getId]); my $direction = $options->{reverse} ? "asc" : "desc";
my $sth = $self->session->db->read("select asset.assetId,asset.className,assetData.revisionDate from assetData left join asset on asset.assetId=assetData.assetId where assetData.tagId=? order by revisionDate ".$direction, [$self->getId]);
while (my ($id,$class,$version) = $sth->array) { while (my ($id,$class,$version) = $sth->array) {
push(@assets, WebGUI::Asset->new($self->session,$id,$class,$version)); push(@assets, WebGUI::Asset->new($self->session,$id,$class,$version));
} }