Lines 1921-1939
sub GetTitles {
Link Here
|
1921 |
|
1921 |
|
1922 |
=head2 GetPatronImage |
1922 |
=head2 GetPatronImage |
1923 |
|
1923 |
|
1924 |
my ($imagedata, $dberror) = GetPatronImage($cardnumber); |
1924 |
my ($imagedata, $dberror) = GetPatronImage($borrowernumber); |
1925 |
|
1925 |
|
1926 |
Returns the mimetype and binary image data of the image for the patron with the supplied cardnumber. |
1926 |
Returns the mimetype and binary image data of the image for the patron with the supplied borrowernumber. |
1927 |
|
1927 |
|
1928 |
=cut |
1928 |
=cut |
1929 |
|
1929 |
|
1930 |
sub GetPatronImage { |
1930 |
sub GetPatronImage { |
1931 |
my ($cardnumber) = @_; |
1931 |
my ($borrowernumber) = @_; |
1932 |
warn "Cardnumber passed to GetPatronImage is $cardnumber" if $debug; |
1932 |
warn "Borrowernumber passed to GetPatronImage is $borrowernumber" if $debug; |
1933 |
my $dbh = C4::Context->dbh; |
1933 |
my $dbh = C4::Context->dbh; |
1934 |
my $query = 'SELECT mimetype, imagefile FROM patronimage WHERE cardnumber = ?'; |
1934 |
my $query = 'SELECT mimetype, imagefile FROM patronimage WHERE borrowernumber = ?'; |
1935 |
my $sth = $dbh->prepare($query); |
1935 |
my $sth = $dbh->prepare($query); |
1936 |
$sth->execute($cardnumber); |
1936 |
$sth->execute($borrowernumber); |
1937 |
my $imagedata = $sth->fetchrow_hashref; |
1937 |
my $imagedata = $sth->fetchrow_hashref; |
1938 |
warn "Database error!" if $sth->errstr; |
1938 |
warn "Database error!" if $sth->errstr; |
1939 |
return $imagedata, $sth->errstr; |
1939 |
return $imagedata, $sth->errstr; |
Lines 1952-1958
sub PutPatronImage {
Link Here
|
1952 |
my ($cardnumber, $mimetype, $imgfile) = @_; |
1952 |
my ($cardnumber, $mimetype, $imgfile) = @_; |
1953 |
warn "Parameters passed in: Cardnumber=$cardnumber, Mimetype=$mimetype, " . ($imgfile ? "Imagefile" : "No Imagefile") if $debug; |
1953 |
warn "Parameters passed in: Cardnumber=$cardnumber, Mimetype=$mimetype, " . ($imgfile ? "Imagefile" : "No Imagefile") if $debug; |
1954 |
my $dbh = C4::Context->dbh; |
1954 |
my $dbh = C4::Context->dbh; |
1955 |
my $query = "INSERT INTO patronimage (cardnumber, mimetype, imagefile) VALUES (?,?,?) ON DUPLICATE KEY UPDATE imagefile = ?;"; |
1955 |
my $query = "INSERT INTO patronimage (borrowernumber, mimetype, imagefile) VALUES ( ( SELECT borrowernumber from borrowers WHERE cardnumber = ? ),?,?) ON DUPLICATE KEY UPDATE imagefile = ?;"; |
1956 |
my $sth = $dbh->prepare($query); |
1956 |
my $sth = $dbh->prepare($query); |
1957 |
$sth->execute($cardnumber,$mimetype,$imgfile,$imgfile); |
1957 |
$sth->execute($cardnumber,$mimetype,$imgfile,$imgfile); |
1958 |
warn "Error returned inserting $cardnumber.$mimetype." if $sth->errstr; |
1958 |
warn "Error returned inserting $cardnumber.$mimetype." if $sth->errstr; |
Lines 1961-1979
sub PutPatronImage {
Link Here
|
1961 |
|
1961 |
|
1962 |
=head2 RmPatronImage |
1962 |
=head2 RmPatronImage |
1963 |
|
1963 |
|
1964 |
my ($dberror) = RmPatronImage($cardnumber); |
1964 |
my ($dberror) = RmPatronImage($borrowernumber); |
1965 |
|
1965 |
|
1966 |
Removes the image for the patron with the supplied cardnumber. |
1966 |
Removes the image for the patron with the supplied borrowernumber. |
1967 |
|
1967 |
|
1968 |
=cut |
1968 |
=cut |
1969 |
|
1969 |
|
1970 |
sub RmPatronImage { |
1970 |
sub RmPatronImage { |
1971 |
my ($cardnumber) = @_; |
1971 |
my ($borrowernumber) = @_; |
1972 |
warn "Cardnumber passed to GetPatronImage is $cardnumber" if $debug; |
1972 |
warn "Borrowernumber passed to GetPatronImage is $borrowernumber" if $debug; |
1973 |
my $dbh = C4::Context->dbh; |
1973 |
my $dbh = C4::Context->dbh; |
1974 |
my $query = "DELETE FROM patronimage WHERE cardnumber = ?;"; |
1974 |
my $query = "DELETE FROM patronimage WHERE borrowernumber = ?;"; |
1975 |
my $sth = $dbh->prepare($query); |
1975 |
my $sth = $dbh->prepare($query); |
1976 |
$sth->execute($cardnumber); |
1976 |
$sth->execute($borrowernumber); |
1977 |
my $dberror = $sth->errstr; |
1977 |
my $dberror = $sth->errstr; |
1978 |
warn "Database error!" if $sth->errstr; |
1978 |
warn "Database error!" if $sth->errstr; |
1979 |
return $dberror; |
1979 |
return $dberror; |