X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=rotating_collections%2FeditCollections.pl;h=28a23e58675bd2a476a8142882bada58597b977b;hb=ccb42663fac989af3a3621afdf6a04655bc28187;hp=1dba296352a4a80af102fca00aa8afe11237cfa5;hpb=8e0b1fe58f7e4f6e595b18d43c939c203833dac1;p=koha-ffzg.git

diff --git a/rotating_collections/editCollections.pl b/rotating_collections/editCollections.pl
index 1dba296352..28a23e5867 100755
--- a/rotating_collections/editCollections.pl
+++ b/rotating_collections/editCollections.pl
@@ -1,103 +1,115 @@
 #!/usr/bin/perl
 
-use strict;
-require Exporter;
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# Koha is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Koha; if not, see <http://www.gnu.org/licenses>.
+#
 
-use CGI;
+use Modern::Perl;
 
-use C4::Output;
-use C4::Auth;
+use CGI qw ( -utf8 );
+
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
 use C4::Context;
 
 use C4::RotatingCollections;
 
-my $query = new CGI;
-my ($template, $loggedinuser, $cookie)
-    = get_template_and_user({template_name => "rotating_collections/editCollections.tmpl",
-			     query => $query,
-			     type => "intranet",
-			     authnotrequired => 1,
-			     flagsrequired => {parameters => 1},
-			     debug => 1,
-			     });
+my $query = CGI->new;
+
+my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+    {
+        template_name   => "rotating_collections/editCollections.tt",
+        query           => $query,
+        type            => "intranet",
+        flagsrequired   => { tools => 'rotating_collections' },
+    }
+);
+
+my $action = $query->param('action');
+$template->param( action => $action );
 
 # Create new Collection
-if ( $query->param('action') eq 'create' ) {
-  my $title = $query->param('title');
-  my $description = $query->param('description');
-                            
-  my ( $createdSuccessfully, $errorCode, $errorMessage ) = CreateCollection( $title, $description );
-                              
-  $template->param(
-    previousActionCreate => 1,
-    createdTitle => $title,
-  );
-                                          
-  if ( $createdSuccessfully ) {
-    $template->param( createSuccess => 1 );
-  } else {
-    $template->param( createFailure => 1 );
-    $template->param( failureMessage => $errorMessage );
-  }                                                        
+if ( $action eq 'create' ) {
+    my $title       = $query->param('title');
+    my $description = $query->param('description');
+
+    my ( $createdSuccessfully, $errorCode, $errorMessage ) =
+      CreateCollection( $title, $description );
+
+    $template->param(
+        previousActionCreate => 1,
+        createdTitle         => $title,
+    );
+
+    if ($createdSuccessfully) {
+        $template->param( createSuccess => 1 );
+    }
+    else {
+        $template->param( createFailure  => 1 );
+        $template->param( failureMessage => $errorMessage );
+    }
 }
 
 ## Delete a club or service
-elsif ( $query->param('action') eq 'delete' ) {
-  my $colId = $query->param('colId');
-  my ( $success, $errorCode, $errorMessage ) = DeleteCollection( $colId );
-    
-  $template->param( previousActionDelete => 1 );
-  if ( $success ) {
-    $template->param( deleteSuccess => 1 );
-  } else {
-    $template->param( deleteFailure => 1 );
-    $template->param( failureMessage => $errorMessage );
-  }
+elsif ( $action eq 'delete' ) {
+    my $colId = $query->param('colId');
+    my ( $success, $errorCode, $errorMessage ) = DeleteCollection($colId);
+
+    $template->param( previousActionDelete => 1 );
+    if ($success) {
+        $template->param( deleteSuccess => 1 );
+    }
+    else {
+        $template->param( deleteFailure  => 1 );
+        $template->param( failureMessage => $errorMessage );
+    }
 }
 
 ## Edit a club or service: grab data, put in form.
-elsif ( $query->param('action') eq 'edit' ) {
-  my $colId = $query->param('colId');
-  my ( $colId, $colTitle, $colDesc, $colBranchcode ) = GetCollection( $colId );
-
-  $template->param(
-      previousActionEdit => 1,
-      editColId => $colId,
-      editColTitle => $colTitle,
-      editColDescription => $colDesc,
-  );
+elsif ( $action eq 'edit' ) {
+    my ( $colId, $colTitle, $colDesc, $colBranchcode ) = GetCollection( $query->param('colId') );
+
+    $template->param(
+        previousActionEdit => 1,
+        editColId          => $colId,
+        editColTitle       => $colTitle,
+        editColDescription => $colDesc,
+    );
 }
 
 # Update a Club or Service
-elsif ( $query->param('action') eq 'update' ) {
-  my $colId = $query->param('colId');
-  my $title = $query->param('title');
-  my $description = $query->param('description');
-                            
-  my ( $createdSuccessfully, $errorCode, $errorMessage ) 
-    = UpdateCollection( $colId, $title, $description );
-                              
-  $template->param(
-    previousActionUpdate => 1,
-    updatedTitle => $title,
-  );
-                                          
-  if ( $createdSuccessfully ) {
-    $template->param( updateSuccess => 1 );
-  } else {
-    $template->param( updateFailure => 1 );
-    $template->param( failureMessage => $errorMessage );
-  }                                                        
+elsif ( $action eq 'update' ) {
+    my $colId       = $query->param('colId');
+    my $title       = $query->param('title');
+    my $description = $query->param('description');
+
+    my ( $createdSuccessfully, $errorCode, $errorMessage ) =
+      UpdateCollection( $colId, $title, $description );
+
+    $template->param(
+        previousActionUpdate => 1,
+        updatedTitle         => $title,
+    );
+
+    if ($createdSuccessfully) {
+        $template->param( updateSuccess => 1 );
+    }
+    else {
+        $template->param( updateFailure  => 1 );
+        $template->param( failureMessage => $errorMessage );
+    }
 }
-                                                        
-my $collections = GetCollections();
-
-$template->param(
-		intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
-		intranetstylesheet => C4::Context->preference("intranetstylesheet"),
-		IntranetNav => C4::Context->preference("IntranetNav"),
-		
-		collectionsLoop => $collections,
-		);
 
 output_html_with_http_headers $query, $cookie, $template->output;