sub pagebreak{
	my $begin = "<center>";
	my $next = "Next Page >>";
	my $nonext = "Next Page >>";
	my $previous = "<< Previous Page";
	my $noprevious = "<< Previous Page";
	my $end = "</center>";
	
	my $urlfragment;
	foreach(keys %form){
		next if($_ eq 'pb' || $_ eq 'page');
		my $f = $form{$_};
		$f=~s/(\W)/'%'.unpack("H2", $1)/eg;
		$urlfragment.='&' if $urlfragment;
		$urlfragment.="$_=$f";
	}
	my($pcount, $pagebreak) = @_;

	# Print Pagebreak Links
	print $begin;
	if($form{page} > 0){ print " <a href=$ENV{SCRIPT_NAME}?$urlfragment&page=@{[$form{page}-1]}&pb=$form{pb}>$previous</a> " }
	else{ print " $noprevious " }
	print "|";
	for(0..$form{page}-1){ print " <a href=$ENV{'SCRIPT_NAME'}?$urlfragment&page=$_&pb=$form{pb}>@{[$_+1]}</a> " }
	print " <b>", int($form{page})+1, "</b> ";
	for($form{page}+1..$pcount){ print " <a href=$ENV{'SCRIPT_NAME'}?$urlfragment&page=$_&pb=$form{pb}>@{[$_+1]}</a> " }
	if($pcount>0){ print " <a href=$ENV{'SCRIPT_NAME'}?$urlfragment&pb=@{[(1+$pcount)*$pagebreak]}>All</a> " }
	print "|";
	if($form{page} < $pcount){ print " <a href=$ENV{'SCRIPT_NAME'}?$urlfragment&page=@{[$form{page}+1]}&pb=$form{pb}>$next</a> " }
	else{ print " $nonext " }
	print $end;
}