#!/usr/bin/perl
-# $Id$
# script to upload a picture to a borrowerimages directory.
# checks to see if its either displaying the upload form
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 ""){
);
output_html_with_http_headers $input, $cookie, $template->output;
}
-print $input->redirect("http://intranet/cgi-bin/koha/members/moremember.pl?borrowernumber=$borrowernumber");
\ No newline at end of file
+print $input->redirect("http://intranet/cgi-bin/koha/members/moremember.pl?borrowernumber=$borrowernumber");