Bug 33020: Add missing Koha::Logger->history

[koha-ffzg.git] / svc / split_callnumbers

diff --git a/svc/split_callnumbers b/svc/split_callnumbers
old mode 100644 (file)
new mode 100755 (executable)
index c52f4ed..7fc9dee
--- a/svc/split_callnumbers
+++ b/svc/split_callnumbers
@@ -2,16 +2,15 @@
 
 use Modern::Perl;
 use JSON qw( from_json );
-
 use C4::Service;
 use C4::ClassSplitRoutine::RegEx;
+
 our ( $query, $response ) = C4::Service->init( parameters => 'parameters_remaining_permissions' );
 
 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);
@@ -21,78 +20,6 @@ sub get_split_callnumbers {
     C4::Service->return_success( $response );
 }
 
-sub update_translation {
-    my $id = $query->param('id');
-    my $translation = $query->param('translation');
-    my $lang = $query->param('lang');
-
-    my $localization = Koha::Localizations->find( $id );
-    if ( defined $lang and $localization->lang ne $lang ) {
-        $localization->lang( $lang )
-    }
-    if ( defined $translation and $localization->translation ne $translation ) {
-        $localization->translation( $translation )
-    }
-    my %params;
-    my $is_changed;
-    if ( $localization->is_changed ) {
-        $is_changed = 1;
-        unless ( Koha::Localizations->search( { entity => $localization->entity, code => $localization->code, lang => $lang, localization_id => { '!=' => $localization->localization_id }, } )->count ) {
-            $localization->store;
-        } else {
-            $params{error} = 1;
-            $params{error_code} = 'already_exists';
-        }
-    }
-    $response->param(
-        %params,
-        id          => $localization->localization_id,
-        entity      => $localization->entity,
-        code        => $localization->code,
-        lang        => $localization->lang,
-        translation => $localization->translation,
-        is_changed  => $is_changed,
-    );
-    C4::Service->return_success( $response );
-}
-
-sub add_translation {
-    my $entity = $query->param('entity');
-    my $code = $query->param('code');
-    my $lang = $query->param('lang');
-    my $translation = $query->param('translation');
-
-    unless ( Koha::Localizations->search({entity => $entity, code => $code, lang => $lang, })->count ) {
-        my $localization = Koha::Localization->new(
-            {
-                entity => $entity,
-                code => $code,
-                lang => $lang,
-                translation => $translation,
-            }
-        );
-        $localization->store;
-        $response->param(
-            id          => $localization->localization_id,
-            entity      => $localization->entity,
-            code        => $localization->code,
-            lang        => $localization->lang,
-            translation => $localization->translation,
-        );
-
-    } else {
-        $response->param( error => 1, error_code => 'already_exists', );
-    }
-    C4::Service->return_success( $response );
-}
-
-sub delete_translation {
-    my $id = $query->param('id');
-    Koha::Localizations->find($id)->delete;
-    $response->param( id => $id );
-    C4::Service->return_success( $response );
-}
-
 C4::Service->dispatch(
     [ 'GET /', [ 'callnumbers', 'regexs' ], \&get_split_callnumbers ],
 );