Merge branch 'master' of /home/jmf/repos/koha-rm-root.git/
[wip/koha-chris_n.git] / members / member-picupload.pl
1 #!/usr/bin/perl
2
3 # $Id$
4
5 # script to upload a picture to a borrowerimages directory.
6 # checks to see if its either displaying the upload form
7 # or doing the actual upload.
8 # written by Waylon Robertson (genjimoto@sourceforge) 2005/08/22
9
10
11 # Copyright 2000-2002 Katipo Communications
12 #
13 # This file is part of Koha.
14 #
15 # Koha is free software; you can redistribute it and/or modify it under the
16 # terms of the GNU General Public License as published by the Free Software
17 # Foundation; either version 2 of the License, or (at your option) any later
18 # version.
19 #
20 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
21 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
22 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
23 #
24 # You should have received a copy of the GNU General Public License along with
25 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
26 # Suite 330, Boston, MA  02111-1307 USA
27
28 use strict;
29 use C4::Auth;
30 use C4::Context;
31 use C4::Output;
32 use CGI;
33
34
35 my $input = new CGI;
36 my $name = $input->param('name');
37 my $borrowernumber = $input->param('borrowernumber');
38 my $photo = $input->param('photo');
39
40 my $template_name;
41 my $upload_dir= 
42 my $htdocs = C4::Context->config('intrahtdocs');
43 my $upload_dir = $htdocs."/borrowerimages";
44 if($photo eq  ""){
45         $template_name = "members/member-picupload.tmpl";
46 } else {
47         $template_name = "members/moremember.tmpl";
48 }
49
50 my ($template, $loggedinuser, $cookie)
51     = get_template_and_user({template_name => $template_name,
52                              query => $input,
53                              type => "intranet",
54                              authnotrequired => 0,
55                              flagsrequired => {borrowers => 1},
56                              debug => 1,
57                              });
58 if ($photo){
59
60         my $filename=$borrowernumber.'.jpg';
61         my $upload_filehandle = $input->upload("photo");
62         open UPLOADFILE, ">$upload_dir/$filename";
63         binmode UPLOADFILE;
64         while ( <$upload_filehandle> )
65         {
66                 print UPLOADFILE;
67         }
68         close UPLOADFILE;
69 }
70 else {
71         $template->param(
72                  borrowernumber => $borrowernumber,
73                  name => $name
74                  );
75         output_html_with_http_headers $input, $cookie, $template->output;
76 }
77 print $input->redirect("http://intranet/cgi-bin/koha/members/moremember.pl?borrowernumber=$borrowernumber");