Revision c607fb40
Von Sven Schöling vor mehr als 9 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1125 | 1125 |
|
| 1126 | 1126 |
if ($self->{media} eq 'email') {
|
| 1127 | 1127 |
|
| 1128 |
my $mail = new Mailer;
|
|
| 1128 |
my $mail = Mailer->new;
|
|
| 1129 | 1129 |
|
| 1130 | 1130 |
map { $mail->{$_} = $self->{$_} }
|
| 1131 | 1131 |
qw(cc bcc subject message version format); |
| bin/mozilla/do.pl | ||
|---|---|---|
| 828 | 828 |
$form->{type} = "invoice";
|
| 829 | 829 |
|
| 830 | 830 |
# locale messages |
| 831 |
$main::locale = new Locale "$myconfig{countrycode}", "$script";
|
|
| 831 |
$main::locale = Locale->new("$myconfig{countrycode}", "$script");
|
|
| 832 | 832 |
$locale = $main::locale; |
| 833 | 833 |
|
| 834 | 834 |
require "bin/mozilla/$form->{script}";
|
| ... | ... | |
| 975 | 975 |
} |
| 976 | 976 |
delete $form->{form_details};
|
| 977 | 977 |
|
| 978 |
$locale = new Locale "$myconfig{countrycode}", "$script";
|
|
| 978 |
$locale = Locale->new("$myconfig{countrycode}", "$script");
|
|
| 979 | 979 |
|
| 980 | 980 |
require "bin/mozilla/$form->{script}";
|
| 981 | 981 |
|
| bin/mozilla/installationcheck.pl | ||
|---|---|---|
| 17 | 17 |
|
| 18 | 18 |
use SL::Locale; |
| 19 | 19 |
|
| 20 |
my $locale = new Locale($::lx_office_conf{system}->{language}, "installationcheck");
|
|
| 20 |
my $locale = Locale->new($::lx_office_conf{system}->{language}, "installationcheck");
|
|
| 21 | 21 |
|
| 22 | 22 |
print(qq|content-type: text/html |
| 23 | 23 |
|
| bin/mozilla/io.pl | ||
|---|---|---|
| 918 | 918 |
my $script = $form->{"script"};
|
| 919 | 919 |
$script =~ s|.*/||; |
| 920 | 920 |
$script =~ s|.pl$||; |
| 921 |
$locale = new Locale($::lx_office_conf{system}->{language}, $script);
|
|
| 921 |
$locale = Locale->new($::lx_office_conf{system}->{language}, $script);
|
|
| 922 | 922 |
|
| 923 | 923 |
map { $form->{"select$_"} = "" } ($form->{vc}, "currency");
|
| 924 | 924 |
|
| ... | ... | |
| 1247 | 1247 |
$form->error($locale->text('Select postscript or PDF!'))
|
| 1248 | 1248 |
if ($form->{format} !~ /(postscript|pdf)/);
|
| 1249 | 1249 |
|
| 1250 |
$old_form = new Form;
|
|
| 1250 |
$old_form = Form->new;
|
|
| 1251 | 1251 |
map { $old_form->{$_} = $form->{$_} } keys %$form;
|
| 1252 | 1252 |
} |
| 1253 | 1253 |
|
| bin/mozilla/is.pl | ||
|---|---|---|
| 842 | 842 |
|
| 843 | 843 |
$main::auth->assert('invoice_edit');
|
| 844 | 844 |
|
| 845 |
my $old_form = new Form;
|
|
| 845 |
my $old_form = Form->new;
|
|
| 846 | 846 |
$form->{no_redirect_after_post} = 1;
|
| 847 | 847 |
$form->{print_and_post} = 1;
|
| 848 | 848 |
&post(); |
| ... | ... | |
| 933 | 933 |
$main::auth->assert('invoice_edit');
|
| 934 | 934 |
|
| 935 | 935 |
$form->{preview} = 1;
|
| 936 |
my $old_form = new Form;
|
|
| 936 |
my $old_form = Form->new;
|
|
| 937 | 937 |
for (keys %$form) { $old_form->{$_} = $form->{$_} }
|
| 938 | 938 |
|
| 939 | 939 |
&print_form($old_form); |
| bin/mozilla/oe.pl | ||
|---|---|---|
| 1502 | 1502 |
$form->{type} = "invoice";
|
| 1503 | 1503 |
|
| 1504 | 1504 |
# locale messages |
| 1505 |
$main::locale = new Locale "$myconfig{countrycode}", "$script";
|
|
| 1505 |
$main::locale = Locale->new("$myconfig{countrycode}", "$script");
|
|
| 1506 | 1506 |
$locale = $main::locale; |
| 1507 | 1507 |
|
| 1508 | 1508 |
require "bin/mozilla/$form->{script}";
|
Auch abrufbar als: Unified diff
Indirekte Objektnotation fixen