<perl>
#--------------------- Navigation Datensatz-Detail ---------
if($cmd eq "all" or $cmd eq "do_mod")
{
get;
my $ne=$$_db{Id}[${$$_db{_idfnr}}{$_get{Id}}+1];
my $ba=$$_db{Id}[${$$_db{_idfnr}}{$_get{Id}}-1];
$_nav="<a href='$_link&Id=$ne&cmd=$cmd&db=$_get{db}&@_sel'>[weiter]</a> " if(${$$_db{_idfnr}}{$_get{Id}}<@{$$_db{Id}}-1); 
$_nav.="<a href='$_link&Id=$ba&cmd=$cmd&db=$_get{db}&@_sel'>[zurück]</a>" if(${$$_db{_idfnr}}{$_get{Id}}>0);
}
#-----------------------------------------------------------
</perl>