removed needless imports of the YAML module
Removed instances of 'use YAML' that were either completely unnecessary or which were used only in debug code. Also removed a needless import of Data::Dumper. Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
parent
c45ddf7ff7
commit
ef58c445d3
|
|
@ -24,7 +24,6 @@ use List::MoreUtils qw(first_value any);
|
|||
use C4::Context;
|
||||
use C4::Dates qw(format_date_in_iso);
|
||||
use C4::Debug;
|
||||
use YAML;
|
||||
require Exporter;
|
||||
use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
|
||||
|
||||
|
|
|
|||
|
|
@ -29,7 +29,6 @@ use C4::XSLT;
|
|||
use C4::Branch;
|
||||
use C4::Reserves; # CheckReserves
|
||||
use C4::Debug;
|
||||
use YAML;
|
||||
use URI::Escape;
|
||||
|
||||
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);
|
||||
|
|
@ -651,7 +650,6 @@ sub _remove_stopwords {
|
|||
#
|
||||
foreach ( keys %{ C4::Context->stopwords } ) {
|
||||
next if ( $_ =~ /(and|or|not)/ ); # don't remove operators
|
||||
$debug && warn "$_ Dump($operand)";
|
||||
if ( my ($matched) = ($operand =~
|
||||
/([^\X\p{isAlnum}]\Q$_\E[^\X\p{isAlnum}]|[^\X\p{isAlnum}]\Q$_\E$|^\Q$_\E[^\X\p{isAlnum}])/gi))
|
||||
{
|
||||
|
|
|
|||
|
|
@ -239,8 +239,6 @@ if ($op eq 'add_form') {
|
|||
my $period_total = 0;
|
||||
my ( $period_alloc_total, $base_spent_total );
|
||||
|
||||
use YAML;
|
||||
$debug && warn Dump(@budgets);
|
||||
#This Looks WEIRD to me : should budgets be filtered in such a way ppl who donot own it would not see the amount spent on the budget by others ?
|
||||
|
||||
foreach my $budget (@budgets) {
|
||||
|
|
|
|||
|
|
@ -26,7 +26,6 @@ use C4::Auth;
|
|||
use C4::Items;
|
||||
use C4::Biblio;
|
||||
use C4::Serials;
|
||||
use YAML;
|
||||
|
||||
my $input = new CGI;
|
||||
my @biblionumber = $input->param('biblionumber');
|
||||
|
|
@ -69,7 +68,6 @@ if ($merge) {
|
|||
|
||||
# Moving items from the other record to the reference record
|
||||
my $itemnumbers = get_itemnumbers_of($frombiblio);
|
||||
use Data::Dumper;
|
||||
foreach my $itloop ($itemnumbers->{$frombiblio}) {
|
||||
foreach my $itemnumber (@$itloop) {
|
||||
my $res = MoveItemFromBiblio($itemnumber, $frombiblio, $tobiblio);
|
||||
|
|
|
|||
|
|
@ -31,7 +31,6 @@ use C4::Members;
|
|||
use C4::Branch;
|
||||
use C4::Category;
|
||||
use File::Basename;
|
||||
use YAML;
|
||||
|
||||
my $input = new CGI;
|
||||
my $quicksearch = $input->param('quicksearch');
|
||||
|
|
|
|||
|
|
@ -68,7 +68,7 @@ else {
|
|||
$$suggestion{suggestedby} ||= $borrowernumber unless ($allsuggestions);
|
||||
}
|
||||
# warn "bornum:",$borrowernumber;
|
||||
use YAML;
|
||||
|
||||
my $suggestions_loop =
|
||||
&SearchSuggestion( $suggestion);
|
||||
if ( $op eq "add_confirm" ) {
|
||||
|
|
|
|||
|
|
@ -32,7 +32,6 @@ use C4::BackgroundJob;
|
|||
use C4::ClassSource;
|
||||
use C4::Dates;
|
||||
use C4::Debug;
|
||||
use YAML;
|
||||
use Switch;
|
||||
use MARC::File::XML;
|
||||
|
||||
|
|
|
|||
|
|
@ -23,7 +23,6 @@ use warnings;
|
|||
use Test::More qw(no_plan);
|
||||
|
||||
use C4::Context;
|
||||
use YAML;
|
||||
|
||||
my $root_dir = C4::Context->config( 'intranetdir' ) . '/installer/data/mysql';
|
||||
my $base_perms_file = "en/mandatory/userpermissions.sql";
|
||||
|
|
|
|||
Loading…
Reference in New Issue