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

Fix the duplicating of events with related links that have restrictive permissions. Fixes bug #12010.

Browse source
This commit is contained in:
Colin Kuskie 2012-03-20 11:59:13 -07:00
parent 1eb5579f67
commit fcd933489b
3 changed files with 27 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Asset/Event.pm
View file

@ -420,7 +420,7 @@ sub duplicate {
my $newAsset = $self->SUPER::duplicate(@_);
my $newStorage = $self->getStorageLocation->copy;
$newAsset->update({storageId=>$newStorage->getId});
my $links = $self->getRelatedLinks();
my $links = $self->getRelatedLinks('nolimit');
my $id = $self->session->id;
foreach my $link (@{ $links }) {
$link->{new_event} = 1;
@ -1076,12 +1076,16 @@ Gets an arrayref of hashrefs of related links.
sub getRelatedLinks {
my $self = shift;
my $limitflag = shift || 'yes';
my $sth
= $self->session->db->prepare(
"SELECT * FROM Event_relatedlink WHERE assetId=? ORDER BY sequenceNumber",
);
$sth->execute([ $self->getId ]);
if( $limitflag eq 'nolimit' ) {
return [ map { $sth->hashRef } ( 1..$sth->rows ) ];
}
my @links;
while ( my $link = $sth->hashRef ) {