svc/localization

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4 use Encode qw( encode );
   5
   6 use C4::Service;
   7 use Koha::Localizations;
   8
   9 our ( $query, $response ) = C4::Service->init( parameters => 'parameters_remaining_permissions' );
  10
  11 sub get_translations {
  12     my $rs = Koha::Localizations->search({ entity => $query->param('entity'), code => $query->param('code') });
  13     my @translations;
  14     while ( my $s = $rs->next ) {
  15         push @translations, {
  16               id          => $s->localization_id,
  17               entity      => $s->entity,
  18               code        => $s->code,
  19               lang        => $s->lang,
  20               translation => $s->translation,
  21         }
  22     }
  23     $response->param( translations => \@translations );
  24     C4::Service->return_success( $response );
  25 }
  26
  27 sub update_translation {
  28     my $id = $query->param('id');
  29     my $translation = $query->param('translation');
  30     my $lang = $query->param('lang');
  31
  32     my $localization = Koha::Localizations->find( $id );
  33     if ( defined $lang and $localization->lang ne $lang ) {
  34         $localization->lang( $lang )
  35     }
  36     if ( defined $translation and $localization->translation ne $translation ) {
  37         $localization->translation( $translation )
  38     }
  39     my %params;
  40     if ( $localization->is_changed ) {
  41         unless ( Koha::Localizations->search( { entity => $localization->entity, code => $localization->code, lang => $lang, localization_id => { '!=' => $localization->localization_id }, } )->count ) {
  42             $localization->store;
  43         } else {
  44             $params{error} = 1;
  45             $params{error_code} = 'already_exists';
  46         }
  47     }
  48     $response->param(
  49         %params,
  50         id          => $localization->localization_id,
  51         entity      => $localization->entity,
  52         code        => $localization->code,
  53         lang        => $localization->lang,
  54         translation => $localization->translation,
  55     );
  56     C4::Service->return_success( $response );
  57 }
  58
  59 sub add_translation {
  60     my $entity = $query->param('entity');
  61     my $code = $query->param('code');
  62     my $lang = $query->param('lang');
  63     my $translation = $query->param('translation');
  64
  65     unless ( Koha::Localizations->search({entity => $entity, code => $code, lang => $lang, })->count ) {
  66         my $localization = Koha::Localization->new(
  67             {
  68                 entity => $entity,
  69                 code => $code,
  70                 lang => $lang,
  71                 translation => $translation,
  72             }
  73         );
  74         $localization->store;
  75         $response->param(
  76             id          => $localization->localization_id,
  77             entity      => $localization->entity,
  78             code        => $localization->code,
  79             lang        => $localization->lang,
  80             translation => $localization->translation,
  81         );
  82
  83     } else {
  84         $response->param( error => 1, error_code => 'already_exists', );
  85     }
  86     C4::Service->return_success( $response );
  87 }
  88
  89 sub delete_translation {
  90     my $id = $query->param('id');
  91     Koha::Localizations->find($id)->delete;
  92     $response->param( id => $id );
  93     C4::Service->return_success( $response );
  94 }
  95
  96 C4::Service->dispatch(
  97     [ 'GET /', [ 'id' ], \&get_translations ],
  98     [ 'PUT /', [ 'id' ], \&update_translation ],
  99     [ 'POST /', [ 'entity', 'code', 'lang', 'translation' ], \&add_translation ],
 100     [ 'DELETE /', ['id'],  \&delete_translation ],
 101 );