From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 5 Jun 2014 18:14:04 +0000 (-0700)
Subject: update bibtex to paper
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=553a45ec13c9e0edde5dad5bab83a336b4857f1e;hp=c82b0d9020aa465404d8e1bcaac2004336b1909b;p=bin.git

update bibtex to paper
---

diff --git a/bibtex_to_paper b/bibtex_to_paper
index 77bfe0f..c7165a3 100755
--- a/bibtex_to_paper
+++ b/bibtex_to_paper
@@ -225,7 +225,7 @@ sub open_bibtex_key {
         if ($options->{search_by_pmid}) {
             $entry = select_entry_from_pmid($dbh,$sth,$bibtex_key);
         } else {
-            select_entry_from_bibtex_key($dbh,$sth,$bibtex_key);
+            $entry = select_entry_from_bibtex_key($dbh,$sth,$bibtex_key);
         }
         p $entry if $DEBUG;
         open_entry($dbh,$sth,$entry,$options);
@@ -270,6 +270,10 @@ sub open_entry{
     my ($dbh,$sth,$entry,$options) = @_;
 
     return unless defined $entry and ref $entry and keys %{$entry};
+    if ($DEBUG) {
+        print STDERR "Entry: \n";
+        p $entry;
+    }
     if (defined $entry->{file_name} and length $entry->{file_name}) {
         my $paper = select_one($dbh,$sth->{select_papers_by_name},$entry->{file_name});
         if (not defined $paper) {
@@ -287,6 +291,8 @@ sub open_entry{
             }
             open_pdf($paper->{path},$options,$paper->{has_xoj});
             return;
+        } else {
+            print STDERR "Unable to find paper\n" if $DEBUG;
         }
     }
     if (defined $entry->{doi}) {
@@ -321,9 +327,11 @@ sub select_entry_from_bibtex_key{
 
     my $entry = select_one($dbh,$sth->{select_bibtex_by_key},$bibtex_key);
     if (not defined $entry) {
+        print STDERR "Unable to find entry by exact search\n" if $DEBUG;
         $bibtex_key =~ s/:.*$//;
         $entry = select_one($dbh,$sth->{select_bibtex_by_approximate_key},$bibtex_key.'%');
     }
+    print STDERR "Found entry\n" if $DEBUG and defined $entry;
     return $entry;
 }