From 21d003c4c39e3e08a361addacfa85a63ccb9be15 Mon Sep 17 00:00:00 2001 From: mausch Date: Tue, 10 Jan 2012 20:49:14 -0300 Subject: [PATCH] fixed pagination --- QuartzNetWebConsole.Views/PaginationInfo.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/QuartzNetWebConsole.Views/PaginationInfo.vb b/QuartzNetWebConsole.Views/PaginationInfo.vb index 1f8fee9..615adb3 100644 --- a/QuartzNetWebConsole.Views/PaginationInfo.vb +++ b/QuartzNetWebConsole.Views/PaginationInfo.vb @@ -17,7 +17,7 @@ Public ReadOnly Property LastPage As Integer Get - Return CInt(Math.Floor(CDec(TotalItemCount) - 1) / PageSize) + 1 + Return CInt(Math.Floor((CDec(TotalItemCount) - 1) / PageSize)) + 1 End Get End Property @@ -59,7 +59,7 @@ Public ReadOnly Property Pages As IEnumerable(Of Integer) Get Dim pageCount = LastPage - Dim pageFrom = Math.Max(1, CurrentPage - PageSize) + Dim pageFrom = Math.Max(1, CurrentPage - PageSlide) Dim pageTo = Math.Min(pageCount, CurrentPage + PageSlide) pageFrom = Math.Max(1, Math.Min(pageTo - 2 * PageSlide, pageFrom)) pageTo = Math.Min(pageCount, Math.Max(pageFrom + 2 * PageSlide, pageTo))