|
Lines 53-59
BEGIN {
Link Here
|
| 53 |
setlanguagecookie getlanguagecookie pagination_bar parametrized_url |
53 |
setlanguagecookie getlanguagecookie pagination_bar parametrized_url |
| 54 |
); |
54 |
); |
| 55 |
push @EXPORT, qw( |
55 |
push @EXPORT, qw( |
| 56 |
&output_html_with_http_headers &output_ajax_with_http_headers &output_with_http_headers FormatData FormatNumber |
56 |
&output_html_with_http_headers &output_ajax_with_http_headers &output_with_http_headers FormatNumber |
| 57 |
); |
57 |
); |
| 58 |
|
58 |
|
| 59 |
} |
59 |
} |
|
Lines 93-112
if ( $cur_format eq 'FR' ) {
Link Here
|
| 93 |
return $num; |
93 |
return $num; |
| 94 |
} |
94 |
} |
| 95 |
|
95 |
|
| 96 |
=item FormatData |
|
|
| 97 |
|
| 98 |
FormatData($data_hashref) |
| 99 |
C<$data_hashref> is a ref to data to format |
| 100 |
|
| 101 |
Format dates of data those dates are assumed to contain date in their noun |
| 102 |
Could be used in order to centralize all the formatting for HTML output |
| 103 |
=cut |
| 104 |
|
| 105 |
sub FormatData{ |
| 106 |
my $data_hashref=shift; |
| 107 |
$$data_hashref{$_} = format_date( $$data_hashref{$_} ) for grep{/date/} keys (%$data_hashref); |
| 108 |
} |
| 109 |
|
| 110 |
=item pagination_bar |
96 |
=item pagination_bar |
| 111 |
|
97 |
|
| 112 |
pagination_bar($base_url, $nb_pages, $current_page, $startfrom_name) |
98 |
pagination_bar($base_url, $nb_pages, $current_page, $startfrom_name) |
| 113 |
- |
|
|