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:
Galen Charlton 2010-05-25 17:32:19 -04:00
parent c45ddf7ff7
commit ef58c445d3
8 changed files with 1 additions and 11 deletions

View File

@ -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);

View File

@ -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))
{

View File

@ -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) {

View File

@ -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);

View File

@ -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');

View File

@ -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" ) {

View File

@ -32,7 +32,6 @@ use C4::BackgroundJob;
use C4::ClassSource;
use C4::Dates;
use C4::Debug;
use YAML;
use Switch;
use MARC::File::XML;

View File

@ -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";