Revision 4a395995
Von Sven Schöling vor etwa 7 Jahren hinzugefügt
| SL/GoBD.pm | ||
|---|---|---|
| 19 | 19 |
use SL::DB::Helper::ALL; # since we work on meta data, we need everything |
| 20 | 20 |
use SL::DB::Helper::Mappings; |
| 21 | 21 |
use SL::Locale::String qw(t8); |
| 22 |
use SL::Version; |
|
| 22 | 23 |
|
| 23 | 24 |
use Rose::Object::MakeMethods::Generic ( |
| 24 | 25 |
scalar => [ qw(from to writer company location) ], |
| ... | ... | |
| 579 | 580 |
|
| 580 | 581 |
sub make_comment {
|
| 581 | 582 |
my $gobd_version = API_VERSION(); |
| 582 |
my $kivi_version = $::form->read_version;
|
|
| 583 |
my $kivi_version = SL::Version->get_version;
|
|
| 583 | 584 |
my $person = $::myconfig{name};
|
| 584 | 585 |
my $contact = join ', ', |
| 585 | 586 |
(t8("Email") . ": $::myconfig{email}" ) x!! $::myconfig{email},
|
Auch abrufbar als: Unified diff
$::form->read_version auf SL::Version->get_version umgestellt