<perl>
$v=$v||0;
</perl>

get "Id==* _fullsearch~=$suche fullsearch_match=500 range=$v,6 @_sel", "marysol";
</perl>

out<<EOF;
#Hier steht der HTML-Ausgabe-Loop mit den Variablen# 
EOF
</loop>

my $range=$_range_length;
my $blaettern=$_range_length;
my $blaetter_lang=$range*6;
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
my $color='#CCCCCC';
my $color_vonbis='#FFFFFF';
my $color_zahl='#CCCCCC';
my $color_vorzu='#CCCCCC';
my $color_balken='#CCCCCC';
my $font='Times New Roman, Verdana, Arial';
my $size='2';
my $table='';
my $table_align='left';
#Beginn des neuen Scripts# 
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
sub show_amount{ ################################################################

# syntax: &show_amount ($_range,$_range_length,$_amount,$_amount_query, $bezeich,$flink,$ausricht,$breite) ;
my ($_range,$_range_length,$_amount,$_amount_query, $bezeich,$flink,$ausricht,$breite) = @_ ;
 
# my ($_range,$_range_length,$_amount,$_amount_query) = @_ ;
$ausricht ||= "right";
$bezeich ||= "Einträge";
$ausrichtung = $ausricht ne "" ? "align='$ausricht'" : "";
my $breit = $breite == "v" || $breite == "" ? "" : $breite;
$z_linkzugang = $z_linkzugang eq "" ? "z=z" : $z_linkzugang; # wenn $z_linkzugang leer definiert, damit Link funzt
my $_link = "$_link&$z_linkzugang&dsn=$dsn";
$_link .= $flink ne "" ? $flink : "";
my $range=$_range_length;
my $blaettern=$_range_length;
my $blaetter_lang = $range*10;
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
 
#
# my $tab_breit = "100%"; # Gesamtbreite der Tabelle
my $tab_breit = $breit ne "" ? "width=$breit" : ""; # Gesamtbreite der Tabelle
my $fs_fgh = "#F0F0F0"; # $fs_fgh eq "" ? "#D0D0D0" : $fs_fgh;
my $fs_fg = "#C0C0C0"; # $fs_fg eq "" ? "#C0C0C0" : $fs_fg;
my $tssk = $tssk eq "" ? "10px" : $tssk;
#
my $fa = "$fs_fgh"; # Hintergrundfarbe der Zellen mit Links
my $t_style = "style='font-size:$tssk;'"; # Schriftgrösse
my $fa = $fs_fgh;
my $v = $ra eq "" ? 0 : $ra;
 
####
my ($tab_index,$tab_amount);
$tab_index =<<EOF;
<table cellpadding=2 cellspacing=1 $ausrichtung>
<tr align=left><td width=20px $t_style bgcolor=$fa align=center>
EOF
$oldrange = 0 if $oldrange < 0 && $oldrange > -$_range_length;
$ende = substr($_amount_query,0,length($_amount_query)-1); # 10er zuvor (echt tricky!)
$ende2 = $_amount_query - $_amount_query % 10;
 
### $_link&$z_link&dsn=$dsn&ra_$db_n=$a_offset&ra_l_$db_n=$ra_l
$tab_index .= $oldrange >= 0 ? "<a class=klein href=\"$_link&ra=0\">|<</a>" : "|<";
$tab_index .= "</td><td width=20px $t_style bgcolor=$fa align='center'>";
$tab_index .= $oldrange >= 0 ? "<a class=klein href=\"$_link&ra=$oldrange\"><</a>":"<<";
$tab_index .= "</td><td width=20px $t_style bgcolor=$fa align='center'>";
$tab_index .= $newrange < $_amount_query ? "<a class=klein href=\"$_link&ra=$newrange\">></a>" : ">>";
$tab_index .= "</td><td width=20px $t_style bgcolor=$fa align='center'>";
$tab_index .= $newrange < $_amount_query ? "<a class=klein href=\"$_link&ra=".($ende."0")."\">>|
</a>" : ">|";
$tab_index .= "</td><td $t_style align='center'> <!--Einträge--> ";
$tab_index .= $_amount_query == 0 ? "<nobr>Keine $bezeich vorhanden!</nobr>" : "<nobr>$bezeich ".($v+1)." bis
".( ($v+$blaettern) > $_amount_query ? "$_amount_query" : ($v+$blaettern) )." von $_amount_query </nobr></td>";
if ($_amount){
 
$vr = int ($v / $blaetter_lang) unless $_range==0;
   $vr = $vr * $blaetter_lang;
   $tab_index .= "<td width=20px $t_style bgcolor=$fa align='center'><a class=klein href=$_link&ra=".($vr-$blaetter_lang)."><<</a></td>" if ($vr-$blaetter_lang) >= 0;
        # . . . . . . . . . . . . . . . . . .
   for ($i=$vr;$i<($vr+$blaetter_lang<=$_amount_query?($vr+$blaetter_lang):$_amount_query); $i+=$blaettern){
   $tab_index .= ($v==$i ? "<td width=20px $t_style bgcolor=$fs_fg align='center'><b>".($i+1)."</b>" : "<td width=20 $t_style bgcolor=$fs_fgh align='center'><a class=klein href=$_link&ra=$i>".($i+1)."</a>")."</td>";
   }
   $tab_index .= "<td width=20px $t_style bgcolor=$fa align='center'><a class=klein href=$_link&ra=$i>>></a></td>" if $i<$_amount_query;
}
$tab_index .= "</tr></table>";
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
$tab_amount =<<EOF;
<div align=$ausricht>
<table cellpadding=0 cellspacing=0>
 
<tr><td $ausrichtung>
$tab_index
</td></tr>

</div>
EOF
$a_debug.= "<b>E sub show_amount</b><br>";
 
return $tab_amount;
#subende#
} ################################################################
 
#Ende des neuen Scripts#
out "<div align=$table_align>";
out "<table width=$table cellpadding=4 height=25 cellspacing=4><tr align=left>
<td bgcolor=$color align='center'><font face=$font font size=$size>";
 
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;

out "</font></td><td bgcolor=$color align='center'><font face=$font font size=$size>";
out $oldrange>=0?"<a href=\"$_link&v=$oldrange&suche=$suche&@_sel&sort=$sort\"><</a>":"<<";
out "</font></td><td bgcolor=$color align='center'><font face=$font font size=$size>";

out $newrange<$_amount_query?"<a href=\"$_link&v=$newrange&suche=$suche&@_sel&sort=$sort\">></a>":">>";
out "</font></td><td font face=$font font size=$size bgcolor=$color align='center'><font face=$font font size=1>";
out $newrange<$_amount_query?"<a href=\"$_link&suche=$suche&v=".($ende."0")."&@_sel&sort=$sort\">>|
</a>":">|";
out "</font></td><td bgcolor=$color_vonbis width='185' align='center'><font face=$font font size=$size>Inserate ".($v+1)." bis
".(($v+$blaettern)>$_amount_query?"$_amount_query":($v+$blaettern))." von
$_amount_query</td>";
 
if ($_amount)
{

$vr=$vr*$blaetter_lang;
out "<td bgcolor=$color_vorzu align='center'><font face=$font font size=$size><a href=$_link&suche=$suche&v=".($vr-$blaetter_lang)."&@_sel&sort=$sort><<</a></font></td>" if
 
($vr-$blaetter_lang)>=0;
for ($i=$vr;$i<($vr+$blaetter_lang<=$_amount_query?($vr+$blaetter_lang):$_amount_query); $i+=$blaettern)

out "<td bgcolor=$color_zahl align='center'><font face=$font font size=$size>".($v==$i?"<b>".($i+1)."</b>":"<a
href=$_link&suche=$suche&v=$i&@_sel&sort=$sort>".($i+1)."</a>")."</font></td>";
}
out "<td bgcolor=$color_vorzu align='center'><font face=$font font size=$size><a href=$_link&suche=$suche&v=$i&@_sel&sort=$sort>>></a></font></td>" if $i<$_amount_query;
}
out "</font></tr></table></div>"; 
</perl>