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

Deprecated WebGUI::Storage::Image. WebGUI::Storage can now do everything

Browse source 
WebGUI::Storage::Image can do.
This commit is contained in:
JT Smith 2008-11-26 16:06:18 +00:00
parent 2b3e88fd63
commit ee84cc7611
34 changed files with 399 additions and 470 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Form/Attachments.pm
View file

@ -18,7 +18,7 @@ use strict;
use base 'WebGUI::Form::Control';
use WebGUI::Asset;
use WebGUI::International;
use WebGUI::Storage::Image;
use WebGUI::Storage;
use WebGUI::VersionTag;
=head1 NAME
@ -287,7 +287,7 @@ sub www_upload {
my $session = shift;
my $form = $session->form;
my @assetIds = $form->param("attachments");
my $storage = WebGUI::Storage::Image->createTemp($session);
my $storage = WebGUI::Storage->createTemp($session);
my $filename = $storage->addFileFromFormPost("attachment");
my $tempspace = WebGUI::Asset->getTempspace($session);
my $asset = "";

4
lib/WebGUI/Form/Captcha.pm
View file

@ -17,7 +17,7 @@ package WebGUI::Form::Captcha;
use strict;
use base 'WebGUI::Form::Text';
use WebGUI::International;
use WebGUI::Storage::Image;
use WebGUI::Storage;
=head1 NAME
@ -134,7 +134,7 @@ Renders a captcha field.
sub toHtml {
my $self = shift;
my $storage = WebGUI::Storage::Image->createTemp($self->session);
my $storage = WebGUI::Storage->createTemp($self->session);
my ($filename, $challenge) = $storage->addFileFromCaptcha;
$self->set("size", 6);
$self->set("maxlength", 6);

4
lib/WebGUI/Form/File.pm
View file

@ -188,10 +188,10 @@ sub getValue {
elsif ($self->session->form->param($self->privateName('action')) eq 'upload') {
my $storage = undef;
if ($value ne "") {
$storage = WebGUI::Storage::Image->get($self->session, $value);
$storage = WebGUI::Storage->get($self->session, $value);
}
else {
$storage = WebGUI::Storage::Image->create($self->session);
$storage = WebGUI::Storage->create($self->session);
}
$storage->addFileFromFormPost($self->get("name")."_file",1000);
my @files = @{ $storage->getFiles };

8
lib/WebGUI/Form/Image.pm
View file

@ -17,7 +17,7 @@ package WebGUI::Form::Image;
use strict;
use base 'WebGUI::Form::File';
use WebGUI::International;
use WebGUI::Storage::Image;
use WebGUI::Storage;
use WebGUI::Form::YesNo;
use WebGUI::Utility qw/isIn/;
@ -134,7 +134,7 @@ Returns the WebGUI::Storage object for this control.
sub getStorageLocation {
my $self = shift;
my $value = $self->getOriginalValue;
my $storage = WebGUI::Storage::Image->get($self->session, $value) if ($value);
my $storage = WebGUI::Storage->get($self->session, $value) if ($value);
return $storage;
}
@ -151,7 +151,7 @@ sub getValue {
my $self = shift;
my $id = $self->SUPER::getValue(@_);
if (defined $id) {
my $storage = WebGUI::Storage::Image->get($self->session, $id);
my $storage = WebGUI::Storage->get($self->session, $id);
if (defined $storage) {
my @files = @{$storage->getFiles};
my @images = grep{$storage->isImage($_)} @files; # Put all filenames that isImage returns true for into @images
@ -184,7 +184,7 @@ sub getValueAsHtml {
my ($self) = @_;
my $value = $self->getOriginalValue;
return '' unless $value;
my $location = WebGUI::Storage::Image->get($self->session, $value);
my $location = WebGUI::Storage->get($self->session, $value);
my $file = shift @{ $location->getFiles };
my $fileValue = sprintf qq|<img src="%s" />&nbsp;%s|, $location->getUrl($file), $file;
return $fileValue;