Hi,
Thanks to your various answers I have partially succeded
I have done directly in admin.pm in the add_success part which is like this:
$COMPILE{add_success} = __LINE__ . <<'END_OF_SUB';
sub add_success {
my ($self, $id) = @_;
print $self->{in}->header;
my $hsh;
if ($self->{table}->ai) {
$hsh = $self->{table}->get ($id, 'HASH');
}
else {
my $lookup = {};
my $pk = $self->{table}->pk;
foreach (@$pk) { $lookup->{$_} = $self->{cgi}->{$_}; }
$hsh = $self->{table}->get ($lookup, 'HASH');
}
print $self->_start_html ( { title => "Record Added" });
print $self->_header ("Record Added", "The following record was successfully added:");
print "<p>";
print $self->{html}->display ( { mode => 'add_success', values => $hsh } );
print "<p>", $self->_footer;
print $self->_end_html;
and added some line code to send a mail like:
open (MAIL,"|/usr/sbin/sendmail -it");
print MAIL "To: user\@domain.com\n";
print MAIL "From: user\@domain.com\n";
print MAIL "Subject: new link\n";
**************
Now what I woiuld like to do is to also send in the mail the information related to the link that has been added.
How can I get them all?
How can I get one in particular, for instance the category?
Thanks
