X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=opac%2Fopac-sendshelf.pl;h=6a376c4d45afe7884ff9114c813e1e07b46ab2de;hb=f76b9fb42e9ce7b90e3b45f2cc4c68470828e12a;hp=86b494bd3a08a730afeade5a8e53087eedadd493;hpb=96e7c9258340b2fb246752e5b8b5a580ec04578d;p=koha_fer

diff --git a/opac/opac-sendshelf.pl b/opac/opac-sendshelf.pl
index 86b494bd3a..6a376c4d45 100755
--- a/opac/opac-sendshelf.pl
+++ b/opac/opac-sendshelf.pl
@@ -13,15 +13,16 @@
 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
 #
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA  02111-1307 USA
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 use strict;
 use warnings;
 
 use CGI;
 use Encode qw(encode);
+use Carp;
 
 use Mail::Sendmail;
 use MIME::QuotedPrint;
@@ -98,7 +99,7 @@ if ( $email ) {
         push( @results, $dat );
     }
 
-    my $user = GetMember($borrowernumber); 
+    my $user = GetMember(borrowernumber => $borrowernumber); 
 
     $template2->param(
         BIBLIO_RESULTS => \@results,
@@ -162,7 +163,7 @@ END_OF_BODY
     }
     else {
         # do something if it doesnt work....
-        warn "Error sending mail: $Mail::Sendmail::error \n";
+        carp "Error sending mail: $Mail::Sendmail::error \n";
         $template->param( error => 1 );
     }