|
Lines 851-872
ENDSQL
Link Here
|
| 851 |
|
851 |
|
| 852 |
my @mtt = GetMessageTransportTypes(); |
852 |
my @mtt = GetMessageTransportTypes(); |
| 853 |
|
853 |
|
| 854 |
returns a list of hashes |
854 |
returns an arrayref of transport types |
| 855 |
|
855 |
|
| 856 |
=cut |
856 |
=cut |
| 857 |
|
857 |
|
| 858 |
sub GetMessageTransportTypes { |
858 |
sub GetMessageTransportTypes { |
| 859 |
my $dbh = C4::Context->dbh(); |
859 |
my $dbh = C4::Context->dbh(); |
| 860 |
my $sth = $dbh->prepare(" |
860 |
my $mtts = $dbh->selectcol_arrayref(" |
| 861 |
SELECT message_transport_type |
861 |
SELECT message_transport_type |
| 862 |
FROM message_transport_types |
862 |
FROM message_transport_types |
| 863 |
ORDER BY message_transport_type |
863 |
ORDER BY message_transport_type |
| 864 |
"); |
864 |
"); |
| 865 |
$sth->execute; |
865 |
return $mtts; |
| 866 |
my @mtts = map{ |
|
|
| 867 |
$_->[0] |
| 868 |
} @{ $sth->fetchall_arrayref() }; |
| 869 |
return \@mtts; |
| 870 |
} |
866 |
} |
| 871 |
|
867 |
|
| 872 |
=head2 _add_attachements |
868 |
=head2 _add_attachements |