Revision 217d32f3
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 148 | 148 |
{ id => 'qty', width => 5, value => $locale->text('Qty'), display => 1, },
|
| 149 | 149 |
{ id => 'price_factor', width => 5, value => $locale->text('Price Factor'), display => !$is_delivery_order, },
|
| 150 | 150 |
{ id => 'unit', width => 5, value => $locale->text('Unit'), display => 1, },
|
| 151 |
{ id => 'license', width => 10, value => $locale->text('License'), display => 0, },
|
|
| 152 | 151 |
{ id => 'serialnr', width => 10, value => $locale->text('Serial No.'), display => 0, },
|
| 153 | 152 |
{ id => 'projectnr', width => 10, value => $locale->text('Project'), display => 0, },
|
| 154 | 153 |
{ id => 'sellprice', width => 15, value => $locale->text('Price'), display => !$is_delivery_order, },
|
| ... | ... | |
| 500 | 499 |
partsgroup formel longdescription not_discountable partnotes lastcost |
| 501 | 500 |
price_factor_id price_factor); |
| 502 | 501 |
|
| 503 |
push @new_fields, 'lizenzen' if $::lx_office_conf{features}->{lizenzen};
|
|
| 504 |
|
|
| 505 | 502 |
my $ic_cvar_configs = CVar->get_configs(module => 'IC'); |
| 506 | 503 |
push @new_fields, map { "ic_cvar_$_->{name}" } @{ $ic_cvar_configs };
|
| 507 | 504 |
|
| ... | ... | |
| 1795 | 1792 |
$main::lxdebug->leave_sub(); |
| 1796 | 1793 |
} |
| 1797 | 1794 |
|
| 1798 |
sub new_license {
|
|
| 1799 |
$main::lxdebug->enter_sub(); |
|
| 1800 |
|
|
| 1801 |
my $form = $main::form; |
|
| 1802 |
|
|
| 1803 |
_check_io_auth(); |
|
| 1804 |
|
|
| 1805 |
my $row = shift; |
|
| 1806 |
|
|
| 1807 |
# change callback |
|
| 1808 |
$form->{old_callback} = $form->escape($form->{callback}, 1);
|
|
| 1809 |
$form->{callback} = $form->escape("$form->{script}?action=display_form", 1);
|
|
| 1810 |
$form->{old_callback} = $form->escape($form->{old_callback}, 1);
|
|
| 1811 |
|
|
| 1812 |
# delete action |
|
| 1813 |
delete $form->{action};
|
|
| 1814 |
my $customer = $form->{customer};
|
|
| 1815 |
map { $form->{"old_$_"} = $form->{"${_}_$row"} } qw(partnumber description);
|
|
| 1816 |
|
|
| 1817 |
# save all other form variables in a previousform variable |
|
| 1818 |
$form->{row} = $row;
|
|
| 1819 |
my $previousform; |
|
| 1820 |
foreach my $key (keys %$form) {
|
|
| 1821 |
next if (($key eq 'login') || ($key eq 'password') || ('' ne ref $form->{$key}));
|
|
| 1822 |
|
|
| 1823 |
# escape ampersands |
|
| 1824 |
$form->{$key} =~ s/&/%26/g;
|
|
| 1825 |
$previousform .= qq|$key=$form->{$key}&|;
|
|
| 1826 |
} |
|
| 1827 |
chop $previousform; |
|
| 1828 |
$previousform = $form->escape($previousform, 1); |
|
| 1829 |
|
|
| 1830 |
$form->{script} = "licenses.pl";
|
|
| 1831 |
|
|
| 1832 |
map { $form->{$_} = $form->{"old_$_"} } qw(partnumber description);
|
|
| 1833 |
map { $form->{$_} = $form->escape($form->{$_}, 1) }
|
|
| 1834 |
qw(partnumber description); |
|
| 1835 |
$form->{callback} =
|
|
| 1836 |
qq|$form->{script}?action=add&vc=$form->{db}&$form->{db}_id=$form->{id}&$form->{db}=$form->{name}&type=$form->{type}&customer=$customer&partnumber=$form->{partnumber}&description=$form->{description}&previousform="$previousform"&initial=1|;
|
|
| 1837 |
$form->redirect; |
|
| 1838 |
|
|
| 1839 |
$main::lxdebug->leave_sub(); |
|
| 1840 |
} |
|
| 1841 |
|
|
| 1842 | 1795 |
sub relink_accounts {
|
| 1843 | 1796 |
$main::lxdebug->enter_sub(); |
| 1844 | 1797 |
|
Auch abrufbar als: Unified diff
Feature "Lizenzen" entfernt
Hat grob gesehen niemand benutzt, es funktionierte nicht, und wurde
seit gefühlten 20 Jahren nicht weiter entwickelt.