@ -1921,19 +1921,19 @@ sub GetTitles {
= head2 GetPatronImage
my ( $ imagedata , $ dberror ) = GetPatronImage ( $ card number) ;
my ( $ imagedata , $ dberror ) = GetPatronImage ( $ borrower number) ;
Returns the mimetype and binary image data of the image for the patron with the supplied card number.
Returns the mimetype and binary image data of the image for the patron with the supplied borrower number.
= cut
sub GetPatronImage {
my ( $ card number) = @ _ ;
warn "Cardnumber passed to GetPatronImage is $card number" if $ debug ;
my ( $ borrower number) = @ _ ;
warn "Borrowernumber passed to GetPatronImage is $borrower number" if $ debug ;
my $ dbh = C4::Context - > dbh ;
my $ query = 'SELECT mimetype, imagefile FROM patronimage WHERE card number = ?' ;
my $ query = 'SELECT mimetype, imagefile FROM patronimage WHERE borrower number = ?' ;
my $ sth = $ dbh - > prepare ( $ query ) ;
$ sth - > execute ( $ card number) ;
$ sth - > execute ( $ borrower number) ;
my $ imagedata = $ sth - > fetchrow_hashref ;
warn "Database error!" if $ sth - > errstr ;
return $ imagedata , $ sth - > errstr ;
@ -1952,7 +1952,7 @@ sub PutPatronImage {
my ( $ cardnumber , $ mimetype , $ imgfile ) = @ _ ;
warn "Parameters passed in: Cardnumber=$cardnumber, Mimetype=$mimetype, " . ( $ imgfile ? "Imagefile" : "No Imagefile" ) if $ debug ;
my $ dbh = C4::Context - > dbh ;
my $ query = "INSERT INTO patronimage (cardnumber, mimetype, imagefile) VALUES (? ,?,?) ON DUPLICATE KEY UPDATE imagefile = ?;" ;
my $ query = "INSERT INTO patronimage (borrowernumber, mimetype, imagefile) VALUES ( ( SELECT borrowernumber from borrowers WHERE cardnumber = ? ) ,?,?) ON DUPLICATE KEY UPDATE imagefile = ?;" ;
my $ sth = $ dbh - > prepare ( $ query ) ;
$ sth - > execute ( $ cardnumber , $ mimetype , $ imgfile , $ imgfile ) ;
warn "Error returned inserting $cardnumber.$mimetype." if $ sth - > errstr ;
@ -1961,19 +1961,19 @@ sub PutPatronImage {
= head2 RmPatronImage
my ( $ dberror ) = RmPatronImage ( $ card number) ;
my ( $ dberror ) = RmPatronImage ( $ borrower number) ;
Removes the image for the patron with the supplied card number.
Removes the image for the patron with the supplied borrower number.
= cut
sub RmPatronImage {
my ( $ card number) = @ _ ;
warn "Cardnumber passed to GetPatronImage is $card number" if $ debug ;
my ( $ borrower number) = @ _ ;
warn "Borrowernumber passed to GetPatronImage is $borrower number" if $ debug ;
my $ dbh = C4::Context - > dbh ;
my $ query = "DELETE FROM patronimage WHERE card number = ?;" ;
my $ query = "DELETE FROM patronimage WHERE borrower number = ?;" ;
my $ sth = $ dbh - > prepare ( $ query ) ;
$ sth - > execute ( $ card number) ;
$ sth - > execute ( $ borrower number) ;
my $ dberror = $ sth - > errstr ;
warn "Database error!" if $ sth - > errstr ;
return $ dberror ;