sc: read version number from data include

[sheet.git] / sc.plp

diff --git a/sc.plp b/sc.plp
index 3252cf3e3cb1f3965765417ad728e03df3dd0524..13248fbb256afea92f25b287db48f48b14e01bd5 100644 (file)
--- a/sc.plp
+++ b/sc.plp
@@ -3,7 +3,6 @@
 my %scver = (
        id => 'bw',
        name => 'Brood War',
 my %scver = (
        id => 'bw',
        name => 'Brood War',

-       patch => '<span title="no known changes as of v1.16.1">version≥1.08</span>',

        title => 'starcraft',
        game => 'StarCraft',
        major => 1,
        title => 'starcraft',
        game => 'StarCraft',
        major => 1,


@@ -13,7 +12,6 @@ if ($ENV{PATH_INFO} and $ENV{PATH_INFO} eq '/2') {
        %scver = (
                id => 'hots',
                name => 'Heart of the Swarm',
        %scver = (
                id => 'hots',
                name => 'Heart of the Swarm',

-               patch => 'patch 2.1.3 BU',

                title => 'starcraft2',
                game => 'StarCraft II',
                major => 2,
                title => 'starcraft2',
                game => 'StarCraft II',
                major => 2,


@@ -42,7 +40,13 @@ Html({
 });
 
 print "<h1>$scver{game} units</h1>\n\n";
 });
 
 print "<h1>$scver{game} units</h1>\n\n";

-print "<p>Unit properties as seen or measured in $scver{name}\n$scver{patch}.\n</p>\n\n";
+
+my $units = do $datafile;
+die "Cannot open unit data: $_\n" for $@ || $! || ();
+my $patch = shift @{$units}
+       or die "Cannot open unit data: metadata not found\n";
+
+print "<p>Unit properties as seen or measured in $scver{name}\n$patch.\n</p>\n\n";

 
 sub coltoggle {
        my ($name, $id) = @_;
 
 sub coltoggle {
        my ($name, $id) = @_;


@@ -213,8 +217,6 @@ sub showval {
                );
        }
 
                );
        }
 

-       my $units = do $datafile;
-       die "Cannot open unit data: $_\n" for $@ || $! || ();

        my $grouped = 1;  # race headers
        if (exists $get{order}) {
                $grouped = 0;
        my $grouped = 1;  # race headers
        if (exists $get{order}) {
                $grouped = 0;