Bug 15836: Remove debug statement

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>

diff --git a/svc/split_callnumbers b/svc/split_callnumbers
index c52f4ed..8c85a58 100644 (file)
--- a/svc/split_callnumbers
+++ b/svc/split_callnumbers
@@ -11,7 +11,6 @@ sub get_split_callnumbers {
     my $regexs = from_json( $query->param('regexs') );
     my $c = $query->param('callnumbers');
     my @callnumbers = split "\n", $c;
-    use Data::Printer colored => 1; warn p $c;
     my @callnumbers_split;
     for my $callnumber ( @callnumbers ) {
         my @lines = C4::ClassSplitRoutine::RegEx::split_callnumber($callnumber, $regexs);