[Koha-patches] [PATCH] POD for C4::Members::Messaging
Daniel Sweeney
daniel.sweeney at liblime.com
Tue Feb 3 23:01:59 CET 2009
From: John Beppu <john.beppu at liblime.com>
- fixed typos and formatting.
- added notes on how to add new kinds of messages.
- added notes on the tables being used.
Signed-off-by: Daniel Sweeney <daniel.sweeney at liblime.com>
---
C4/Members/Messaging.pm | 92 ++++++++++++++++++++++++++++++++++------------
1 files changed, 68 insertions(+), 24 deletions(-)
diff --git a/C4/Members/Messaging.pm b/C4/Members/Messaging.pm
index cbcfdd1..3116928 100644
--- a/C4/Members/Messaging.pm
+++ b/C4/Members/Messaging.pm
@@ -34,24 +34,21 @@ C4::Members::Messaging - manage patron messaging preferences
=head1 SYNOPSIS
-=over 4
+ use C4::Members::Messaging
-=back
+=head1 DESCRIPTION
-=head1 FUNCTIONS
+This module lets you modify a patron's messaging preferences.
+=head1 FUNCTIONS
=head2 GetMessagingPreferences
-=over 4
-
-my $preferences = C4::Members::Messaging::GetMessagingPreferences( { borrowernumber => $borrower->{'borrowernumber'},
- message_name => 'DUE' } );
+ my $preferences = C4::Members::Messaging::GetMessagingPreferences( { borrowernumber => $borrower->{'borrowernumber'},
+ message_name => 'DUE' } );
returns: a hashref of messaging preferences for this borrower for a particlar message_name
-=back
-
=cut
sub GetMessagingPreferences {
@@ -98,21 +95,21 @@ END_SQL
return $return;
}
-=head2 SetMessagingPreferences
+=head2 SetMessagingPreference
-=over 4
+This method defines how a user wants to get a certain message delivered. The
+list of valid message types can be delivered can be found in the
+C<message_attributes> table, and the list of valid message transports can be
+found in the C<message_transport_types> table.
-
-C4::Members::Messaging::SetMessagingPreference( { borrowernumber => $borrower->{'borrowernumber'}
- message_attribute_id => $message_attribute_id,
- message_transport_types => [ qw( email sms ) ],
- days_in_advance => 5
- wants_digest => 1 } )
+ C4::Members::Messaging::SetMessagingPreference( { borrowernumber => $borrower->{'borrowernumber'}
+ message_attribute_id => $message_attribute_id,
+ message_transport_types => [ qw( email sms ) ],
+ days_in_advance => 5
+ wants_digest => 1 } )
returns nothing useful.
-=back
-
=cut
sub SetMessagingPreference {
@@ -170,14 +167,10 @@ END_SQL
=head2 GetMessagingOptions
-=over 4
-
-my $messaging_options = C4::Members::Messaging::SetMessagingPreference()
+ my $messaging_options = C4::Members::Messaging::GetMessagingOptions()
returns a hashref of messaing options available.
-=back
-
=cut
sub GetMessagingOptions {
@@ -205,6 +198,57 @@ END_SQL
return \@return;
}
+=head1 TABLES
+
+=head2 message_queue
+
+The actual messages which will be sent via a cron job running
+F<misc/cronjobs/process_message_queue.pl>.
+
+=head2 message_attributes
+
+What kinds of messages can be sent?
+
+=head2 message_transport_types
+
+What transports can messages be sent vith? (email, sms, etc.)
+
+=head2 message_transports
+
+How are message_attributes and message_transport_types correlated?
+
+=head2 borrower_message_preferences
+
+What messages do the borrowers want to receive?
+
+=head2 borrower_message_transport_preferences
+
+What transport should a message be sent with?
+
+=head1 CONFIG
+
+=head2 Adding a New Kind of Message to the System
+
+=over 4
+
+=item 1.
+
+Add a new template to the `letter` table.
+
+=item 2.
+
+Insert a row into the `message_attributes` table.
+
+=item 3.
+
+Insert rows into `message_transports` for each message_transport_type.
+
+=back
+
+=head1 SEE ALSO
+
+L<C4::Letters>
+
=head1 AUTHOR
Koha Development Team <info at koha.org>
--
1.5.5.GIT
More information about the Koha-patches
mailing list