Bug 16996: (follow-up) Do not explode if mandatory fields are missing
[koha.git] / members / files.pl
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
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
11 #
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
16 #
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
19
20 use strict;
21 use warnings;
22
23 use CGI qw ( -utf8 );
24
25 use C4::Auth;
26 use C4::Branch;
27 use C4::Output;
28 use C4::Members;
29 use C4::Members::Attributes qw(GetBorrowerAttributes);
30 use C4::Debug;
31
32 use Koha::DateUtils;
33 use Koha::Patron::Files;
34 use Koha::Patron::Images;
35
36 my $cgi = CGI->new;
37
38 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
39     {
40         template_name   => "members/files.tt",
41         query           => $cgi,
42         type            => "intranet",
43         authnotrequired => 0,
44         flagsrequired   => { borrowers => 1 },
45         debug           => 1,
46     }
47 );
48 $template->param( 'borrower_files' => 1 );
49
50 my $borrowernumber = $cgi->param('borrowernumber');
51 my $bf = Koha::Patron::Files->new( borrowernumber => $borrowernumber );
52
53 my $op = $cgi->param('op') || '';
54
55 if ( $op eq 'download' ) {
56     my $file_id = $cgi->param('file_id');
57     my $file = $bf->GetFile( id => $file_id );
58
59     print $cgi->header(
60         -type       => $file->{'file_type'},
61         -charset    => 'utf-8',
62         -attachment => $file->{'file_name'}
63     );
64     print $file->{'file_content'};
65 }
66 else {
67     my $data = GetMember( borrowernumber => $borrowernumber );
68     $template->param(%$data);
69
70     my %errors;
71
72     if ( $op eq 'upload' ) {
73         my $uploaded_file = $cgi->upload('uploadfile');
74
75         if ($uploaded_file) {
76             my $filename = $cgi->param('uploadfile');
77             my $mimetype = $cgi->uploadInfo($filename)->{'Content-Type'};
78
79             $errors{'empty_upload'} = 1 if ( -z $uploaded_file );
80
81             if (%errors) {
82                 $template->param( errors => %errors );
83             }
84             else {
85                 my $file_content;
86                 while (<$uploaded_file>) {
87                     $file_content .= $_;
88                 }
89
90                 $bf->AddFile(
91                     name    => $filename,
92                     type    => $mimetype,
93                     content => $file_content,
94                     description => scalar $cgi->param('description'),
95                 );
96             }
97         }
98         else {
99             $errors{'no_file'} = 1;
100         }
101     } elsif ( $op eq 'delete' ) {
102         $bf->DelFile( id => scalar $cgi->param('file_id') );
103     }
104
105     $template->param(
106         categoryname    => $data->{'description'},
107         branchname      => GetBranchName($data->{'branchcode'}),
108         RoutingSerials => C4::Context->preference('RoutingSerials'),
109     );
110
111     if (C4::Context->preference('ExtendedPatronAttributes')) {
112         my $attributes = GetBorrowerAttributes($borrowernumber);
113         $template->param(
114             ExtendedPatronAttributes => 1,
115             extendedattributes => $attributes
116         );
117     }
118
119     my $patron_image = Koha::Patron::Images->find($data->{borrowernumber});
120     $template->param( picture => 1 ) if $patron_image;
121
122     $template->param(
123         files => Koha::Patron::Files->new( borrowernumber => $borrowernumber )
124           ->GetFilesInfo(),
125
126         errors => \%errors,
127     );
128     output_html_with_http_headers $cgi, $cookie, $template->output;
129 }
130
131 =head1 AUTHOR
132
133 Kyle M Hall <kyle@bywatersolutions.com>
134
135 =cut