Revision a11d7a85
Von Jan Büren vor mehr als 11 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 1313 | 1313 |
|
| 1314 | 1314 |
my $dbh = $form->dbconnect($myconfig); |
| 1315 | 1315 |
|
| 1316 |
my $query = qq|SELECT closedto, revtrans FROM defaults|; |
|
| 1316 |
my $query = qq|SELECT closedto, max_future_booking_interval, revtrans FROM defaults|;
|
|
| 1317 | 1317 |
my $sth = $dbh->prepare($query); |
| 1318 | 1318 |
$sth->execute || $form->dberror($query); |
| 1319 | 1319 |
|
| 1320 |
($form->{closedto}, $form->{revtrans}) = $sth->fetchrow_array;
|
|
| 1320 |
($form->{closedto}, $form->{max_future_booking_interval}, $form->{revtrans}) = $sth->fetchrow_array;
|
|
| 1321 | 1321 |
|
| 1322 | 1322 |
$sth->finish; |
| 1323 | 1323 |
|
| ... | ... | |
| 1339 | 1339 |
$query = qq|UPDATE defaults SET closedto = NULL, revtrans = '1'|; |
| 1340 | 1340 |
|
| 1341 | 1341 |
} elsif ($form->{closedto}) {
|
| 1342 |
$query = qq|UPDATE defaults SET closedto = ?, revtrans = '0'|; |
|
| 1343 |
@values = (conv_date($form->{closedto}));
|
|
| 1342 |
$query = qq|UPDATE defaults SET closedto = ?, max_future_booking_interval = ?, revtrans = '0'|;
|
|
| 1343 |
@values = (conv_date($form->{closedto}), conv_date($form->{max_future_booking_interval}));
|
|
| 1344 | 1344 |
|
| 1345 | 1345 |
} else {
|
| 1346 | 1346 |
$query = qq|UPDATE defaults SET closedto = NULL, revtrans = '0'|; |
Auch abrufbar als: Unified diff
Implementiert Ticket 1897 Zukunftsbuchungen vermeiden
Die Prüfungen für den Zeitraum in allen Belegmasken umgesetzt.
Zusammen mit Commit f552f878c85828a408d7f32afbbc1e714270b85f wird
das Ticket 1897 geschlossen