/[papo]/papo/zot/Zot/Table.pm
ViewVC logotype

Diff of /papo/zot/Zot/Table.pm

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

revision 1.4 by jlenton, Wed Jun 4 17:25:23 2003 UTC revision 1.5 by jlenton, Mon Aug 11 22:33:47 2003 UTC
# Line 22  sub initialize Line 22  sub initialize
22      return $self;      return $self;
23  }  }
24    
25    sub comment
26    {
27        my $self = shift;
28        my $which = shift;
29        my $comment = shift;
30    
31        if (defined $comment)
32        {
33            $self->{'COMMENT'}->{$which} = $comment;
34        }
35    
36        return $self->{'COMMENT'}->{$which};
37    }
38    
39  sub name  sub name
40  {  {
41      my $self = shift;      my $self = shift;

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26