CVS Update: gleipnir

[Dan Brosemer <odin@cleannorth.org>]

Log Message:
-----------
Add a few template vars to the pagination routine to facilitate prettying it up.

Modified Files:
--------------
    gleipnir/perllib/Gleipnir:
        Page.pm

Revision Data
-------------
Index: Page.pm
===================================================================
RCS file: /cvs/gleipnir/perllib/Gleipnir/Page.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -Lperllib/Gleipnir/Page.pm -Lperllib/Gleipnir/Page.pm -u -r1.18 -r1.19
--- perllib/Gleipnir/Page.pm
+++ perllib/Gleipnir/Page.pm
@@ -330,6 +330,7 @@
 	my @args     = ();
 	my %arghash  = $cgi->Vars;
 
+	my $outer = (( $spage != 0 ) || ( $spage + 9 < int($items / $perpage) ))?1:0;
 	foreach my $aname ( keys %arghash )
 		{
 		next if ( $aname eq 'page' );
@@ -339,15 +340,14 @@
 	for ( my $i = $spage ; $i <= int( $items / $perpage ) ; $i++ )
 		{
 		my $current = ( $i == $cpage ) ? 1 : 0;
-		push @pageinfo, { url => "$url", args => \@args, page => $i, current => $current };
+		push @pageinfo, { url => $url, args => \@args, page => $i, current => $current, display => $i+1};
 		last if ( $i >= $spage + 9 );
 		}
 
 	my $nextpage = ( $cpage == int( $items / $perpage ) ) ? $cpage : ( $cpage + 1 );
 	my $prevpage = ( $cpage == 0 ) ? $cpage : ( $cpage - 1 );
 
-	$template->param( nextpage => $nextpage );
-	$template->param( prevpage => $prevpage );
+	$template->param( nextpage => $nextpage, prevpage => $prevpage, outer => $outer, none => ($nextpage == 0 and $prevpage == 0) );
 
 	$template->param( { url => "$url", args => \@args, lastpage => int( $items / $perpage ), firstpage => 0, pageinfo => \@pageinfo } );
 	warn "$url\n";