From knarf@cct.lsu.edu Wed Aug 17 11:14:37 2011
From: knarf@cct.lsu.edu
To: commits@lists.einsteintoolkit.org
Subject:
 [Commits] [svn:einsteintoolkit] www/documentation/licenses/ (Rev.	602)
Date: Wed, 17 Aug 2011 16:14:37 +0000
Message-ID: <20110817161437.74DF32C4777@mail.einsteintoolkit.org>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============8730454368003149510=="

--===============8730454368003149510==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

User: knarf
Date: 2011/08/17 11:14 AM

Modified:
 /documentation/licenses/
  parse_citations.pl

Log:
 collapse table

File Changes:

Directory: /documentation/licenses/
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

File [modified]: parse_citations.pl
Delta lines: +27 -2
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
--- documentation/licenses/parse_citations.pl	2011-08-17 15:39:37 UTC (rev 60=
1)
+++ documentation/licenses/parse_citations.pl	2011-08-17 16:14:37 UTC (rev 60=
2)
@@ -32,12 +32,37 @@
   }
   # sort
   @arr_of_arr =3D sort {my (@aa,@bb); @aa =3D keys(%$a); @bb =3D keys(%$b); =
$aa[0] cmp $bb[0]} @arr_of_arr;
+  # collapse
+  my @arr2_of_arr =3D ();
+  my $last_key =3D "";
+  foreach my $elem (@arr_of_arr) {
+    my %mapp =3D %$elem;
+    my $key  =3D (keys(%mapp))[0];
+    if ($last_key ne $key) {
+      my @refs  =3D ($mapp{$key});
+      my %nelem =3D ($key =3D> \@refs);
+      push(@arr2_of_arr, \%nelem);
+    } else {
+      push(@{$arr2_of_arr[scalar(@arr2_of_arr)-1]{$key}}, $mapp{$key});
+    }
+    $last_key =3D $key;
+  }
+
   # output
   print "<table>\n";
-  foreach my $elem (@arr_of_arr) {
+  foreach my $elem (@arr2_of_arr) {
     my %mapp =3D %$elem;
     my $key  =3D (keys(%mapp))[0];
-    print "<tr><th align=3D'left'>".$key."</th><td>".$mapp{$key}."</td></tr>=
\n";
+    my $count =3D scalar(@{$mapp{$key}});
+    my $first =3D 1;
+    for my $ref (@{$mapp{$key}}) {
+      if ($first) {
+        print "<tr><th align=3D'left' rowspan=3D'$count'>".$key."</th><td>$r=
ef</td></tr>\n";
+      } else {
+        print "<tr><td>$ref</td></tr>\n";
+      }
+      $first =3D 0;
+    }
   }
   print "</table>\n";
 }


--===============8730454368003149510==--