##################
sub reordermenu {
##################

  accesscheck();

  @menuitems = Cobra::chomp_database("$datadir/defaults/menu.dat", "0");

  open (DATABASE,"<$datadir/defaults/menu.dat");
  hold (DATABASE);
  @menuitems = <DATABASE>;
  release (DATABASE);
  close (DATABASE);


##</code><code>##

 MENUITEM: for ($ndx=0; $ndx<= $#menuitems; $ndx++) {
    ($fid,$fmenu_type,$fmenu_show,$fmenu_filename,
      $fmenu_name,$fmenu_icon)=split(/\|/,$menuitems[$ndx]);
    if ($fid eq $info{'m_id'}) {
      last MENUITEM;
    }
  }

##</code><code>##

    last if ($fid eq $info{'m_id'});

##</code><code>##

  $swap=false;
  if ($m_action eq "moveup" && $ndx != 0) {
    $tondx = $ndx - 1;
    $swap=true;
    
  } elsif ($m_action eq "movedown" && $ndx != $#menuitems) {
    $tondx = $ndx + 1;
    $swap=true;
  }