Revision 35636cc2
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/DBUpgrade2.pm | ||
|---|---|---|
| 276 | 276 |
$main::lxdebug->leave_sub(); |
| 277 | 277 |
} |
| 278 | 278 |
|
| 279 |
sub process_file {
|
|
| 280 |
my ($self, $dbh, $filename, $version_or_control, $db_charset) = @_; |
|
| 281 |
|
|
| 282 |
if ($filename =~ m/sql$/) {
|
|
| 283 |
$self->process_query($dbh, $filename, $version_or_control, $db_charset); |
|
| 284 |
} else {
|
|
| 285 |
$self->process_perl_script($dbh, $filename, $version_or_control, $db_charset); |
|
| 286 |
} |
|
| 287 |
} |
|
| 288 |
|
|
| 279 | 289 |
sub _check_for_loops {
|
| 280 | 290 |
my ($form, $file_name, $controls, $tag, @path) = @_; |
| 281 | 291 |
|
Auch abrufbar als: Unified diff
DRY