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 |
|
|
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 |
} |
} |