App/RoomReservation/Messages.pm

package App::RoomReservation::Messages;
use Moose::Role;

sub seat_confirmation_message {
        my ( $self, $name, $seat, $email, $url ) = @_;

        my $html =
        qq|
                $name, <em>reservation has been confirmed</em>
        |
        . ( $seat
        ? qq|
                and seat number <big>$seat</big> is waiting for you.
                <br>
                Please print this notice and show it when entering lecture.
        | : qq|
                we <big>currently don't have any seats available</big>,
                but you will be notified if we get some vacancies for this lecture!
        | )
        ;

        $self->send( $email,
                "Lecture confirmation" . $seat ? " [seat $seat]" : " [wating for vacancy]",
                $html . <<__EMAIL__

If you wish to cancel your reservation please click on link below:

$url

__EMAIL__
        );

        return $html;
};

1;
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;