projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixing version number
[koha.git]
/
members
/
member-picupload.pl
diff --git
a/members/member-picupload.pl
b/members/member-picupload.pl
index
6190ac7
..
c6f6afc
100755
(executable)
--- a/
members/member-picupload.pl
+++ b/
members/member-picupload.pl
@@
-1,6
+1,5
@@
#!/usr/bin/perl
#!/usr/bin/perl
-# $Id$
# script to upload a picture to a borrowerimages directory.
# checks to see if its either displaying the upload form
# script to upload a picture to a borrowerimages directory.
# checks to see if its either displaying the upload form
@@
-38,7
+37,6
@@
my $borrowernumber = $input->param('borrowernumber');
my $photo = $input->param('photo');
my $template_name;
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 ""){
my $htdocs = C4::Context->config('intrahtdocs');
my $upload_dir = $htdocs."/borrowerimages";
if($photo eq ""){
@@
-74,4
+72,4
@@
else {
);
output_html_with_http_headers $input, $cookie, $template->output;
}
);
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");