Revision f12a5993
Von Udo Spallek vor etwa 18 Jahren hinzugefügt
bin/mozilla/admin.pl | ||
---|---|---|
}
|
||
|
||
opendir SQLDIR, "sql/." or $form - error($!);
|
||
foreach $item (sort grep /-chart\.sql/, readdir SQLDIR) {
|
||
foreach $item (sort grep /-chart\.sql\z/, readdir SQLDIR) {
|
||
next if ($item eq 'Default-chart.sql');
|
||
$item =~ s/-chart\.sql//;
|
||
push @charts,
|
Auch abrufbar als: Unified diff
Suche einschraenken auf .sql am Ende (\x)