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 = "&nbsp;"; + 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; }