Add POD comments to deleteFile to show what the accidental return value is.
Remove a Data::Dumper from Operation/Invite.pm
This commit is contained in:
parent
749f68a0ee
commit
6e49327bb6
2 changed files with 5 additions and 5 deletions
|
|
@ -102,7 +102,6 @@ sub www_inviteUserSave {
|
|||
|
||||
#User existance check.
|
||||
my $existingUser = WebGUI::User->newByEmail($session, $hisEmailAddress);
|
||||
use Data::Dumper;
|
||||
if (defined $existingUser) {
|
||||
my $output = sprintf qq!<h1>%s</h1>\n<p>%s</p><a href="%s">%s</a>!,
|
||||
$i18n->get('already a member'),
|
||||
|
|
|
|||
|
|
@ -457,14 +457,15 @@ Deletes a file from it's storage location.
|
|||
|
||||
=head3 filename
|
||||
|
||||
The name of the file to delete.
|
||||
The name of the file to delete. Returns a 1 if the file was successfully deleted, or 0 if
|
||||
it doesn't.
|
||||
|
||||
=cut
|
||||
|
||||
sub deleteFile {
|
||||
my $self = shift;
|
||||
my $filename = shift;
|
||||
unlink($self->getPath($filename));
|
||||
my $self = shift;
|
||||
my $filename = shift;
|
||||
unlink($self->getPath($filename));
|
||||
}
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue