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

remove WebGUI::Utility

Browse source
This commit is contained in:
Graham Knop 2010-09-07 13:13:56 -05:00
parent 0adbb519f0
commit ed04b99872
95 changed files with 6 additions and 207 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lib/WebGUI/Asset/EMSSubmission.pm
View file

@ -143,7 +143,6 @@ with 'WebGUI::Role::Asset::Comments';
use Tie::IxHash;
use base qw(WebGUI::Asset);
use WebGUI::Utility;
use WebGUI::Inbox;
=head1 NAME

1
lib/WebGUI/Asset/EMSSubmissionForm.pm
View file

@ -78,7 +78,6 @@ property formDescription => (
use Tie::IxHash;
use JSON;
use WebGUI::Utility;
with 'WebGUI::Role::Asset::AlwaysHidden';
=head1 NAME

1
lib/WebGUI/Asset/File.pm
View file

@ -62,7 +62,6 @@ with 'WebGUI::Role::Asset::SetStoragePermissions';
use WebGUI::Storage;
use WebGUI::SQL;
use WebGUI::Utility;
=head1 NAME

1
lib/WebGUI/Asset/MatrixListing.pm
View file

@ -117,7 +117,6 @@ property lastUpdated => (
);
with 'WebGUI::Role::Asset::Comments';
use WebGUI::Utility;
=head1 NAME

1
lib/WebGUI/Asset/RichEdit.pm
View file

@ -16,7 +16,6 @@ package WebGUI::Asset::RichEdit;
use strict;
use WebGUI::Form;
use WebGUI::Utility;
use WebGUI::International;
use JSON;
use Tie::IxHash;

1
lib/WebGUI/Asset/Sku/EMSBadge.pm
View file

@ -85,7 +85,6 @@ use JSON;
use WebGUI::HTMLForm;
use WebGUI::International;
use WebGUI::Shop::AddressBook;
use WebGUI::Utility;
=head1 NAME

1
lib/WebGUI/Asset/Sku/EMSRibbon.pm
View file

@ -37,7 +37,6 @@ property percentageDiscount => (
);
use WebGUI::HTMLForm;
use WebGUI::Utility;
=head1 NAME

1
lib/WebGUI/Asset/Sku/EMSTicket.pm
View file

@ -92,7 +92,6 @@ property eventMetaData => (
);
use JSON ();
use WebGUI::Utility;
=head1 NAME

1
lib/WebGUI/Asset/Sku/EMSToken.pm
View file

@ -29,7 +29,6 @@ property price => (
hoverHelp => ["price help", 'Asset_EMSToken'],
);
use WebGUI::Utility;
=head1 NAME

1
lib/WebGUI/Asset/Sku/Product.pm
View file

@ -15,7 +15,6 @@ use Tie::IxHash;
use WebGUI::HTMLForm;
use WebGUI::Storage;
use WebGUI::SQL;
use WebGUI::Utility;
use JSON;
use Moose;

1
lib/WebGUI/Asset/Story.pm
View file

@ -71,7 +71,6 @@ property photo => (
with 'WebGUI::Role::Asset::AlwaysHidden';
use WebGUI::Utility;
use WebGUI::International;
use JSON qw/from_json to_json/;
use Storable qw/dclone/;

1
lib/WebGUI/Asset/Template.pm
View file

@ -110,7 +110,6 @@ property attachmentsJson => (
use WebGUI::International;
use WebGUI::Asset::Template::HTMLTemplate;
use WebGUI::Utility;
use WebGUI::Form;
use WebGUI::Exception;
use List::MoreUtils qw{ any };

1
lib/WebGUI/Asset/Wobject/AssetReport.pm
View file

@ -16,7 +16,6 @@ use strict;
use Tie::IxHash;
use WebGUI::International;
use WebGUI::Paginator;
use WebGUI::Utility;
use WebGUI::Form::AssetReportQuery;
use Moose;

1
lib/WebGUI/Asset/Wobject/Calendar.pm
View file

@ -298,7 +298,6 @@ sub _workflowIdCommit_builder {
return shift->session->setting->get('defaultVersionTagWorkflow'),
}
use WebGUI::Utility;
use WebGUI::International;
use WebGUI::Search;
use WebGUI::Form;

1
lib/WebGUI/Asset/Wobject/Carousel.pm
View file

@ -15,7 +15,6 @@ $VERSION = "1.0.0";
use strict;
use JSON;
use WebGUI::International;
use WebGUI::Utility;
use Moose;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';

1
lib/WebGUI/Asset/Wobject/Collaboration.pm
View file

@ -467,7 +467,6 @@ use WebGUI::Group;
use WebGUI::HTML;
use WebGUI::International;
use WebGUI::Paginator;
use WebGUI::Utility;
use WebGUI::Asset::Wobject;
use WebGUI::Workflow::Cron;

3
lib/WebGUI/Asset/Wobject/Collaboration/Newsletter.pm
View file

@ -71,7 +71,6 @@ sub _newsletterCategories_options {
use WebGUI::Form;
use WebGUI::International;
use WebGUI::Utility;
#-------------------------------------------------------------------
@ -192,7 +191,7 @@ sub www_mySubscriptions {
my @userPrefs = $self->getUserSubscriptions;
foreach my $id (keys %{$meta}) {
my @options = ();
if ($id ~~ [split("\n", $self->newsletterCategories))]) {
if ($id ~~ [split("\n", $self->newsletterCategories)]) {
foreach my $option (split("\n", $meta->{$id}{possibleValues})) {
$option =~ s/\s+$//; # remove trailing spaces
next if $option eq ""; # skip blank values

1
lib/WebGUI/Asset/Wobject/Dashboard.pm
View file

@ -12,7 +12,6 @@ package WebGUI::Asset::Wobject::Dashboard;
use strict;
use WebGUI::International;
use WebGUI::Utility;
use WebGUI::ProfileField;
use Time::HiRes;
use WebGUI::Asset::Wobject;

3
lib/WebGUI/Asset/Wobject/DataForm.pm
View file

@ -223,7 +223,6 @@ has '+uiLevel' => (
use WebGUI::Pluggable;
use WebGUI::DateTime;
use WebGUI::User;
use WebGUI::Utility;
use WebGUI::Group;
use WebGUI::AssetCollateral::DataForm::Entry;
use WebGUI::Form::SelectRichEditor;
@ -437,7 +436,7 @@ Returns true if the DataForm uses a captcha as one of the fields.
sub hasCaptcha {
my $self = shift;
return 'Captcha' ~~ [map { $_->{type} } map { $self->getFieldConfig($_) } @{ $self->getFieldOrder })];
return 'Captcha' ~~ [map { $_->{type} } map { $self->getFieldConfig($_) } @{ $self->getFieldOrder } ];
}
#-------------------------------------------------------------------

1
lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
View file

@ -202,7 +202,6 @@ use WebGUI::Exception;
use WebGUI::FormValidator;
use WebGUI::HTMLForm;
use WebGUI::International;
use WebGUI::Utility;
use WebGUI::Workflow::Instance;
use Data::Dumper;

1
lib/WebGUI/Asset/Wobject/Folder.pm
View file

@ -70,7 +70,6 @@ has '+uiLevel' => (
default => 5,
);
use WebGUI::Utility;
use Number::Format ();
=head1 NAME

1
lib/WebGUI/Asset/Wobject/Matrix.pm
View file

@ -16,7 +16,6 @@ our $VERSION = "2.0.0";
use Tie::IxHash;
use JSON;
use WebGUI::International;
use WebGUI::Utility;
use Moose;
use WebGUI::Definition::Asset;
use feature ":5.10";

1
lib/WebGUI/Asset/Wobject/Navigation.pm
View file

@ -16,7 +16,6 @@ use WebGUI::Form;
use WebGUI::International;
use WebGUI::SQL;
use WebGUI::TabForm;
use WebGUI::Utility;
use Moose;
use WebGUI::Definition::Asset;

1
lib/WebGUI/Asset/Wobject/Poll.pm
View file

@ -17,7 +17,6 @@ use WebGUI::Form;
use WebGUI::International;
use WebGUI::SQL;
use WebGUI::User;
use WebGUI::Utility;
use WebGUI::Asset::Wobject;
use WebGUI::Image::Graph;
use WebGUI::Storage;

1
lib/WebGUI/Asset/Wobject/ProjectManager.pm
View file

@ -16,7 +16,6 @@ our $VERSION = "1.0.0";
use DateTime;
use Tie::IxHash;
use WebGUI::International;
use WebGUI::Utility;
use Number::Format ();
use WebGUI::HTML;
use POSIX qw(ceil floor);

1
lib/WebGUI/Asset/Wobject/StockData.pm
View file

@ -12,7 +12,6 @@ package WebGUI::Asset::Wobject::StockData;
use strict;
use WebGUI::International;
use WebGUI::Utility;
use WebGUI::Asset::Wobject;
use Finance::Quote;
use Tie::IxHash;

1
lib/WebGUI/Asset/Wobject/Survey.pm
View file

@ -14,7 +14,6 @@ use strict;
use JSON;
use WebGUI::International;
use WebGUI::Form::File;
use WebGUI::Utility;
use Moose;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';

5
lib/WebGUI/Asset/Wobject/Thingy.pm
View file

@ -14,7 +14,6 @@ use strict;
use Tie::IxHash;
use JSON;
use WebGUI::International;
use WebGUI::Utility;
use WebGUI::Text;
use WebGUI::Form::File;
use WebGUI::DateTime;
@ -709,7 +708,7 @@ sub getEditFieldForm {
my %fieldTypes = %{WebGUI::Form::FieldType->new($session)->getTypes};
$things = $self->session->db->read('select thingId, Thingy_things.label, count(*) from Thingy_things '
my $things = $self->session->db->read('select thingId, Thingy_things.label, count(*) from Thingy_things '
.'left join Thingy_fields using(thingId) where Thingy_things.assetId = ? and fieldId != "" '
.'group by thingId',[$self->getId]);
while (my $thing = $things->hashRef) {
@ -733,7 +732,7 @@ sub getEditFieldForm {
$dialogPrefix = "edit_".$fieldId."_Dialog";
}
$f = WebGUI::HTMLForm->new($self->session,{
my $f = WebGUI::HTMLForm->new($self->session,{
action=>$self->getUrl,
tableExtras=>' cellpadding="0" cellspacing="0"'
});

1
lib/WebGUI/Asset/Wobject/TimeTracking.pm
View file

@ -16,7 +16,6 @@ our $VERSION = "1.0.0";
use DateTime;
use Tie::IxHash;
use WebGUI::International;
use WebGUI::Utility;
use POSIX qw(ceil floor);
use Moose;
use WebGUI::Definition::Asset;

3
lib/WebGUI/Asset/Wobject/UserList.pm
View file

@ -13,7 +13,6 @@ package WebGUI::Asset::Wobject::UserList;
use strict;
use HTML::Entities;
use Tie::IxHash;
use WebGUI::Utility;
use WebGUI::Asset::Wobject;
use WebGUI::Operation::Shared;
use WebGUI::International;
@ -550,7 +549,7 @@ sub view {
# Handle special case of alias, which does not have a default value but is set to the username by default
$value = $user->{userName} if ($profileFieldName eq 'alias' && $value eq '');
my %profileFieldValues;
if ((ucfirst $profileField->{fieldType}) ~~ [qw(File Image)]) && $value ne ''){
if ((ucfirst $profileField->{fieldType}) ~~ [qw(File Image)] && $value ne ''){
my $file = WebGUI::Form::DynamicField->new($self->session,
fieldType=>$profileField->{fieldType},
value=>$value

1
lib/WebGUI/Asset/Wobject/WikiMaster.pm
View file

@ -195,7 +195,6 @@ with 'WebGUI::Role::Asset::RssFeed';
use WebGUI::International;
use HTML::Parser;
use URI::Escape;
use WebGUI::Utility qw//;
use WebGUI::Form;
use Clone qw/clone/;