# print "ID: $_ Deleted $detailed_path <BR>\n" if $DEBUG > 0;
#exit;

print $IN->header;
print "ID: $_ Deleted $detailed_path <BR>\n" if $DEBUG > 0;
exit;

sub delete_link {
# -----------------------------------------------------------------------------
# This subroutine will be called whenever the hook 'delete_link' is run. You
# should call GT::Plugins->action(STOP) if you don't want the regular
# 'delete_link' code to run, otherwise the code will continue as normal.
#
my (@args) = @_;

my @ids = $IN->param('delete');
if (!$ids[0]) { push @ids, $IN->param('ID'); }

foreach (@ids) {
chomp;
my $detailed_path = $CFG->{build_detail_path} . "/" . $_ . ".html";
if (-e $detailed_path) {
unlink $detailed_path;
print "Deleted $detailed_path <BR>\n" if $DEBUG > 0;
}
}

return @args;
}

# Always end with a 1.
1;

my $DEBUG = 0;

my $DEBUG = 1;