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/Account/Inbox.pm
View file

@ -6,7 +6,6 @@ use WebGUI::Form;
use WebGUI::Exception;
use WebGUI::International;
use WebGUI::Pluggable;
use WebGUI::Utility;
use Tie::IxHash;
use Email::Valid;
use base qw/WebGUI::Account/;

1
lib/WebGUI/Account/Profile.pm
View file

@ -7,7 +7,6 @@ use WebGUI::International;
use WebGUI::Pluggable;
use WebGUI::ProfileCategory;
use WebGUI::ProfileField;
use WebGUI::Utility;
use base qw/WebGUI::Account/;
=head1 NAME

1
lib/WebGUI/Account/Shop.pm
View file

@ -5,7 +5,6 @@ use strict;
use WebGUI::Exception;
use WebGUI::International;
use WebGUI::Pluggable;
use WebGUI::Utility;
use WebGUI::Shop::Vendor;
use JSON qw{ from_json };

3
lib/WebGUI/Asset.pm
View file

@ -394,7 +394,6 @@ use WebGUI::Keyword;
require WebGUI::ProgressBar;
use WebGUI::Search::Index;
use WebGUI::TabForm;
use WebGUI::Utility;
use WebGUI::PassiveAnalytics::Logging;
=head1 NAME
@ -1046,7 +1045,7 @@ sub getEditForm {
};
# Kludge...
if ( $fieldHash->{fieldType} ~~ ['selectBox', 'workflow'] ) and ref $fieldHash->{value} ne 'ARRAY' ) {
if ( $fieldHash->{fieldType} ~~ ['selectBox', 'workflow'] and ref $fieldHash->{value} ne 'ARRAY' ) {
$fieldHash->{value} = [ $fieldHash->{value} ];
}

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/;

1
lib/WebGUI/AssetExportHtml.pm
View file

@ -20,7 +20,6 @@ use Path::Class ();
use Scalar::Util qw(looks_like_number);
use WebGUI::International;
use WebGUI::Exception;
use WebGUI::Utility ();
use WebGUI::Session;
use URI::URL ();
use Scope::Guard;

1
lib/WebGUI/AssetTrash.pm
View file

@ -15,7 +15,6 @@ package WebGUI::Asset;
=cut
use strict;
use WebGUI::Utility qw();
use Number::Format ();
use JSON;

1
lib/WebGUI/Auth.pm
View file

@ -17,7 +17,6 @@ package WebGUI::Auth;
use strict qw(subs vars);
use WebGUI::International;
use WebGUI::Asset::Template;
use WebGUI::Utility;
use WebGUI::User;
use WebGUI::Workflow::Instance;
use WebGUI::Inbox;

1
lib/WebGUI/Content/AssetDiscovery.pm
View file

@ -17,7 +17,6 @@ package WebGUI::Content::AssetDiscovery;
use strict;
use JSON;
use WebGUI::Asset;
use WebGUI::Utility;
use XML::Simple;
=head1 NAME

1
lib/WebGUI/Content/AssetManager.pm
View file

@ -6,7 +6,6 @@ use JSON qw( from_json to_json );
use URI;
use WebGUI::Form;
use WebGUI::Paginator;
use WebGUI::Utility;
use WebGUI::Macro::AdminBar;
use Tie::IxHash;
use Number::Format ();

1
lib/WebGUI/Crud.pm
View file

@ -23,7 +23,6 @@ use Tie::IxHash;
use Clone qw/clone/;
use WebGUI::DateTime;
use WebGUI::Exception;
use WebGUI::Utility;
private objectData => my %objectData;
readonly session => my %session;

1
lib/WebGUI/DatabaseLink.pm
View file

@ -18,7 +18,6 @@ package WebGUI::DatabaseLink;
use strict;
use WebGUI::SQL;
use WebGUI::International;
use WebGUI::Utility;
use DBI;
=head1 NAME

1
lib/WebGUI/FilePump/Bundle.pm
View file

@ -5,7 +5,6 @@ use strict;
use WebGUI::Asset;
use WebGUI::International;
use WebGUI::Exception;
use WebGUI::Utility;
use WebGUI::Macro;
use URI;
use Path::Class;

1
lib/WebGUI/Form/AssetReportQuery.pm
View file

@ -4,7 +4,6 @@ use strict;
use base 'WebGUI::Form::Control';
use JSON;
use WebGUI::International;
use WebGUI::Utility;
=head1 NAME

1
lib/WebGUI/Form/Email.pm
View file

@ -17,7 +17,6 @@ package WebGUI::Form::Email;
use strict;
use base 'WebGUI::Form::Text';
use WebGUI::International;
use WebGUI::Utility;
use Email::Valid;
=head1 NAME

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

@ -19,7 +19,6 @@ use base 'WebGUI::Form::File';
use WebGUI::International;
use WebGUI::Storage;
use WebGUI::Form::YesNo;
use WebGUI::Utility qw//;
=head1 NAME

1
lib/WebGUI/Friends.pm
View file

@ -34,7 +34,6 @@ use WebGUI::HTML;
use WebGUI::Inbox;
use WebGUI::International;
use WebGUI::User;
use WebGUI::Utility;
=head1 NAME

1
lib/WebGUI/Group.pm
View file

@ -17,7 +17,6 @@ package WebGUI::Group;
use strict;
use WebGUI::LDAPLink;
use WebGUI::Macro;
use WebGUI::Utility;
use WebGUI::Pluggable;
require WebGUI::Asset;
use WebGUI::International;

1
lib/WebGUI/Image/Graph.pm
View file

@ -5,7 +5,6 @@ use WebGUI::Image;
use WebGUI::Image::Palette;
use WebGUI::Image::Font;
use List::Util;
use WebGUI::Utility;
our @ISA = qw(WebGUI::Image);

1
lib/WebGUI/Image/Graph/XYGraph/Bar.pm
View file

@ -4,7 +4,6 @@ use strict;
use WebGUI::Image::Graph::XYGraph;
use List::Util;
use POSIX;
use WebGUI::Utility;
our @ISA = qw(WebGUI::Image::Graph::XYGraph);

1
lib/WebGUI/Macro/RandomThread.pm
View file

@ -18,7 +18,6 @@ use strict;
use WebGUI::Asset;
use WebGUI::Asset::Wobject::Collaboration;
use WebGUI::Asset::Template;
use WebGUI::Utility;
=head1 NAME

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

@ -20,7 +20,6 @@ use WebGUI::Operation::Shared;
use WebGUI::Pluggable;
use WebGUI::SQL;
use WebGUI::User;
use WebGUI::Utility;
#-------------------------------------------------------------------

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

@ -17,7 +17,6 @@ use WebGUI::HTMLForm;
use WebGUI::International;
use WebGUI::Workflow::Cron;
use WebGUI::Workflow::Instance;
use WebGUI::Utility;
use Net::CIDR::Lite;
=head1 NAME

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

@ -15,7 +15,6 @@ use WebGUI::AdminConsole;
use WebGUI::International;
use WebGUI::Asset::Template;
use WebGUI::Macro;
use WebGUI::Utility;
use WebGUI::TabForm;
use WebGUI::Pluggable;

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

@ -13,7 +13,6 @@ package WebGUI::Operation::Spectre;
use strict;
use JSON;
use POE::Component::IKC::ClientLite;
use WebGUI::Utility;
use WebGUI::Workflow::Cron;
use WebGUI::Workflow::Instance;
use Net::CIDR::Lite;

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

@ -11,7 +11,6 @@ package WebGUI::Operation::SpellCheck;
#-------------------------------------------------------------------
use strict;
use WebGUI::Utility;
use File::Path qw(mkpath);
# Optional, but if unavailable, spell checking will have no effect.
my $spellerAvailable;

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

@ -23,7 +23,6 @@ use WebGUI::Paginator;
use WebGUI::SQL;
use WebGUI::TabForm;
use WebGUI::User;
use WebGUI::Utility;
use JSON;
use XML::Simple;
use Net::CIDR::Lite;

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

@ -18,7 +18,6 @@ use WebGUI::Pluggable;
use WebGUI::Workflow;
use WebGUI::Workflow::Activity;
use WebGUI::Workflow::Instance;
use WebGUI::Utility;
use POE::Component::IKC::ClientLite;
use JSON qw/ decode_json /;
use Net::CIDR::Lite;

1
lib/WebGUI/Paginator.pm
View file

@ -16,7 +16,6 @@ package WebGUI::Paginator;
use strict;
use WebGUI::International;
use WebGUI::Utility;
use List::Util qw/min/;
=head1 NAME

1
lib/WebGUI/ProfileField.pm
View file

@ -21,7 +21,6 @@ use WebGUI::Form::DynamicField;
use WebGUI::Operation::Shared;
use WebGUI::HTML;
use WebGUI::User;
use WebGUI::Utility;
use WebGUI::Pluggable;
use Tie::IxHash;

1
lib/WebGUI/Role/Asset/Comments.pm
View file

@ -35,7 +35,6 @@ property averageCommentRating => (
use WebGUI::Exception;
use WebGUI::Form;
use WebGUI::HTML;
use WebGUI::Utility;
=head1 NAME

1
lib/WebGUI/SQL.pm
View file

@ -18,7 +18,6 @@ use strict;
use DBI ();
use Tie::IxHash ();
use Text::CSV_XS ();
use WebGUI::Utility ();
use WebGUI::SQL::ResultSet ();
use WebGUI::Exception;
use Scalar::Util ();

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

@ -22,7 +22,6 @@ use DateTime::TimeZone;
use Scalar::Util qw( weaken );
use Tie::IxHash;
use WebGUI::International;
use WebGUI::Utility qw();
use Scalar::Util qw(weaken);

1
lib/WebGUI/Session/Http.pm
View file

@ -17,7 +17,6 @@ package WebGUI::Session::Http;
use strict;
use Scalar::Util qw(weaken);
use WebGUI::Utility qw();
use HTTP::Date ();
sub _deprecated {

1
lib/WebGUI/Session/Url.pm
View file

@ -20,7 +20,6 @@ use URI;
use URI::Escape;
use Scalar::Util qw( weaken );
use WebGUI::International;
use WebGUI::Utility;
use Scalar::Util qw(weaken);
use Encode;

1
lib/WebGUI/Shop/Pay.pm
View file

@ -22,7 +22,6 @@ use WebGUI::International;
use WebGUI::Pluggable;
use WebGUI::Shop::Admin;
#use WebGUI::Shop::PayDriver;
use WebGUI::Utility;
use Tie::IxHash;
use Scalar::Util;

1
lib/WebGUI/Shop/Ship.pm
View file

@ -8,7 +8,6 @@ use WebGUI::International;
use WebGUI::Pluggable;
use WebGUI::Shop::Admin;
use WebGUI::Shop::ShipDriver;
use WebGUI::Utility;
use Scalar::Util;
=head1 NAME

1
lib/WebGUI/Shop/TaxDriver/EU.pm
View file

@ -18,7 +18,6 @@ use strict;
use WebGUI::Content::Account;
use WebGUI::TabForm;
use WebGUI::Utility qw{};
use WebGUI::International;
use Business::Tax::VAT::Validation;

1
lib/WebGUI/Shop/Vendor.pm
View file

@ -91,7 +91,6 @@ around BUILDARGS => sub {
use WebGUI::Shop::Admin;
use WebGUI::Exception::Shop;
use WebGUI::International;
use WebGUI::Utility qw{};
use List::Util qw{ sum };
use JSON qw{ encode_json };

1
lib/WebGUI/Storage.pm
View file

@ -25,7 +25,6 @@ use File::Spec;
use Image::Magick;
use Path::Class::Dir;
use Storable ();
use WebGUI::Utility qw();
use WebGUI::Paths;
use JSON ();

1
lib/WebGUI/User.pm
View file

@ -16,7 +16,6 @@ package WebGUI::User;
use strict;
use WebGUI::Group;
use WebGUI::Utility;
use WebGUI::Workflow::Instance;
use JSON ();
use WebGUI::ProfileField;

72
lib/WebGUI/Utility.pm
View file

@ -1,72 +0,0 @@
package WebGUI::Utility;
=head1 LEGAL
-------------------------------------------------------------------
WebGUI is Copyright 2001-2009 Plain Black Corporation.
-------------------------------------------------------------------
Please read the legal notices (docs/legal.txt) and the license
(docs/license.txt) that came with this distribution before using
this software.
-------------------------------------------------------------------
http://www.plainblack.com info@plainblack.com
-------------------------------------------------------------------
=cut
use Exporter;
use strict;
use Tie::IxHash;
use Net::CIDR::Lite;
our @ISA = qw(Exporter);
our @EXPORT = qw(
&sortHash
);
=head1 NAME
Package WebGUI::Utility
=head1 DESCRIPTION
This package provides miscellaneous but useful utilities to the WebGUI programmer.
=head1 SYNOPSIS
use WebGUI::Utility;
%hash = sortHash(%hash);
=head1 METHODS
These subroutines are available from this package:
=cut
#-------------------------------------------------------------------
=head2 sortHash ( hash )
Sorts a hash by its values. Returns a Tie::IxHash. You must assign this to
a similarly tied hash to preserve the order.
=head3 hash
A hash to be sorted.
=cut
sub sortHash {
my %hash = @_;
tie my %newHash, 'Tie::IxHash';
for my $key ( sort { $hash{$a} cmp $hash{$b} } keys %hash ) {
$newHash{ $key } = $hash{ $key };
}
return %newHash;
}
1;

1
lib/WebGUI/Workflow/Activity/SyncProfilesToLdap.pm
View file

@ -21,7 +21,6 @@ use Net::LDAP;
use Time::HiRes;
use WebGUI::Auth;
use WebGUI::User;
use WebGUI::Utility;
=head1 NAME