From 97b0b4bd938cba7fa32a8afd8bf343d019b1a72d Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Mon, 12 Aug 2024 18:16:52 +0200 Subject: backend form: always show IRIS first --- lib/Travelynx/Controller/Account.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'lib/Travelynx/Controller/Account.pm') diff --git a/lib/Travelynx/Controller/Account.pm b/lib/Travelynx/Controller/Account.pm index 09aa81a..ec6a02f 100644 --- a/lib/Travelynx/Controller/Account.pm +++ b/lib/Travelynx/Controller/Account.pm @@ -1026,7 +1026,12 @@ sub backend_form { $backend->{type} = $type; } - @backends = grep { $_->{type} } @backends; + my $iris = shift @backends; + + @backends + = sort { $a->{name} cmp $b->{name} } grep { $_->{type} } @backends; + + unshift( @backends, $iris ); $self->render( 'select_backend', -- cgit v1.2.3