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