1# $Id: czech.perl,v 1.1 1998/08/25 02:11:23 RRM Exp $
2#
3# czech.perl for czech babel, inspired heavily by german.perl
4# by Ross Moore <ross@mpce.mq.edu.au>
5
6
7package czech;
8
9print " [czech]";
10
11sub main'czech_translation { @_[0] }
12
13
14
15package main;
16
17if (defined &addto_languages) { &addto_languages('czech') };
18
19&do_require_extension ('latin2');
20
21sub czech_titles {
22    $toc_title = "Obsah";
23    $lof_title = "Seznam obr&aacute;zk&uring;";
24    $lot_title = "Seznam tabulek";
25    $idx_title = "Index";
26    $ref_title = "Reference";
27    $bib_title = "Literatura";
28    $abs_title = "Abstrakt";
29    $app_title = "Dodatek";
30    $pre_title = "P&rcaron;edmluva";
31##    $foot_title = "";
32##    $thm_title = "";
33    $fig_name = "Obr&aacute;zek";
34    $tab_name = "Tabulka";
35    $prf_name = "D&uring;kaz";
36    $page_name = "Strana";
37  #  Sectioning-level titles
38    $part_name = "&Ccaron;&aacute;st";
39    $chapter_name = "Kapitola";
40#    $section_name = "";
41#    $subsection_name = "";
42#    $subsubsection_name = "";
43#    $paragraph_name = "";
44  #  Misc. strings
45##    $child_name = "";
46##    $info_title = "";
47    $also_name = "viz tak&eacute;";
48    $see_name = "viz";
49  #  names in navigation panels
50##    $next_name = "";
51##    $up_name = "";
52##    $prev_name = "";
53##    $group_name = "";
54  #  mail fields
55    $encl_name = "P&uring;&iacute;loha";
56    $headto_name = "Komu";
57    $cc_name = "Na v&ecaron;dom&iacute;";
58
59    @Month = ('', 'ledna', '&uacute;unora', 'b&rcaron;ezna', 'dubna',
60	'kv&ecaron;tna', '&ccaron;ervna', '&ccaron;ervence', 'srpna',
61	'z&aacute;&rcaron;&iacute;', '&rcaron;&iacute;jna', 'listopadu', 'prosince');
62
63#    $GENERIC_WORDS = "";
64}
65
66
67sub czech_today {
68    local($today) = &get_date();
69    $today =~ s|(\d+)/0?(\d+)/|$2. $Month[$1] |;
70    join('',$today,$_[0]);
71}
72
73
74
75# use'em
76&czech_titles;
77$default_language = 'czech';
78$TITLES_LANGUAGE = 'czech';
79$czech_encoding = 'iso-8859-2';
80
81# $Log: czech.perl,v $
82# Revision 1.1  1998/08/25 02:11:23  RRM
83# 	Babel language support
84#
85#
86
871;
88