add protocol if missing #171

ufal · Aug 1, 2022 · 6495630 · 6495630
1 parent 9ed1260
commit 6495630
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/psp-db/pspdb-generate-xml.pl b/src/psp-db/pspdb-generate-xml.pl
@@ -822,6 +822,8 @@ sub getNewestPhoto {
 sub addLink {
   my $self = shift;
   my ($link,$type) = (@_,'guest');
+  return unless $link;
+  $link = "https://$link" unless $link =~ m{https?://};
   $self->{idno}->{$type}->{$link} = 1;
 }