/[bibulus]/bibulus/Bibulus.pm
ViewVC logotype

Diff of /bibulus/Bibulus.pm

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

revision 1.5 by twid, Wed Apr 9 23:27:48 2003 UTC revision 1.6 by twid, Fri Apr 18 23:13:31 2003 UTC
# Line 48  sub style { Line 48  sub style {
48    my $self = shift;    my $self = shift;
49    my %style = @_;    my %style = @_;
50    $self->{STYLE} = {%style};    $self->{STYLE} = {%style};
51      $self->initlang; # the language strings loaded depend on the style params
52    
53      # here there should be a possible to override language strings
54    }
55    
56    # Language files are read for each object so that individual fields
57    # can be easily overridden.
58    sub initlang {
59      my $self = shift;
60      do 'lang.pl';  # auto-generated from lang/*.dat
61  }  }
62    
63  # it is possible to call this multiple times  # it is possible to call this multiple times

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

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