projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge commit 'pianohacker-koha/prefs-submit' into master
[koha_fer]
/
members
/
member-picupload.pl
diff --git
a/members/member-picupload.pl
b/members/member-picupload.pl
old mode 100644
(file)
new mode 100755
(executable)
index
6190ac7
..
7e541c0
--- 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
@@
-26,6
+25,8
@@
# Suite 330, Boston, MA 02111-1307 USA
use strict;
# Suite 330, Boston, MA 02111-1307 USA
use strict;
+use warnings;
+
use C4::Auth;
use C4::Context;
use C4::Output;
use C4::Auth;
use C4::Context;
use C4::Output;
@@
-38,7
+39,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
+74,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");