remove WebGUI::Utility::isIn

This commit is contained in:
Graham Knop 2010-09-07 12:33:15 -05:00
parent 0e754a51e4
commit 6aa26c2e44
61 changed files with 126 additions and 148 deletions

View file

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

View file

@ -91,7 +91,7 @@ around BUILDARGS => sub {
use WebGUI::Shop::Admin;
use WebGUI::Exception::Shop;
use WebGUI::International;
use WebGUI::Utility qw{ isIn };
use WebGUI::Utility qw{};
use List::Util qw{ sum };
use JSON qw{ encode_json };
@ -646,7 +646,7 @@ sub www_setPayoutStatus {
return $session->privilege->adminOnly() unless ($admin->canManage);
my $status = $form->process('status');
return "error: wrong status [$status]" unless isIn( $status, qw{ NotPaid Scheduled } );
return "error: wrong status [$status]" unless $status ~~ [qw{ NotPaid Scheduled }];
my @itemIds;
if ( $form->process( 'all' ) ) {