User: knarf Date: 2010/11/20 11:47 PM

Modified: /info/citing/ parse_citations.pl

Log: also print suggested

File Changes:

Directory: /info/citing/ ========================

File [modified]: parse_citations.pl Delta lines: +43 -34 =================================================================== --- info/citing/parse_citations.pl 2010-11-21 05:41:05 UTC (rev 420) +++ info/citing/parse_citations.pl 2010-11-21 05:47:09 UTC (rev 421) @@ -4,38 +4,47 @@

my $tmpfile = "/tmp/ET-citations.bib";

-# create bib file -my $command = "../../bibtex/parse_bibtex.pl --input=../../manifest/einsteintoolkit.bib --filter=required-for"; -`$command > $tmpfile`; -# get bibtex key list -my $keys = `$command --showkey=required-for`; -# generate preliminary html -my $html = join("", `../../bibtex/bib2xhtml -u -s unsortlist $tmpfile`); -unlink($tmpfile); -# strip html frame from list -$html=~s/.*(<!-- BEGIN BIB)/$1/s; -$html=~s/(<!-- END BIB.*-->).*/$1/s; -# merge key and bibtex lists -my $delimiter = "<!-- Authors"; -my @html_arr = split($delimiter, $html); shift(@html_arr); -my @keys_arr = split("\n", $keys); -my @arr_of_arr = (); -for (my $i=0; $i<scalar(@html_arr); $i++) { - my $key_part2 = $keys_arr[$i]; - $key_part2 =~ s/[^ ]* //g; - my $html_part = $html_arr[$i]; - $html_part =~ s/</?li>//g; - $html_part =~ s/</ul>//g; - my %elem = ($key_part2=>$delimiter.$html_part); - push(@arr_of_arr, %elem); +sub one_filter() +{ + my ($filter) = @_; + # create bib file + my $command = "../../bibtex/parse_bibtex.pl --input=../../manifest/einsteintoolkit.bib --filter=$filter"; + `$command > $tmpfile`; + # get bibtex key list + my $keys = `$command --showkey=required-for`; + # generate preliminary html + my $html = join("", `../../bibtex/bib2xhtml -u -s unsortlist $tmpfile`); + unlink($tmpfile); + # strip html frame from list + $html=~s/.*(<!-- BEGIN BIB)/$1/s; + $html=~s/(<!-- END BIB.*-->).*/$1/s; + # merge key and bibtex lists + my $delimiter = "<!-- Authors"; + my @html_arr = split($delimiter, $html); shift(@html_arr); + my @keys_arr = split("\n", $keys); + my @arr_of_arr = (); + for (my $i=0; $i<scalar(@html_arr); $i++) { + my $key_part2 = $keys_arr[$i]; + $key_part2 =~ s/[^ ]* //g; + my $html_part = $html_arr[$i]; + $html_part =~ s/</?li>//g; + $html_part =~ s/</ul>//g; + my %elem = ($key_part2=>$delimiter.$html_part); + push(@arr_of_arr, %elem); + } + # sort + @arr_of_arr = sort {my (@aa,@bb); @aa = keys(%$a); @bb = keys(%$b); $aa[0] cmp $bb[0]} @arr_of_arr; + # output + print "<table>\n"; + foreach my $elem (@arr_of_arr) { + my %mapp = %$elem; + my $key = (keys(%mapp))[0]; + print "<tr><th align='left'>".$key."</th><td>".$mapp{$key}."</td></tr>\n"; + } + print "</table>\n"; } -# sort -@arr_of_arr = sort {my (@aa,@bb); @aa = keys(%$a); @bb = keys(%$b); $aa[0] cmp $bb[0]} @arr_of_arr; -# output -print "<table>\n"; -foreach my $elem (@arr_of_arr) { - my %mapp = %$elem; - my $key = (keys(%mapp))[0]; - print "<tr><th align='left'>".$key."</th><td>".$mapp{$key}."</td></tr>\n"; -} -print "</table>\n"; + +print "<h2>Requested</h2>\n"; +&one_filter("requested_for"); +print "<h2>Suggested</h2>\n"; +&one_filter("suggested_for");