/[Search-Estraier]/trunk/Estraier.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/Estraier.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 12 by dpavlin, Wed Jan 4 19:28:30 2006 UTC revision 13 by dpavlin, Wed Jan 4 19:37:38 2006 UTC
# Line 200  sub cat_texts { Line 200  sub cat_texts {
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

Legend:
Removed from v.12  
changed lines
  Added in v.13

  ViewVC Help
Powered by ViewVC 1.1.26