rotating_collections/transferCollection.pl

   1 #!/usr/bin/perl
   2
   3 # This file is part of Koha.
   4 #
   5 # Koha is free software; you can redistribute it and/or modify it under the
   6 # terms of the GNU General Public License as published by the Free Software
   7 # Foundation; either version 2 of the License, or (at your option) any later
   8 # version.
   9 #
  10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  12 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License along with
  15 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  16 # Suite 330, Boston, MA  02111-1307 USA
  17 #
  18
  19 use strict;
  20 #use warnings; FIXME - Bug 2505
  21 require Exporter;
  22
  23 use C4::Output;
  24 use C4::Auth;
  25 use C4::Context;
  26 use C4::RotatingCollections;
  27 use C4::Branch;
  28
  29 use CGI;
  30
  31 my $query = new CGI;
  32
  33 my $colId = $query->param('colId');
  34 my $toBranch = $query->param('toBranch');
  35
  36 my ($template, $loggedinuser, $cookie)
  37     = get_template_and_user({template_name => "rotating_collections/transferCollection.tmpl",
  38                              query => $query,
  39                              type => "intranet",
  40                              authnotrequired => 0,
  41                              flagsrequired => {parameters => 1},
  42                              debug => 1,
  43                              });
  44
  45 ## Transfer collection
  46 my ( $success, $errorCode, $errorMessage );
  47 if ( $toBranch ) {
  48   ( $success, $errorCode, $errorMessage ) = TransferCollection( $colId, $toBranch );
  49
  50   if ( $success ) {
  51     $template->param( transferSuccess => 1 );
  52   } else {
  53     $template->param( transferFailure => 1,
  54                       errorCode => $errorCode,
  55                       errorMessage => $errorMessage
  56     );
  57   }
  58 }
  59
  60 ## Set up the toBranch select options
  61 my $branches = GetBranches();
  62 my @branchoptionloop;
  63 foreach my $br (keys %$branches) {
  64   my %branch;
  65   $branch{code}=$br;
  66   $branch{name}=$branches->{$br}->{'branchname'};
  67   push (@branchoptionloop, \%branch);
  68 }
  69
  70 ## Get data about collection
  71 my ( $colId, $colTitle, $colDesc, $colBranchcode ) = GetCollection( $colId );
  72 $template->param(
  73                 intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
  74                 intranetstylesheet => C4::Context->preference("intranetstylesheet"),
  75                 IntranetNav => C4::Context->preference("IntranetNav"),
  76
  77                 colId => $colId,
  78                 colTitle => $colTitle,
  79                 colDesc => $colDesc,
  80                 colBranchcode => $colBranchcode,
  81                 branchoptionloop => \@branchoptionloop
  82                 );
  83
  84 output_html_with_http_headers $query, $cookie, $template->output;