extract key from href in links

[ILL-Zotero-RT] / zotero.pl

diff --git a/zotero.pl b/zotero.pl
index 7f99401..35f29a0 100755 (executable)
--- a/zotero.pl
+++ b/zotero.pl
@@ -45,13 +45,17 @@ foreach my $entry ( keys %{ $feed->{entry} } ) {
        my $item = $feed->{entry}->{$entry};
        warn "# entry $entry ",dump($item);
 
-       foreach my $link ( @{ $item->{link} } ) {
-               warn "# link $id ",dump($link);
+       foreach my $i ( 0 .. $#{ $item->{link} } ) {
+               my $link = $item->{link}->[$i];
+               warn "# link $id $i:",dump($link);
+
+               my $key = $link->{href};
+               $key =~ s{.+/items/}{};
+               $key =~ s{\?.+}{};
+               $item->{link}->[$i]->{key} = $key;
+
                if ( $link->{rel} eq 'up' ) {
-                       my $up = $link->{href};
-                       $up =~ s{.+/items/}{};
-                       $up =~ s{\?.+}{};
-                       push @{ $tree->{$up} }, $id;
+                       push @{ $tree->{$key} }, $id;
                }
        }