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

EMS import/export, Form::*::getValueFromPost(alt_values), and tests

Browse source
This commit is contained in:
James Tolley 2007-05-29 23:39:24 +00:00
parent 0a7e06edca
commit c09b2cae1b
46 changed files with 1728 additions and 299 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lib/WebGUI/Session/DateTime.pm
View file

@ -664,7 +664,7 @@ An integer which represents the amount of time for the interval.
=head3 units
A string which represents the units of the interval. The string must be 'years', 'months', 'weeks', 'days', 'hours', 'minutes', or 'seconds'.
A string which represents the units of the interval. The string must be (case-insensitive) 'years', 'months', 'weeks', 'days', 'hours', 'minutes', or 'seconds'.
=cut
@ -672,25 +672,25 @@ sub intervalToSeconds {
my $self = shift;
my $interval = shift;
my $units = shift;
if ($units eq "years") {
if (lc $units eq "years") {
return ($interval*31536000);
}
elsif ($units eq "months") {
elsif (lc $units eq "months") {
return ($interval*2592000);
}
elsif ($units eq "weeks") {
elsif (lc $units eq "weeks") {
return ($interval*604800);
}
elsif ($units eq "days") {
elsif (lc $units eq "days") {
return ($interval*86400);
}
elsif ($units eq "hours") {
elsif (lc $units eq "hours") {
return ($interval*3600);
}
elsif ($units eq "minutes") {
elsif (lc $units eq "minutes") {
return ($interval*60);
}
else {
else { # seconds
return $interval;
}
}

10
lib/WebGUI/Session/Env.pm
View file

@ -46,8 +46,8 @@ Deconstructor.
=cut
sub DESTROY {
my $self = shift;
undef $self;
my $self = shift;
undef $self;
}
@ -80,9 +80,9 @@ Returns the user's real IP address. Normally this is REMOTE_ADDR, but if they go
sub getIp {
my $self = shift;
if ($self->get("HTTP_X_FORWARDED_FOR") =~ m/(\d+\.\d+\.\d+\.\d+)/) {
return $1;
}
if ($self->get("HTTP_X_FORWARDED_FOR") =~ m/(\d+\.\d+\.\d+\.\d+)/) {
return $1;
}
return $self->get("REMOTE_ADDR");
}

139
lib/WebGUI/Session/Form.pm
View file

@ -16,6 +16,7 @@ package WebGUI::Session::Form;
use strict qw(vars subs);
use WebGUI::HTML;
use base 'WebGUI::FormValidator';
=head1 NAME
@ -23,7 +24,7 @@ Package WebGUI::Session::Form
=head1 DESCRIPTION
This is a convenience package to the individual form controls. It allows you to get the form post results back without having to load each form control seperately, instantiate an object, and call methods.
This is a subclass of WebGUI::FormValidator. It processes POST input.
=head1 SYNOPSIS
@ -41,79 +42,49 @@ This is a convenience package to the individual form controls. It allows you to
=head1 METHODS
These functions are available from this package:
=cut
#-------------------------------------------------------------------
=head2 AUTOLOAD ( )
=head2 AUTOLOAD ( params )
Dynamically creates functions on the fly for all the different form control types.
This just passes control to WebGUI::FormValidator::AUTOLOAD.
=head3 params
Either an href of parameters or the fieldName in question.
=cut
sub AUTOLOAD {
our $AUTOLOAD;
my $self = shift;
my $name = ucfirst((split /::/, $AUTOLOAD)[-1]);
my $params = shift;
$params = {name=>$params} if ref ($params) ne "HASH";
my $cmd = "use WebGUI::Form::".$name;
eval ($cmd);
if ($@) {
$self->session->errorHandler->error("Couldn't compile form control: ".$name.". Root cause: ".$@);
return undef;
}
my $class = "WebGUI::Form::".$name;
return $class->new($self->session, $params)->getValueFromPost;
my @args = @_;
our $AUTOLOAD;
my $method = "SUPER::".(split /::/, $AUTOLOAD)[-1];
return $self->$method(@args);
}
#-------------------------------------------------------------------
=head2 DESTROY ( )
=head2 paramsHashRef ( )
Deconstructor.
Gets a hash ref of all the params passed in to this class, and their values. This should not be confused with the param() method.
=cut
sub DESTROY {
my $self = shift;
undef $self;
}
#-------------------------------------------------------------------
=head2 get ( )
An alias for process()
=cut
sub get {
sub paramsHashRef {
my $self = shift;
return $self->process(@_);
}
#-------------------------------------------------------------------
=head2 new ( session )
Constructor.
=head3 session
A reference to the current session.
=cut
sub new {
my $class = shift;
my $session = shift;
bless {_session=>$session}, $class;
unless ($self->{_paramsHashRef}) {
my %hash;
tie %hash, "Tie::IxHash";
foreach ($self->param) {
my @arr = $self->process($_);
$hash{$_} = (scalar(@arr) > 1)?\@arr:$arr[0];
}
$self->{_paramsHashRef} = \%hash;
}
return $self->{_paramsHashRef};
}
@ -157,29 +128,6 @@ sub param {
}
}
#-------------------------------------------------------------------
=head2 paramsHashRef ( )
Gets a hash ref of all the params passed in to this class, and their values. This should not be confused with the param() method.
=cut
sub paramsHashRef {
my $self = shift;
unless ($self->{_paramsHashRef}) {
my %hash;
tie %hash, "Tie::IxHash";
foreach ($self->param) {
my @arr = $self->process($_);
$hash{$_} = (scalar(@arr) > 1)?\@arr:$arr[0];
}
$self->{_paramsHashRef} = \%hash;
}
return $self->{_paramsHashRef};
}
#-------------------------------------------------------------------
=head2 process ( name, type [ , default, params ] )
@ -206,39 +154,16 @@ A full set of form params just as you'd pass into any of the form controls when
sub process {
my ($self, $name, $type, $default, $params) = @_;
$type = ucfirst($type);
return $self->param($name) if ($type eq "");
$params->{name} = $name;
if (wantarray) {
my @values = $self->$type($params);
if (scalar(@values) < 1 && ref $default eq "ARRAY") {
return @{$default};
} else {
return @values;
}
} else {
my $value = $self->$type($params);
unless (defined $value) {
return $default;
}
if ($value =~ /^[\s]+$/) {
return undef;
}
return $value;
}
}
#-------------------------------------------------------------------
=head2 session ( )
Returns a reference to the current session.
=cut
sub session {
my $self = shift;
return $self->{_session};
return $self->SUPER::process({
name => $name,
type => $type,
default => $default,
params => $params,
});
}
1;