Revision 98a28297
Von Sven Schöling vor mehr als 12 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 464 | 464 |
my $css_path = 'css'; |
| 465 | 465 |
if (my $user_style = $::myconfig{stylesheet}) {
|
| 466 | 466 |
$user_style =~ s/\.css$//; # nuke trailing .css, this is a remnand of pre 2.7.0 stylesheet handling |
| 467 |
$css_path = "$css_path/$user_style" if -d "$css_path/$user_style"; |
|
| 467 |
if (-d "$css_path/$user_style" && |
|
| 468 |
-f "$css_path/$user_style/main.css") {
|
|
| 469 |
$css_path = "$css_path/$user_style"; |
|
| 470 |
} else {
|
|
| 471 |
$css_path = "$css_path/lx-office-erp"; |
|
| 472 |
} |
|
| 468 | 473 |
} else {
|
| 469 | 474 |
$css_path = "$css_path/lx-office-erp"; |
| 470 | 475 |
} |
Auch abrufbar als: Unified diff
Fallback für stylesheet, diesmal richtig