From d2ac528619eb87f2d2c522196d5d33a1f6ce663e Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 26 Jul 2012 20:10:20 +0200 Subject: [PATCH] rename to json_md5 --- zotero.pl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/zotero.pl b/zotero.pl index 35f29a0..241c832 100755 --- a/zotero.pl +++ b/zotero.pl @@ -79,14 +79,17 @@ foreach my $entry ( keys %{ $feed->{entry} } ) { my $old_item = $db->get( "z_$UserID/$id" ); warn "# old_item ",dump($old_item); - my $item_md5 = md5_hex encode_json $item; - $item->{item_md5} = $item_md5; - if ( $old_item->{zapi_etag} ne $item->{zapi_etag} || $item_md5 ne $old_item->{item_md5} ) { + my $json_md5 = md5_hex encode_json $item; + $item->{json_md5} = $json_md5; + if ( $old_item->{zapi_etag} ne $item->{zapi_etag} || $json_md5 ne $old_item->{json_md5} ) { $item->{_rev} = $old_item->{_rev}; $db->put( "z_$UserID/$id" => $item ); } } +delete $feed->{entry}; +warn "# feed without entry ",dump( $feed ); + warn "# tree ",dump( $tree ); warn "# ticket_items ",dump( $ticket_items ); -- 2.20.1