}
}
- $item->{zapi_etag} = $item->{content}->{'zapi:etag'};
+ $item->{zapi}->{etag} = $item->{content}->{'zapi:etag'};
+ $item->{zapi}->{type} = $item->{content}->{'zapi:type'};
if ( $item->{content}->{'zapi:type'} eq 'json' ) {
my $json = $item->{content}->{content};
}
}
+ foreach my $zapi ( grep { m/^zapi:/ } keys %$item ) {
+ my $name = $zapi;
+ $name =~ s/^zapi://;
+ $item->{zapi}->{$name} = delete $item->{$zapi};
+ }
+
$items->{$id} = $item;
my $json_md5 = md5_hex encode_json $item;
if ( my $old_item = eval { $db->get( "z_$UserID/$id" ) } ) {
warn "# old_item ",dump($old_item);
- if ( $old_item->{zapi_etag} ne $item->{zapi_etag} || $json_md5 ne $old_item->{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 );
} else {