******************************************************************************
*       MOD NAME: THREAD PAGINATION (For UBB 6.2.1)			     *
******************************************************************************
*    DESCRIPTION: FOR THREADS >5 PAGES LONG, CHANGES PAGES TO << < 4 5 6 > >>*
******************************************************************************
*             BY: Allen Ayres						     *
*		 							     *
*           DATE: FEB 28, 2002	                                             *
*        VERSION: 6.2.1			                                     *
*ORIGINAL AUTHOR: Travis					   	     *
*		  						             *
******************************************************************************
*   REQUIREMENTS: A full version of UBB 6.2.1                                *
*  COMPATABILITY: tested on 6.2.1 (should work on all 6.2x)     	     *
******************************************************************************
* FILES MODIFIED: ubb_lib_posting.cgi				             *
*                 			                                     *
******************************************************************************
*     DISCLAIMER: By using this mod, the user implicitly agrees that they    *
*                 are willingly modifying any and all files at their own     *
*                 risk.  Should any errors occur either as a direct or       *
*                 indirect result of said modifications the user agrees not  *
*                 to hold Infopop Corporation or any of the individuals      *
*                 listed above accountable.                                  *
*                                                                            *
*                                                                            *
*    IN OTHER WORDS: PLEASE MAKE BACKUP COPIES OF EVERY FILE YOU PLAN TO     *
*                      MODIFY PRIOR TO MODIFICATION!!                        *
*                                                                            *
*                                                                            *
*     FOR MORE TIPS AND TRICKS FOR USE WITH THE ULTIMATE BULLETIN BOARD      *
*                       PLEASE GIVE US A VISIT AT:                           *
*                                                                            *
*                               http://www.ubbdev.com                        *
*                                                                            *
******************************************************************************

********************************
*  Open ubb_lib_posting.cgi
********************************

#########
# FIND  #
#########

			foreach (1 .. $TotalPages) {
				if ($_ == 1) {
					$PageName = '';
				} else {
					$PageName = "$_";
				}

				if ($page_number == $_) {
					$TopicPageTotal .= qq(&nbsp;$_&nbsp;);
				} else {
					$TopicPageTotal .= qq(&nbsp;<a href="$ULTIMATEBB?ubb=get_topic;f=$in{f};t=$topic_number;p=$PageName">$_</a>&nbsp;)

				}
			}    # foreach page...

################
# REPLACE WITH #
################
			if ($TotalPages < '5') {
			&PageOff;
			} else {
			&PageOn;
			}
			sub PageOff {
			foreach (1 .. $TotalPages) {
			if ($_ == 1) {
			$PageName = '';
			} else {
			$PageName = "$_";
			}
			if ($page_number == $_) {
			$TopicPageTotal .= qq( $_ );
			} else {
			$TopicPageTotal .= qq( <a href="$ULTIMATEBB?ubb=get_topic;f=$in{f};t=$topic_number;p=$PageName">$_</a> )
			}
			}    # foreach page...
			}

			sub PageOn {
			if ($page_number == 1) {
			                        $TopicPageTotal .= qq(<< );
							$TopicPageTotal .= qq(<);
						} else {
							$PrevPage = $page_number - 1;
			                        $TopicPageTotal .= qq(<a href="$ULTIMATEBB?ubb=get_topic;f=$in{f};t=$topic_number;p=1"><<</a>  );
							$TopicPageTotal .= qq(<a href="$ULTIMATEBB?ubb=get_topic;f=$in{f};t=$topic_number;p=$PrevPage"><</a> );
							$TopicPageTotal .= qq(<a href="$ULTIMATEBB?ubb=get_topic;f=$in{f};t=$topic_number;p=$PrevPage">$PrevPage</a> );
						}
						foreach ($page_number) {
							if ($page_number == $_) {
								$TopicPageTotal .= qq( $_ );
							} else {
								$TopicPageTotal .= qq( <a href="$ULTIMATEBB?ubb=get_topic;f=$in{f};t=$topic_number;p=$_">$_</a>);
						}
						}    # foreach page...

						if ($page_number == $TotalPages) {
							$TopicPageTotal .= qq(> );
			                        $TopicPageTotal .= qq(>>);
						} else {
							$NextPage = $page_number + 1;
							$TopicPageTotal .= qq(<a href="$ULTIMATEBB?ubb=get_topic;f=$in{f};t=$topic_number;p=$NextPage"> $NextPage</a> );
							$TopicPageTotal .= qq(<a href="$ULTIMATEBB?ubb=get_topic;f=$in{f};t=$topic_number;p=$NextPage">></a>  );
			                        $TopicPageTotal .=qq(<a href="$ULTIMATEBB?ubb=get_topic;f=$in{f};t=$topic_number;p=$TotalPages">>></a> );
						}
			}