From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

BARBIE / Labyrinth-5.32 / lib / Labyrinth / Inbox.pm 

            

              
1
2
3
4
5
6
7
—
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
—
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
—
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
—
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128

              
package Labyrinth::Inbox;
use warnings;
use strict;
use vars qw($VERSION @ISA %EXPORT_TAGS @EXPORT @EXPORT_OK);
$VERSION = '5.32';
=head1 NAME
Labyrinth::Inbox - Inbox Handler for Labyrinth
=head1 SYNOPSIS
  use Labyrinth::Inbox;
  MessageSend(%hash);
  MessageApproval($status,$messageid);
=head1 DESCRIPTION
The Inbox package contains generic functions used for Inbox and Message
handling.
Currently the full functionality of this package is unused. It was originally
developed to store updates for articles, news, events, etc that were submitted
as part of the workflow process.
At some point this will be reviewed and either deleted or reworked to better
fit the workflow process.
=head1 EXPORT
  MessageSend
  MessageApproval
=cut
# -------------------------------------
# Export Details
require Exporter;
@ISA = qw(Exporter);
@EXPORT    = ( qw( MessageSend MessageApproval ) );
# -------------------------------------
# Library Modules
use Labyrinth::Globals;
use Labyrinth::DBUtils;
use Labyrinth::Variables;
# -------------------------------------
# Variables
# -------------------------------------
# The Subs
=head1 FUNCTIONS
=over 4
=item MessageSend(%hash)
Hash table entries should contain:
  my %hash = (
    folder => $folder,
    area   => $area,
    item   => $item,
    title  => $title,
    body   => $body
    url    => $url
  );
=cut
sub MessageSend {
    my %hash = @_;
    $dbi->DoQuery('AddMessage', $hash{folder},  $hash{area},
                                $hash{item},    $hash{title},
                                $hash{body},    $hash{url},
                                formatDate(0),  $tvars{loginid});
}
=item MessageApproval($status,$messageid)
Record informational messages to Inbox Log.
=cut
sub MessageApproval {
    my ($status,$messageid) = @_;
    $tvars{status} = $status;
    my @rows = $dbi->GetQuery('hash','ReadMessage', $messageid);
    return  unless(@rows);
    my $action = $rows[0]->{area}.'::Approval';
    $tvars{message} = $rows[0];
    &$action;
}
1;
__END__
=back
=head1 SEE ALSO
  Labyrinth
=head1 AUTHOR
Barbie, <barbie@missbarbell.co.uk> for
Miss Barbell Productions, L<http://www.missbarbell.co.uk/>
=head1 COPYRIGHT & LICENSE
  Copyright (C) 2002-2015 Barbie for Miss Barbell Productions
  All Rights Reserved.
  This module is free software; you can redistribute it and/or
  modify it under the Artistic License 2.0.
=cut