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

	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;
		}
	}

	$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;
	}

	if ($swap) {
		chomp($menuitems[$ndx]);
		chomp($menuitems[$tondx]);
		($fid,$fmenu_type,$fmenu_show,$fmenu_filename,$fmenu_name,$fmenu_icon)=split(/\|/,$menuitems[$ndx]);
		($tid,$tmenu_type,$tmenu_show,$tmenu_filename,$tmenu_name,$tmenu_icon)=split(/\|/,$menuitems[$tondx]);

		$menuitems[$ndx]   = "$fid|$tmenu_type|$tmenu_show|$tmenu_filename|$tmenu_name|$tmenu_icon\n";
		$menuitems[$tondx] = "$tid|$fmenu_type|$fmenu_show|$fmenu_filename|$fmenu_name|$fmenu_icon\n";
	}

	open (DATABASE,">$datadir/defaults/menu.dat");
	hold(DATABASE);
	foreach $rec (@menuitems){
		print DATABASE $rec;
	}
	release(DATABASE);
	close (DATABASE);

showmenu();

exit;

}