X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=C4%2FMembers.pm;h=ec32bc507a8973149551d581269fddcabf3fef0f;hb=1c0401e867b85ddd5dd5ef211ab8c1ef5b63276f;hp=d09512bf7cf9592f6f2bfdbd17fb764a67964187;hpb=e660a339a85e7baa2d2fa9e7e9cdcb8bf9b5107e;p=koha_fer

diff --git a/C4/Members.pm b/C4/Members.pm
index d09512bf7c..ec32bc507a 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -56,7 +56,8 @@ BEGIN {
 		&GetRoadTypes 
 		&GetRoadTypeDetails 
 		&GetSortDetails
-		&GetTitles	
+		&GetTitles
+                &GetPatronImage
 
 		&GetMemberAccountRecords
 		&GetBorNotifyAcctRecord
@@ -1695,7 +1696,26 @@ sub GetTitles {
     }
 }
 
+=head2 GetPatronImage
 
+    $patronimage = &GetPatronImage('cardnumber');
+
+Returns the path/filename.jpg of the image for the patron with the supplied cardnumber.
+
+=cut
+
+sub GetPatronImage {
+    my $cardnumber = shift;
+    warn "Cardnumber passed to GetPatronImage is $cardnumber" if $debug;
+    my $htdocs = C4::Context->config('intrahtdocs');
+    my $picture = "patronimages/" . $cardnumber . ".jpg";
+    if ( -e "$htdocs/$picture" ) {
+           return ( "/intranet-tmpl/$picture" );   # FIXME: This is a real hack and should be handled better, but I'm in a hurry... -fbcit
+    }
+    else {
+        return ();
+    }
+}
 
 =head2 GetRoadTypeDetails (OUEST-PROVENCE)