From 32d3cf98f56a14d980247435967ad7739615895f Mon Sep 17 00:00:00 2001
From: Fabian Kurz <fabian@fkurz.net>
Date: Thu, 8 Jan 2015 18:51:29 +0000
Subject: [PATCH] Fix sorting by QSL manager

---
 yfksubs.pl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/yfksubs.pl b/yfksubs.pl
index 9d2f524..32664fa 100644
--- a/yfksubs.pl
+++ b/yfksubs.pl
@@ -2730,7 +2730,15 @@ sub preparelabels {
 		if ($qslr eq 'Y') { $qslr = 'TNX'; }
 		else { $qslr = 'PSE';}
 
-		my $scall=$call;				# Altlasten...
+		my $scall=$call;
+		# $scall is the "sort call". Usually it's the same as the call, but if
+		# there is a QSLINFO, it will replaced by it plus the callsign of the
+		# recipient. $scall is the key for the # hash.
+
+		if ($mgr) {						# There is a manager
+			$scall = $mgr.$call;		# sort by manager call+call
+		}
+
 
 		# Check if key $scall already exists in the %calls hash, if not add it
 		# if it exists, check if label is full, if so make new one, otherwise