[Commits] [svn:einsteintoolkit] www/documentation/licenses/ (Rev. 1002)

[knarf at cct.lsu.edu]

User: knarf
Date: 2013/05/07 09:49 AM

Modified:
 /documentation/licenses/
  parse_citations.pl

Log:
 add bibtex key

File Changes:

Directory: /documentation/licenses/
===================================

File [modified]: parse_citations.pl
Delta lines: +6 -2
===================================================================
--- documentation/licenses/parse_citations.pl	2013-05-07 14:42:01 UTC (rev 1001)
+++ documentation/licenses/parse_citations.pl	2013-05-07 14:49:29 UTC (rev 1002)
@@ -56,10 +56,14 @@
     my $count = scalar(@{$mapp{$key}});
     my $first = 1;
     for my $ref (@{$mapp{$key}}) {
+      my $bibname = " ";
+      if ($ref =~ /a name="([^"]+)"/) {
+        $bibname = $1;
+      }
       if ($first) {
-        print "<tr><th align='left' rowspan='$count'>".$key."</th><td>$ref</td></tr>\n";
+        print "<tr><th align='left' rowspan='$count'>".$key."</th><td>$ref</td><td>$bibname</td></tr>\n";
       } else {
-        print "<tr><td>$ref</td></tr>\n";
+        print "<tr><td>$ref</td><td>$bibname</td></tr>\n";
       }
       $first = 0;
     }