|
|
|
| Keep It Simple, Stupid | |
| PerlMonks |
Re: Re: getnotes.plby Anonymous Monk |
| on Apr 02, 2004 at 13:22 UTC ( [id://341962]=note: print w/replies, xml ) | Need Help?? |
|
Might want to replace
$val = sprintf "$doc. %s", $Document->GetFirstItem('Subject')->{Text};
with:
my $tempsub = $Document->GetFirstItem('Subject');
if ( defined($tempsub))
{
$tempsub = $tempsub->{Text};
}
else
{
$tempsub = "No Subject";
}
$val = sprintf "$doc. %s", $tempsub;
or something equivalent. Stops it knackering when some uncultured swine sends you an email with no subject title.
In Section
Code Catacombs
|
|
||||||||||||||||||||||