Revision 0e71a0c8
| SL/DATEV.pm | ||
|---|---|---|
| 191 | 191 |
my $self = shift; |
| 192 | 192 |
|
| 193 | 193 |
if (@_) {
|
| 194 |
die "Invalid type, need DateTime Object" unless ref $_[0] eq 'DateTime'; |
|
| 194 | 195 |
$self->{from} = $_[0];
|
| 195 | 196 |
} |
| 196 | 197 |
|
| ... | ... | |
| 201 | 202 |
my $self = shift; |
| 202 | 203 |
|
| 203 | 204 |
if (@_) {
|
| 205 |
die "Invalid type, need DateTime Object" unless ref $_[0] eq 'DateTime'; |
|
| 204 | 206 |
$self->{to} = $_[0];
|
| 205 | 207 |
} |
| 206 | 208 |
|
Auch abrufbar als: Unified diff
DATEV etwas besser gegen SQL-Injection schützen
Übergebener Typ muss DateTime sein, der wird später dann
in einer SQL-Abfrage interpoliert