Revision 27cd1e79
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| bin/mozilla/admin.pl | ||
|---|---|---|
| 440 | 440 |
} |
| 441 | 441 |
|
| 442 | 442 |
opendir TEMPLATEDIR, "$templates/." or $form->error("$templates : $!");
|
| 443 |
@all = grep({ !/^\.\.?$/ && -d "$templates/$_" } readdir(TEMPLATEDIR));
|
|
| 443 |
my @all = readdir(TEMPLATEDIR); |
|
| 444 |
my @alldir = sort(grep({ -d "$templates/$_" && !/^\.\.?$/ } @all));
|
|
| 445 |
my @allhtml = sort(grep({ -f "$templates/$_" && /\.html$/ } @all));
|
|
| 444 | 446 |
closedir TEMPLATEDIR; |
| 445 | 447 |
|
| 446 |
@allhtml = sort grep /\.html/, @all; |
|
| 447 |
@alldir = grep !/\.(html|tex|sty|odt|xml|txb)$/, @all; |
|
| 448 |
@alldir = grep !/\.(html|tex|sty|odt|xml|txb)$/, @alldir; |
|
| 448 | 449 |
@alldir = grep !/^(webpages|\.svn)$/, @alldir; |
| 449 | 450 |
|
| 450 | 451 |
@allhtml = reverse grep !/Default/, @allhtml; |
| ... | ... | |
| 473 | 474 |
} |
| 474 | 475 |
|
| 475 | 476 |
opendir CSS, "css/."; |
| 476 |
@all = grep /.*\.css$/, readdir CSS;
|
|
| 477 |
@all = sort(grep({ /\.css$/ && ($_ ne "tabcontent.css") } readdir(CSS)));
|
|
| 477 | 478 |
closedir CSS; |
| 478 | 479 |
|
| 479 | 480 |
foreach $item (@all) {
|
| ... | ... | |
| 483 | 484 |
$selectstylesheet .= qq|<option>$item\n|; |
| 484 | 485 |
} |
| 485 | 486 |
} |
| 486 |
$selectstylesheet .= "<option>\n"; |
|
| 487 | 487 |
|
| 488 | 488 |
$form->header; |
| 489 | 489 |
|
Auch abrufbar als: Unified diff
Bei der Administration bei Sprachen für neu anzulegende Vorlagen wieder alle Möglichkeiten anzeigen. Behebt Fehler durch Commit 1561.