818 |
sub put_doc { |
sub put_doc { |
819 |
my $self = shift; |
my $self = shift; |
820 |
my $doc = shift || return; |
my $doc = shift || return; |
821 |
return unless ($self->{url}); |
return unless ($self->{url} && $doc->isa('Search::Estraier::Document')); |
822 |
$self->shuttle_url( $self->{url} . '/put_doc', |
$self->shuttle_url( $self->{url} . '/put_doc', |
823 |
'text/x-estraier-draft', |
'text/x-estraier-draft', |
824 |
$doc->dump_draft, |
$doc->dump_draft, |
885 |
sub edit_doc { |
sub edit_doc { |
886 |
my $self = shift; |
my $self = shift; |
887 |
my $doc = shift || return; |
my $doc = shift || return; |
888 |
return unless ($self->{url}); |
return unless ($self->{url} && $doc->isa('Search::Estraier::Document')); |
889 |
$self->shuttle_url( $self->{url} . '/edit_doc', |
$self->shuttle_url( $self->{url} . '/edit_doc', |
890 |
'text/x-estraier-draft', |
'text/x-estraier-draft', |
891 |
$doc->dump_draft, |
$doc->dump_draft, |