#!/usr/bin/perl
-# $Id$
# script to upload a picture to a borrowerimages directory.
# checks to see if its either displaying the upload form
# Suite 330, Boston, MA 02111-1307 USA
use strict;
+use warnings;
+
use C4::Auth;
use C4::Context;
use C4::Output;
use CGI;
-use HTML::Template;
-use C4::Interface::CGI::Output;
-use C4::Interface::CGI::Template;
+
my $input = new CGI;
my $name = $input->param('name');
-my $bornum = $input->param('bornum');
+my $borrowernumber = $input->param('borrowernumber');
my $photo = $input->param('photo');
my $template_name;
-my $upload_dir=
my $htdocs = C4::Context->config('intrahtdocs');
my $upload_dir = $htdocs."/borrowerimages";
if($photo eq ""){
});
if ($photo){
- my $filename=$bornum.'.jpg';
+ my $filename=$borrowernumber.'.jpg';
my $upload_filehandle = $input->upload("photo");
open UPLOADFILE, ">$upload_dir/$filename";
binmode UPLOADFILE;
}
else {
$template->param(
- bornum => $bornum,
+ borrowernumber => $borrowernumber,
name => $name
);
output_html_with_http_headers $input, $cookie, $template->output;
}
-print $input->redirect("http://intranet/cgi-bin/koha/members/moremember.pl?bornum=$bornum");
\ No newline at end of file
+print $input->redirect("http://intranet/cgi-bin/koha/members/moremember.pl?borrowernumber=$borrowernumber");