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

Diff of /bibulus/Bibulus/general.pm

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

revision 1.4 by twid, Sun Sep 21 17:37:00 2003 UTC revision 1.5 by twid, Sun Sep 21 21:05:24 2003 UTC
# Line 6  use Carp; Line 6  use Carp;
6    
7  sub populate {  sub populate {
8    my $self = shift;    my $self = shift;
9    
10      # Used by andlist():
11    $self->{LANGTEXT}{general}{and} ||= '[default:and]';    $self->{LANGTEXT}{general}{and} ||= '[default:and]';
12    
13      # Punctuation:
14    $self->{LANGTEXT}{general}{comma} ||= ', ';    $self->{LANGTEXT}{general}{comma} ||= ', ';
15    $self->{LANGTEXT}{general}{fullstop} ||= '. ';    $self->{LANGTEXT}{general}{fullstop} ||= '. ';
16    $self->{LANGTEXT}{general}{abbrsign} ||= '.' . $self->nobreakspace;    $self->{LANGTEXT}{general}{abbrsign} ||= '.' . $self->nobreakspace;
17    
18      # Used by in():
19    $self->{LANGTEXT}{general}{in} ||= '[default:in]';    $self->{LANGTEXT}{general}{in} ||= '[default:in]';
20    
21      # Used by edition():
22    $self->{LANGTEXT}{general}{edition} ||= '[default:edition]';    $self->{LANGTEXT}{general}{edition} ||= '[default:edition]';
23    
24      # Used by technicalreport():
25    $self->{LANGTEXT}{general}{technicalreport} ||= '[default:technicalreport]';    $self->{LANGTEXT}{general}{technicalreport} ||= '[default:technicalreport]';
26    
27    $self->{LANGTEXT}{general}{numberabbr} ||= '[default:numberabbr]';    $self->{LANGTEXT}{general}{numberabbr} ||= '[default:numberabbr]';
28    
29      # Used by chapter():
30    $self->{LANGTEXT}{general}{chapter} ||= '[default:chapter]';    $self->{LANGTEXT}{general}{chapter} ||= '[default:chapter]';
31    
32      # Used by thesis():
33    $self->{LANGTEXT}{general}{mastersthesis} ||= '[default:mastersthesis]';    $self->{LANGTEXT}{general}{mastersthesis} ||= '[default:mastersthesis]';
34    $self->{LANGTEXT}{general}{phdthesis} ||= '[default:phdthesis]';    $self->{LANGTEXT}{general}{phdthesis} ||= '[default:phdthesis]';
35    
36      # Used by volume():
37    $self->{LANGTEXT}{general}{volume} ||= '[default:volume]';    $self->{LANGTEXT}{general}{volume} ||= '[default:volume]';
38    $self->{LANGTEXT}{general}{of} ||= '[default:of]';    $self->{LANGTEXT}{general}{of} ||= '[default:of]';
39    
40      # Used by numberseries():
41    $self->{LANGTEXT}{general}{number} ||= '[default:number]';    $self->{LANGTEXT}{general}{number} ||= '[default:number]';
42    
43      # Needed so that we know when we've been here:
44    $self->{LANGINIT}{general} = 1;    $self->{LANGINIT}{general} = 1;
45  }  }
46    
# Line 166  sub numberseries { Line 186  sub numberseries {
186    
187    my $t = $self->{LANGTEXT}{$self->{LANG}}{number} . $self->nobreakspace . $number;    my $t = $self->{LANGTEXT}{$self->{LANG}}{number} . $self->nobreakspace . $number;
188    if ($series) {    if ($series) {
189      $t .= ' ' . $self->{LANGTEXT}{$self->{LANG}}{in} . $self->nobreakspace .$series;      $t .= ' ' . $self->in($series);
190    }    }
191    return $t;    return $t;
192  }  }

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