Try looking for versions

nigelhorne · Nov 13, 2024 · e91cf6d · e91cf6d
1 parent bcf0dc4
commit e91cf6d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/dynamic-site/templates/default/web/Ged2site/Display/reports.tmpl b/dynamic-site/templates/default/web/Ged2site/Display/reports.tmpl
@@ -8,7 +8,7 @@
 		<meta name="msvalidate.01" content="deadbeef" />
 		-->
 		[% USE env = EnvHash %]
-		<link rel=alternate" hreflang="en" href="[% env.SCRIPT_URI %]?page=[% page %]&lang=en" />
+		<link rel=alternate" hreflang="en" href="[% env.SCRIPT_URI %]?page=[% page %]&amp;lang=en" />
 		<link rel=alternate" hreflang="x-default" href="[% env.SCRIPT_URI %]?page=[% page %]" />
 	</head>
 	<body>

diff --git a/ged2site b/ged2site
@@ -188,11 +188,15 @@ foreach my $module (@needfull) {
 	$name =~ s{\.tar\.gz$}{}; # Remove file extension
 	$name =~ s{::(\d+)$}{ $1}; # Adjust version formatting if embedded in module name
 
-	eval "require $name" or die $@;
+	if($version) {
+		eval "require $name $version" or die $@;
+	} else {
+		eval "require $name" or die $@;
+	}
 	$name->import();
 
 	# Uncomment to check version if needed
-	# die "$name: need $version, got " . $name->VERSION if $version && $name->VERSION < $version;
+	die "$name: need $version, got " . $name->VERSION if $version && $name->VERSION < $version;
 }
 
 use autodie qw(:all);