<perl>
## wenn suchen
if (@_sel)
{
   $i=0;
   ## array _sel durchgehen
   foreach (@_sel)
   {
      $_sel[$i-1]="|" if $merken eq $_; ## wenn 2x dasselbe Abfragefeld hintereinander steht & gegen | tauschen
      $merken=$_ unless $i%4; ## jedes 4 Element für Vergleich oben merken
      $i++; ## mitzählen
   }
}
</perl>
<do action=all ...>