1#!/usr/local/bin/perl
2# Move a title down
3
4require './grub-lib.pl';
5&ReadParse();
6&lock_file($config{'menu_file'});
7$conf = &get_menu_config();
8@t = &find("title", $conf);
9&swap_directives($t[$in{'idx'}], $t[$in{'idx'}+1]);
10&flush_file_lines($config{'menu_file'});
11&unlock_file($config{'menu_file'});
12&webmin_log("down", "title", undef, $t[$in{'idx'}]);
13&redirect("");
14
15