/[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.3 by twid, Sun Sep 14 11:52:37 2003 UTC revision 1.4 by twid, Sun Sep 21 17:37:00 2003 UTC
# Line 6  use Carp; Line 6  use Carp;
6    
7  sub populate {  sub populate {
8    my $self = shift;    my $self = shift;
   $self->{LANGTEXT}{general}{mastersthesis} ||= '[default:mastersthesis]';  
9    $self->{LANGTEXT}{general}{and} ||= '[default:and]';    $self->{LANGTEXT}{general}{and} ||= '[default:and]';
10    $self->{LANGTEXT}{general}{comma} ||= ', ';    $self->{LANGTEXT}{general}{comma} ||= ', ';
11    $self->{LANGTEXT}{general}{fullstop} ||= '. ';    $self->{LANGTEXT}{general}{fullstop} ||= '. ';
# Line 16  sub populate { Line 15  sub populate {
15    $self->{LANGTEXT}{general}{technicalreport} ||= '[default:technicalreport]';    $self->{LANGTEXT}{general}{technicalreport} ||= '[default:technicalreport]';
16    $self->{LANGTEXT}{general}{numberabbr} ||= '[default:numberabbr]';    $self->{LANGTEXT}{general}{numberabbr} ||= '[default:numberabbr]';
17    $self->{LANGTEXT}{general}{chapter} ||= '[default:chapter]';    $self->{LANGTEXT}{general}{chapter} ||= '[default:chapter]';
18      $self->{LANGTEXT}{general}{mastersthesis} ||= '[default:mastersthesis]';
19    $self->{LANGTEXT}{general}{phdthesis} ||= '[default:phdthesis]';    $self->{LANGTEXT}{general}{phdthesis} ||= '[default:phdthesis]';
20    $self->{LANGTEXT}{general}{volume} ||= '[default:volume]';    $self->{LANGTEXT}{general}{volume} ||= '[default:volume]';
21    $self->{LANGTEXT}{general}{of} ||= '[default:of]';    $self->{LANGTEXT}{general}{of} ||= '[default:of]';
# Line 133  sub chapter { Line 133  sub chapter {
133      . $self->nobreakspace . $ch;      . $self->nobreakspace . $ch;
134  }  }
135    
136  sub phdthesis {  sub thesis {
137    my $self = shift;    my $self = shift;
138    return $self->{LANGTEXT}{$self->{LANG}}{phdthesis};    my $type = shift;
 }  
139    
140  sub mastersthesis {    if ($type eq 'phd') {
141    my $self = shift;      return $self->{LANGTEXT}{$self->{LANG}}{phdthesis};
142    return $self->{LANGTEXT}{$self->{LANG}}{mastersthesis};    } elsif ($type eq 'master') {
143        return $self->{LANGTEXT}{$self->{LANG}}{mastersthesis};
144      } else {
145        warn "Unknown thesis type $type\n";
146        return $type;
147      }
148  }  }
149    
150  sub volume {  sub volume {

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

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