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

Fixed a limit bug in the asset discovery service.

Browse source
This commit is contained in:
JT Smith 2008-10-16 16:16:23 +00:00
parent 5974531eeb
commit 2b8a3c279d
3 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,5 +1,6 @@
7.6.2
- fixed #8839: Documentation is wrong for Stock Ticker
- Fixed a limit bug in the asset discovery service.
7.6.1
- changed: the list of extensions for the export system to pass through

4
lib/WebGUI/Asset/Wobject/Gallery.pm
View file

@ -1276,10 +1276,10 @@ sub www_listAlbumsService {
my $count = 1;
for my $assetId ( @{ $self->getAlbumIds } ) {
if ($count < $pageNumber * 100 - 99) { # skip low page numbers
if ($count < $pageNumber * 100 - 100) { # skip low page numbers
next;
}
if ($count > $pageNumber * 100) { # skip high page numbers
if ($count > $pageNumber * 100 - 1) { # skip high page numbers
last;
}
my $asset = WebGUI::Asset->new( $session, $assetId, 'WebGUI::Asset::Wobject::GalleryAlbum' );

4
lib/WebGUI/Content/AssetDiscovery.pm
View file

@ -109,10 +109,10 @@ sub handler {
my $class = $form->get('className');
if ($class ne '') {
my $start = WebGUI::Asset->newByUrl($session);
my $limit = ($pageNumber * 100 - 99).','.($pageNumber * 100);
my $limit = ($pageNumber * 100 - 100).','.($pageNumber * 100 - 1);
my $siteUrl = $session->url->getSiteURL;
my $date = $session->datetime;
my $matchingAssets = $session->db->read("select assetId from asset where lineage like ? and className like ? limit ".$limit, [$start->get('lineage').'%', $class.'%']);
my $matchingAssets = $session->db->read("select assetId from asset where lineage like ? and className=? limit ".$limit, [$start->get('lineage').'%', $class]);
while (my ($id) = $matchingAssets->array) {
my $asset = WebGUI::Asset->new($session, $id, $class);
if (defined $asset) {