Parent Directory | Revision Log | Patch
revision 91 by dpavlin, Thu Jan 26 01:53:58 2006 UTC | revision 93 by dpavlin, Sat Jan 28 16:43:45 2006 UTC | |
---|---|---|
# | Line 320 sub dump_draft { | Line 320 sub dump_draft { |
320 | my $draft; | my $draft; |
321 | ||
322 | foreach my $attr_name (sort keys %{ $self->{attrs} }) { | foreach my $attr_name (sort keys %{ $self->{attrs} }) { |
323 | $draft .= $attr_name . '=' . $self->{attrs}->{$attr_name} . "\n"; | next unless(my $v = $self->{attrs}->{$attr_name}); |
324 | $draft .= $attr_name . '=' . $v . "\n"; | |
325 | } | } |
326 | ||
327 | if ($self->{kwords}) { | if ($self->{kwords}) { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |