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

replaced return; with return undef;

Browse source
This commit is contained in:
JT Smith 2008-01-24 21:58:15 +00:00
parent ffa90c5fbd
commit fa09c41598
113 changed files with 287 additions and 286 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Asset/File/Image.pm
View file

@ -208,7 +208,7 @@ Returns a toolbar with a set of icons that hyperlink to functions that delete, e
sub getToolbar {
my $self = shift;
return if ($self->getToolbarState);
return undef if ($self->getToolbarState);
return $self->SUPER::getToolbar();
}

2
lib/WebGUI/Asset/File/Image/Photo.pm
View file

@ -677,7 +677,7 @@ sub updateExifDataFromFile {
my $self = shift;
my $storage = $self->getStorageLocation;
return;
return undef;
my $info = ImageInfo( $storage->getPath( $self->get('filename') ) );
use Data::Dumper; $self->session->errorHandler->info( Dumper $info );
$self->update({

6
lib/WebGUI/Asset/File/ZipArchive.pm
View file

@ -167,20 +167,20 @@ sub processPropertiesFromFormPost {
my $file = $self->get("filename");
#return unless $file;
#return undef unless $file;
my $i18n = WebGUI::International->new($self->session, 'Asset_ZipArchive');
unless ($self->session->form->process("showPage")) {
$storage->delete;
$self->session->db->write("update FileAsset set filename=NULL where assetId=".$self->session->db->quote($self->getId));
$self->session->scratch->set("za_error",$i18n->get("za_show_error"));
return;
return undef;
}
unless ($file =~ m/\.tar/i || $file =~ m/\.zip/i) {
$storage->delete;
$self->session->db->write("update FileAsset set filename=NULL where assetId=".$self->session->db->quote($self->getId));
$self->session->scratch->set("za_error",$i18n->get("za_error"));
return;
return undef;
}
unless ($self->unzip($storage,$self->get("filename"))) {