<loop sort=Jahr,Monat,Tag range=0,5>

sub BereichErmitteln {
 my ($AnzahlDS, $Start, $Pfad, $MaxProSeite) = @_;
 
 ####### Initialisieren
 my ($i, $SeitenGesamt, $Ergebnis, $Vorne, $Hinten) = (0, 0, "", 0, 0);
 $MaxProSeite = 10 unless ($MaxProSeite);
 
 if ($AnzahlDS > $MaxProSeite) {
  ####### Seitenzahl feststellen
  my $Rest = ($AnzahlDS % $MaxProSeite);
  $SeitenGesamt = $AnzahlDS - $Rest;
  $SeitenGesamt = ($SeitenGesamt / $MaxProSeite);
  ++$SeitenGesamt if ($Rest);
  my $AktuelleSeite = $Start / $MaxProSeite + 1;

  ####### Sichtbaren Bereich feststellen
  if ($SeitenGesamt > 6) {
   $Vorne = $AktuelleSeite - 2;
   $Hinten = $AktuelleSeite + 3;
   if ($Vorne < 1) {
    $Hinten += (-$Vorne + 1);
    $Vorne = 1;
   } elsif ($Hinten > $SeitenGesamt) {
    $Vorne -= ($Hinten - $SeitenGesamt);
    $Hinten = $SeitenGesamt;
   }
  } else {
   $Vorne = 1;
   $Hinten = $SeitenGesamt;
  }
  ####### Ausgabe erarbeiten
  if($Start >= $MaxProSeite) {
   $bereich=$Start-$MaxProSeite;
  } else {
   $bereich=0;
  }
  $Ergebnis .= "&raquo; <a href=\"$Pfad&range=0,$MaxProSeite\">Anfang</a> | " if ($AktuelleSeite > 1) && ($Vorne > 1);
  $Ergebnis .= "&raquo; <a href=\"$Pfad&range=$bereich,$MaxProSeite\">Zur&uuml;ck</a> | " if ($AktuelleSeite > 1);
  $Ergebnis .= "..." if ($Vorne > 1);
  
  for ($x = $Vorne; $x <= $Hinten; $x++) {
   if ($x != $AktuelleSeite) {
    $x_bereich = ($x-1)*$MaxProSeite;
    $Ergebnis .= "<a href=\"$Pfad&range=$x_bereich,$MaxProSeite\">$x</a>";
   } else {
    $Ergebnis .= "<b>$x</b>";
   }
   
   $Ergebnis .= "," if ($x < $Hinten);
  }
  
  $Ergebnis .= "..." if ($Hinten < $SeitenGesamt);
  
  if($Start <= $AnzahlDS-$MaxProSeite) {
   $bereich=$Start+$MaxProSeite;
  } else {
   $bereich=$Start;
  }
  
  $x_bereich = ($SeitenGesamt-1)*$MaxProSeite;
  $Ergebnis .= " | &raquo; <a href=\"$Pfad&range=$bereich,$MaxProSeite\">Weiter</a>" if ($AktuelleSeite < $SeitenGesamt);
  $Ergebnis .= " | &raquo; <a href=\"$Pfad&range=$x_bereich,$MaxProSeite\">Ende</a>" if ($AktuelleSeite < $SeitenGesamt) && ($Hinten < $SeitenGesamt);
 }

 return $Ergebnis;

$start=0+$_range;
$path="http://WWW.DEINEDOMAIN.DE/BASEPORTAL/TEMPLATE";

my $Bereich = &BereichErmitteln($_amount_query, $start, $path, 5);

out $Bereich;

out $Bereich;