##################
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);