Branch: Tag:

1999-04-12

1999-04-12 15:23:35 by Mirar (Pontus Hagland) <pike@sort.mirar.org>

Austrian.pmod by Martin Baehr

Rev: lib/modules/Calendar.pmod/Austrian.pmod:1.1

1: + // by Martin Baehr <mbaehr@email.archlab.tuwien.ac.at>    -  + inherit Calendar.ISO:ISO; +  + void create() + { +  month_names= +  ({"jänner","feber","märz","april","mai","juni","juli","august", +  "september","oktober","november","dezember"}); +  +  week_day_names= +  ({"montag","dienstag","mittwoch","donnerstag", +  "freitag","samstag","sonntag"}); + } +  + class Week + { +  inherit ISO::Week; +  +  string name() +  { +  return "w"+(string)this->number(); +  } + } +  + class Year + { +  inherit ISO::Year; +  +  string name() +  { +  if (this->number()<=0) +  return (string)(1-this->number())+" v. Chr."; +  return (string)this->number(); +  } + }   Newline at end of file added.