"Fossies" - the Fresh Open Source Software Archive

Member "koha-19.11.15/admin/sms_providers.pl" (23 Feb 2021, 2028 Bytes) of package /linux/misc/koha-19.11.15.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. For more information about "sms_providers.pl" see the Fossies "Dox" file reference documentation and the last Fossies "Diffs" side-by-side code changes report: 20.05.06_vs_20.11.00.

    1 #!/usr/bin/perl
    2 
    3 # Copyright 2012 ByWater Solutions
    4 #
    5 # This file is part of Koha.
    6 #
    7 # Koha is free software; you can redistribute it and/or modify it under the
    8 # terms of the GNU General Public License as published by the Free Software
    9 # Foundation; either version 3 of the License, or (at your option) any later
   10 # version.
   11 #
   12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
   13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
   14 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
   15 #
   16 # You should have received a copy of the GNU General Public License along
   17 # with Koha; if not, write to the Free Software Foundation, Inc.,
   18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
   19 
   20 use Modern::Perl;
   21 
   22 use CGI;
   23 
   24 use C4::Context;
   25 use C4::Auth;
   26 use C4::Output;
   27 
   28 use Koha::SMS::Provider;
   29 use Koha::SMS::Providers;
   30 
   31 my $cgi = new CGI;
   32 
   33 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
   34     {
   35         template_name   => "admin/sms_providers.tt",
   36         query           => $cgi,
   37         type            => "intranet",
   38         flagsrequired   => { parameters => 'manage_sms_providers' },
   39         debug           => 1,
   40     }
   41 );
   42 
   43 my $op     = $cgi->param('op') || '';
   44 my $id     = $cgi->param('id');
   45 my $name   = $cgi->param('name');
   46 my $domain = $cgi->param('domain');
   47 
   48 if ( $op eq 'add_update' ) {
   49     if ( $name && $domain ) {
   50         if ($id) {
   51             my $provider = Koha::SMS::Providers->find($id);
   52             $provider->set( { name => $name, domain => $domain } )->store()
   53               if $provider;
   54         }
   55         else {
   56             Koha::SMS::Provider->new( { name => $name, domain => $domain } )
   57               ->store();
   58         }
   59     }
   60 }
   61 elsif ( $op eq 'delete' ) {
   62     my $provider = Koha::SMS::Providers->find($id);
   63     $provider->delete() if $provider;
   64 }
   65 
   66 my @providers = Koha::SMS::Providers->search();
   67 
   68 $template->param( providers => \@providers );
   69 
   70 output_html_with_http_headers $cgi, $cookie, $template->output;