| 321 | | my @categories = map { { name => $_, |
| 322 | | url => $args{wiki}->node_exists( "Category_" . $formatter->node_name_to_node_param($_)) ? "$script_name?Category_" |
| 323 | | . uri_escape($formatter->node_name_to_node_param($_)) : "" } } @catlist; |
| 324 | | |
| 325 | | my @locales = map { { name => $_, |
| 326 | | url => $args{wiki}->node_exists( "Locale_" . $formatter->node_name_to_node_param($_)) ? "$script_name?Locale_" |
| 327 | | . uri_escape($formatter->node_name_to_node_param($_)) : "" } } @loclist; |
| | 322 | # Some stuff here is copied from OpenGuides->_autoCreateCategoryLocale |
| | 323 | # - we should rationalise this. |
| | 324 | my @categories = map { |
| | 325 | my $param = $formatter->node_name_to_node_param( $_ ); |
| | 326 | my $name = $_; |
| | 327 | $name =~ s/(.*)/\u$1/; |
| | 328 | $name = $wiki->formatter->_do_freeupper( "Category $name" ); |
| | 329 | { |
| | 330 | name => $_, |
| | 331 | url => $wiki->node_exists( $name ) |
| | 332 | ? "$script_name?Category_" . uri_escape( $param ) |
| | 333 | : "", |
| | 334 | }; |
| | 335 | } @catlist; |
| | 336 | |
| | 337 | my @locales = map { |
| | 338 | my $param = $formatter->node_name_to_node_param( $_ ); |
| | 339 | my $name = $_; |
| | 340 | $name =~ s/(.*)/\u$1/; |
| | 341 | $name = $wiki->formatter->_do_freeupper( "Locale $name" ); |
| | 342 | { |
| | 343 | name => $_, |
| | 344 | url => $wiki->node_exists( $name ) |
| | 345 | ? "$script_name?Locale_" . uri_escape( $param ) |
| | 346 | : "", |
| | 347 | }; |
| | 348 | } @loclist; |
