################################################################
sub correct_linkvars { # bei Linkvariablen führendes & entfernen
 $a_debug.= "Hash \%_get:<br>";
 while ( ($k,$v) = each %_get){
 $a_debug.= "<ul style='margin: 2 10;'>\$k($k) - \$v($v)</ul>";
    if ($k =~ /^&+/){
    $k =~ s/^&+//g;
    ${"$k"} = $v;
    $_get{${"&".$k}} = undef; ${"&".$k} = undef;
    }
 }
}
################################################################