1 |
dpavlin |
1151 |
package App::RoomReservation::Messages; |
2 |
|
|
use Moose::Role; |
3 |
|
|
|
4 |
|
|
sub seat_confirmation_message { |
5 |
|
|
my ( $self, $name, $seat, $email, $url ) = @_; |
6 |
|
|
|
7 |
|
|
my $html = |
8 |
|
|
qq| |
9 |
|
|
$name, <em>reservation has been confirmed</em> |
10 |
|
|
| |
11 |
|
|
. ( $seat |
12 |
|
|
? qq| |
13 |
|
|
and seat number <big>$seat</big> is waiting for you. |
14 |
|
|
<br> |
15 |
|
|
Please print this notice and show it when entering lecture. |
16 |
|
|
| : qq| |
17 |
|
|
we <big>currently don't have any seats available</big>, |
18 |
|
|
but you will be notified if we get some vacancies for this lecture! |
19 |
|
|
| ) |
20 |
|
|
; |
21 |
|
|
|
22 |
|
|
$self->send( $email, |
23 |
|
|
"Lecture confirmation" . $seat ? " [seat $seat]" : " [wating for vacancy]", |
24 |
|
|
$html . <<__EMAIL__ |
25 |
|
|
|
26 |
|
|
If you wish to cancel your reservation please click on link below: |
27 |
|
|
|
28 |
|
|
$url |
29 |
|
|
|
30 |
|
|
__EMAIL__ |
31 |
|
|
); |
32 |
|
|
|
33 |
|
|
return $html; |
34 |
|
|
}; |
35 |
|
|
|
36 |
|
|
1; |