+ my $json_md5 = md5_hex encode_json $item;
+ $item->{json_md5} = $json_md5;
+
+ if ( my $old_item = eval { $db->get( "zotero_$UserID/$id" ) } ) {
+ warn "# old_item ",dump($old_item);
+
+ if ( $old_item->{zapi}->{etag} ne $item->{zapi}->{etag} || $json_md5 ne $old_item->{json_md5} ) {
+ $item->{_rev} = $old_item->{_rev};
+ $db->put( "zotero_$UserID/$id" => $item );
+ } else {
+ warn "# unchanged";
+ }
+ } else {
+ $db->put( "zotero_$UserID/$id" => $item );
+ }
+}
+
+delete $feed->{entry};
+warn "# feed without entry ",dump( $feed );
+
+if ( my @next = map { $_->{href} } grep { $_->{rel} eq 'next' && $_->{type} eq 'application/atom+xml' } @{ $feed->{link} } ) {
+ warn "## next ",dump(@next);
+ $url = $next[0];
+ goto restart;