oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add POD comments to deleteFile to show what the accidental return value is.

Browse source 
Remove a Data::Dumper from Operation/Invite.pm
This commit is contained in:
Colin Kuskie 2007-07-05 21:22:54 +00:00
parent 749f68a0ee
commit 6e49327bb6
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lib/WebGUI/Operation/Invite.pm
View file

@ -102,7 +102,6 @@ sub www_inviteUserSave {
#User existance check. #User existance check.
my $existingUser = WebGUI::User->newByEmail($session, $hisEmailAddress); my $existingUser = WebGUI::User->newByEmail($session, $hisEmailAddress);
use Data::Dumper;
if (defined $existingUser) { if (defined $existingUser) {
my $output = sprintf qq!<h1>%s</h1>\n<p>%s</p><a href="%s">%s</a>!, my $output = sprintf qq!<h1>%s</h1>\n<p>%s</p><a href="%s">%s</a>!,
$i18n->get('already a member'), $i18n->get('already a member'),

9
lib/WebGUI/Storage.pm
View file

@ -457,14 +457,15 @@ Deletes a file from it's storage location.
=head3 filename =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 =cut
sub deleteFile { sub deleteFile {
my $self = shift; my $self = shift;
my $filename = shift; my $filename = shift;
unlink($self->getPath($filename)); unlink($self->getPath($filename));
} }