Select Code to Download

##################
...
  release (DATABASE);
  close (DATABASE);

 MENUITEM: for ($ndx=0; $ndx<= $#menuitems; $ndx++) {
    ($fid,$fmenu_type,$fmenu_show,$fmenu_filename,
...
      last MENUITEM;
    }
  }

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

  $swap=false;
  if ($m_action eq "moveup" && $ndx != 0) {
...
    $tondx = $ndx + 1;
    $swap=true;
  }