X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=members%2Fmember-picupload.pl;h=c6f6afc7a84ba09191db7b1d13ccaa684deb4f22;hb=f3b0a7aa89d6995908ec23f5bf5dc28b6ef849ed;hp=6190ac747c2694c8b2bf6341a28a02b655027c1f;hpb=cefeb583ad0069a15df8489c3b10b9ec72877e70;p=koha.git diff --git a/members/member-picupload.pl b/members/member-picupload.pl index 6190ac747c..c6f6afc7a8 100755 --- a/members/member-picupload.pl +++ b/members/member-picupload.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl -# $Id$ # 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 $upload_dir= 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; } -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");