X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=C4%2FLetters.pm;h=cf3e215be16b701f54cdc68698bfd66517a7a078;hb=63e871dd401c33f288202358639bf098af596148;hp=3c6ff15196a76b0e0eab03b1cf6fd67f339d41fb;hpb=b7e35a37256054c2a1d07a4fcd965283aa91968e;p=koha.git

diff --git a/C4/Letters.pm b/C4/Letters.pm
index 3c6ff15196..cf3e215be1 100644
--- a/C4/Letters.pm
+++ b/C4/Letters.pm
@@ -41,7 +41,7 @@ BEGIN {
 	$VERSION = 3.01;
 	@ISA = qw(Exporter);
 	@EXPORT = qw(
-	&GetLetters &getletter &addalert &getalert &delalert &findrelatedto &SendAlerts
+	&GetLetters &getletter &addalert &getalert &delalert &findrelatedto &SendAlerts GetPrintMessages
 	);
 }
 
@@ -667,6 +667,26 @@ sub GetRSSMessages {
                                    borrowernumber         => $params->{'borrowernumber'}, } );
 }
 
+=head2 GetPrintMessages
+
+=over 4
+
+my $message_list = GetPrintMessages( { borrowernumber => $borrowernumber } )
+
+Returns a arrayref of all queued print messages (optionally, for a particular
+person).
+
+=back
+
+=cut
+
+sub GetPrintMessages {
+    my $params = shift || {};
+    
+    return _get_unsent_messages( { message_transport_type => 'print',
+                                   borrowernumber         => $params->{'borrowernumber'}, } );
+}
+
 =head2 GetQueuedMessages ([$hashref])
 
 =over 4