200 |
|
|
201 |
=head2 dump_draft |
=head2 dump_draft |
202 |
|
|
203 |
|
Dump draft data from document object. |
204 |
|
|
205 |
print $doc->dump_draft; |
print $doc->dump_draft; |
206 |
|
|
207 |
=cut |
=cut |
208 |
|
|
209 |
sub dump_draft { |
sub dump_draft { |
210 |
return 'FIXME'; |
my $self = shift; |
211 |
|
my $draft; |
212 |
|
|
213 |
|
foreach my $attr_name (sort keys %{ $self->{attrs} }) { |
214 |
|
$draft .= $attr_name . '=' . $self->{attrs}->{$attr_name} . "\n"; |
215 |
|
} |
216 |
|
|
217 |
|
if ($self->{kwords}) { |
218 |
|
$draft .= '%%VECTOR'; |
219 |
|
while (my ($key, $value) = each %{ $self->{kwords} }) { |
220 |
|
$draft .= "\t$key\t$value"; |
221 |
|
} |
222 |
|
$draft .= "\n"; |
223 |
|
} |
224 |
|
|
225 |
|
$draft .= "\n"; |
226 |
|
|
227 |
|
$draft .= join("\n", @{ $self->{dtexts} }) . "\n"; |
228 |
|
$draft .= "\t" . join("\n\t", @{ $self->{htexts} }) . "\n"; |
229 |
|
|
230 |
|
return $draft; |
231 |
} |
} |
232 |
|
|
233 |
=head2 delete |
=head2 delete |