#Blätterfunktion
sub blaettern {
 my $url=shift;
   my $anhang="";
   my $anzahl=shift;
   my $seite=shift;
   my $maxseite=shift;
   my $get_name="seite";

   $maxseite=int($maxseite+0.999);

   if($url=~ /\?/ ) {
    $anhang="&";
   }
   else {
    $anhang="?";
   }

   if($anzahl % 2 != 0) {
    $anzahl++;
   }

   my $a = $seite-($anzahl/2);
   my $b = 0;
   my @blaetter;

   while($b <= $anzahl) {
     if($a > 0 && $a <= $maxseite)
         {
         push(@blaetter,$a);
         $b++;
         }
      elsif($a > $maxseite && ($a-$anzahl-2)>=0)
         {
         splice(@blaetter);
         $a -= ($anzahl+2);
         $b = 0;
         }
      elsif($a > $maxseite && ($a-$anzahl-2)<0)
         {
         last;
         }
     $a++;
   }

  my $return = "";
  my $count=@blaetter;

  my $exists = grep /^1$/, @blaetter;
  if($exists!=1 && $count > 1) {
   my $exists = grep /^2$/, @blaetter;
   if($exists != 2 && $anzahl ne $maxseite) {
    $return .= "&nbsp;<a href=\"$url$anhang$get_name=1\">1</a>&nbsp;...";
   }
   else {
    $return .= "&nbsp;<a href=\"$url$anhang$get_name=1\">1</a>&nbsp;";
   }
  }

  foreach(@blaetter) {
   if($_ == $seite) {
    $return .= "&nbsp;<b>$_</b>&nbsp;";
   }
   else {
    $return .= "&nbsp;<a href=\"$url$anhang$get_name=$_\">$_</a>&nbsp;";
   }
  }

  $exists = grep /^$maxseite$/, @blaetter;
  if($exists != 1 && $count > 1) {
   my $max = $maxseite-1;
   my $exists = grep /^$max$/, @blaetter;
   if($max != 1) {
    $return .= "...&nbsp;<a href=\"$url$anhang$get_name=$maxseite\">letzte</a>&nbsp;";
   }
   else {
    $return .= "&nbsp;<a href=\"$url$anhang$get_name=$maxseite\">$maxseite</a>&nbsp;";
   }
  }


  return ($return);

}


1;