Merge commit 'pianohacker-koha/prefs-submit' into master
[wip/koha-chris_n.git] / rotating_collections / transferCollection.pl
1 #!/usr/bin/perl
2 use strict;
3 require Exporter;
4
5 use C4::Output;
6 use C4::Auth;
7 use C4::Context;
8 use C4::RotatingCollections;
9 use C4::Branch;
10
11 use CGI;
12
13 my $query = new CGI;
14
15 my $colId = $query->param('colId');
16 my $toBranch = $query->param('toBranch');
17
18 my ($template, $loggedinuser, $cookie)
19     = get_template_and_user({template_name => "rotating_collections/transferCollection.tmpl",
20                              query => $query,
21                              type => "intranet",
22                              authnotrequired => 1,
23                              flagsrequired => {parameters => 1},
24                              debug => 1,
25                              });
26
27 ## Transfer collection
28 my ( $success, $errorCode, $errorMessage );
29 if ( $toBranch ) {
30   ( $success, $errorCode, $errorMessage ) = TransferCollection( $colId, $toBranch );
31
32   if ( $success ) {
33     $template->param( transferSuccess => 1 );
34   } else {
35     $template->param( transferFailure => 1,
36                       errorCode => $errorCode,
37                       errorMessage => $errorMessage
38     );
39   }
40 }
41
42 ## Set up the toBranch select options
43 my $branches = GetBranches();
44 my @branchoptionloop;
45 foreach my $br (keys %$branches) {
46   my %branch;
47   $branch{code}=$br;
48   $branch{name}=$branches->{$br}->{'branchname'};
49   push (@branchoptionloop, \%branch);
50 }
51     
52 ## Get data about collection
53 my ( $colId, $colTitle, $colDesc, $colBranchcode ) = GetCollection( $colId );                                
54 $template->param(
55                 intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
56                 intranetstylesheet => C4::Context->preference("intranetstylesheet"),
57                 IntranetNav => C4::Context->preference("IntranetNav"),
58                                   
59                 colId => $colId,
60                 colTitle => $colTitle,
61                 colDesc => $colDesc,
62                 colBranchcode => $colBranchcode,
63                 branchoptionloop => \@branchoptionloop
64                 );
65                                                                                                 
66 output_html_with_http_headers $query, $cookie, $template->output;