#===================================================================== # LX-Office ERP # Copyright (C) 2004 # Based on SQL-Ledger Version 2.1.9 # Web http://www.lx-office.org # #===================================================================== # SQL-Ledger Accounting # Copyright (c) 2002 # # Author: Moritz Bunkus # Email: m.bunkus@linet-services.de # Web: http://www.linet-services.de/ # # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. #====================================================================== # # Software license module # #====================================================================== use SL::IC; use SL::IS; use SL::LICENSES; require "bin/mozilla/common.pl"; use strict; sub quot { $main::lxdebug->enter_sub(); $_[0] =~ s/\"/\"/g; $main::lxdebug->leave_sub(); return $_[0]; } sub form_header { $main::lxdebug->enter_sub(); $main::auth->assert('license_edit'); my $form = $main::form; $form->{jsscript} = 1; $form->header(); print( qq|
{script}>|); $main::lxdebug->leave_sub(); } sub form_footer { $main::lxdebug->enter_sub(); $main::auth->assert('license_edit'); my $form = $main::form; my @items = qw(old_callback previousform); push @items, @{ $form->{"hidden"} } if ref $form->{hidden} eq 'ARRAY'; map({ print("{$_}) . "\">\n" ); } @items); print( qq|
|); $main::lxdebug->leave_sub(); } sub set_std_hidden { $main::lxdebug->enter_sub(); my $form = $main::form; $form->{"hidden"} = ["comment", "validuntil", "quantity", @_]; $main::lxdebug->leave_sub(); } sub print_part_selection { $main::lxdebug->enter_sub(); $main::auth->assert('license_edit'); my $form = $main::form; my $locale = $main::locale; form_header(); set_std_hidden("business"); print( qq| |); my $j = 1; for (my $i = 1; $i <= scalar(@{ $form->{"parts"} }); $i++) { my %p = %{ $form->{"parts"}->[$i - 1] }; my $checked; if ($i == 1) { $checked = "checked"; } else { $checked = ""; } print( qq||); $j = ($j + 1) % 2; } print( qq|
| . $locale->text('Select from one of the items below') . qq|
  | . $locale->text('Part Number') . qq| | . $locale->text('Description') . qq|
| . $p{"partnumber"} . qq| | . $p{"description"} . qq|
text('Continue') . qq|>|); form_footer(); $main::lxdebug->leave_sub(); } sub print_customer_selection { $main::lxdebug->enter_sub(); $main::auth->assert('license_edit'); my $form = $main::form; my $locale = $main::locale; form_header(); set_std_hidden("parts_id", "partnumber", "description"); print( qq| |); print(qq||); my $j = 1; for (my $i = 1; $i <= scalar(@{ $form->{"all_customers"} }); $i++) { my %c = %{ $form->{"all_customers"}->[$i - 1] }; my $checked; if ($i == 1) { $checked = "checked"; } else { $checked = ""; } print( qq||); $j = ($j + 1) % 2; } print( qq|
| . $locale->text('Select from one of the names below') . qq|
  | . $locale->text('Customer Number') . qq| | . $locale->text('Company Name') . qq| | . $locale->text('Street') . qq| | . $locale->text('Zipcode') . qq| | . $locale->text('City') . qq|
$c{"customernumber"} $c{"name"} $c{"street"} $c{"zipcode"} $c{"city"}
text('Continue') . qq|>|); form_footer(); $main::lxdebug->leave_sub(); } sub print_license_form { $main::lxdebug->enter_sub(); $main::auth->assert('license_edit'); my $form = $main::form; my %myconfig = %main::myconfig; my $locale = $main::locale; print( qq|
| . $locale->text("Add License") . qq|
|); if ($form->{"all_customer"}) { print(qq||); } else { print( qq||); } print( qq|
| . $locale->text('Part Number') . qq| {"partnumber"}) . qq|\">
| . $locale->text('Description') . qq| {"description"}) . qq|\">
| . $locale->text('Company Name') . qq|{"customer_name"}) . qq|\">
| . $locale->text('Comment') . qq| {"comment"}) . qq|\">
| . $locale->text('Valid until') . qq| {"validuntil"}) . qq|\">
| . $locale->text('Quantity') . qq| {"quantity"}) . qq|\">
| . $locale->text('License key') . qq| {"licensenumber"}) . qq|\">
| . $locale->text('Own Product') . qq|
text('Update') . qq|\"> |); if ($_[0]) { print( qq|  text('Save') . qq|\">\n|); } print( qq| | . $form->write_trigger(\%myconfig, 1, "validuntil", "BL", "trigger_validuntil")); $main::lxdebug->leave_sub(); } sub add { $main::lxdebug->enter_sub(); $main::auth->assert('license_edit'); my $form = $main::form; my $locale = $main::locale; if (!$main::lizenzen) { $form->error( $locale->text( 'The licensing module has been deactivated in lx-erp.conf.') ); } $form->{"initial"} = 1; do_add(); $main::lxdebug->leave_sub(); } sub do_add { $main::lxdebug->enter_sub(); $main::auth->assert('license_edit'); my $form = $main::form; my %myconfig = %main::myconfig; $form->{"hidden"} = ["parts_id"]; form_header(); if ($form->{"ndx"}) { my $ndx = $form->{"ndx"}; foreach (keys(%{$form})) { next unless (/^new_.*_${ndx}$/); s/^new_//; s/_${ndx}$//; $form->{$_} = $form->{"new_${_}_${ndx}"}; } } if ($form->{"customer"}) { $form->{"customer_id"} = (split(/--/, $form->{"customer"}))[1]; } if ($form->{"customer_name"}) { LICENSES->get_customers(\%myconfig, $form); if (scalar(@{ $form->{"all_customers"} }) == 1) { my %c = %{ $form->{"all_customers"}->[0] }; $form->{"customer_id"} = $c{"id"}; $form->{"customer_name"} = $c{"name"}; } elsif (scalar(@{ $form->{"all_customers"} }) == 0) { $form->{"customer_name"} = ""; delete($form->{"customer_id"}); } else { print_customer_selection(); return; } } elsif (defined($form->{"customer_name"})) { delete($form->{"customer_id"}); } if ($form->{"partnumber"} || $form->{"description"}) { $form->{"sort"} = "p.partnumber"; $form->{searchitems} = "part"; IC->all_parts(\%myconfig, $form); if (scalar(@{ $form->{"parts"} }) == 1) { map({ $form->{$_} = $form->{"parts"}->[0]->{$_}; } ("partnumber", "description")); $form->{"parts_id"} = $form->{"parts"}->[0]->{"id"}; } elsif (scalar(@{ $form->{"parts"} }) == 0) { map({ $form->{$_} = ""; }("partnumber", "description", "parts_id")); } else { print_part_selection(); return; } } else { delete($form->{"parts_id"}); } $form->all_vc(\%myconfig, "customer", ""); print_license_form($form->{"parts_id"} && $form->{"customer_id"}); form_footer(); $main::lxdebug->leave_sub(); } sub update { $main::lxdebug->enter_sub(); $main::auth->assert('license_edit'); my $form = $main::form; do_add(); $main::lxdebug->leave_sub(); } sub continue { $main::lxdebug->enter_sub(); my $form = $main::form; call_sub($form->{"nextsub"}); $main::lxdebug->leave_sub(); } sub save { $main::lxdebug->enter_sub(); $main::auth->assert('license_edit'); my $form = $main::form; my %myconfig = %main::myconfig; my $locale = $main::locale; ($form->{customername}, $form->{customer_id}) = split /--/, $form->{customer}; $form->isblank("customer", $locale->text('Customer missing!')); if ( $form->{quantity} eq "" || $form->{quantity} !~ /^[0-9]*$/ || $form->{quantity} < 1) { $form->error($locale->text('Please enter a number of licenses.')); } if (!$form->{licensenumber} || $form->{licensenumber} eq "") { $form->error($locale->text('Please enter a license key.')); } my $rc = LICENSES->save_license(\%myconfig, \%$form); # load previous variables if ($form->{previousform}) { # save the new form variables before splitting previousform my %newform; map { $newform{$_} = $form->{$_} } keys %$form; my $previousform = $form->unescape($form->{previousform}); # don't trample on previous variables map { delete $form->{$_} } keys %newform; # now take it apart and restore original values foreach my $item (split /&/, $previousform) { my ($key, $value) = split /=/, $item, 2; $value =~ s/%26/&/g; $form->{$key} = $value; } $form->{"lizenzen_$form->{row}"} = ""; $form->{rowcount}--; delete $form->{action}; # restore original callback my $callback = $form->unescape($form->{callback}); $form->{callback} = $form->unescape($form->{old_callback}); delete $form->{old_callback}; # put callback together foreach my $key (keys %$form) { next if (($key eq 'login') || ($key eq 'password') || ('' ne ref $form->{$key})); # do single escape for Apache 2.0 my $value = $form->escape($form->{$key}, 1); $callback .= qq|&$key=$value|; } $form->{callback} = $callback; # redirect $form->redirect; } else { form_header(); print("Die Lizenz wurde gespeichert.\n"); form_footer(); } $main::lxdebug->leave_sub(); } sub search { $main::lxdebug->enter_sub(); $main::auth->assert('license_edit'); my $form = $main::form; my $locale = $main::locale; if (!$main::lizenzen) { $form->error( $locale->text( 'The licensing module has been deactivated in lx-erp.conf.') ); } form_header(); print( qq|
| . $locale->text("Licenses") . qq|
| . $locale->text('Part Number') . qq|
| . $locale->text('Description') . qq|
| . $locale->text('Company Name') . qq|
| . $locale->text('Include in Report') . qq| | . $locale->text('All') . qq| | . $locale->text('Expiring in x month(s)') . qq| 
| . $locale->text('Expired licenses') . qq|
text('Continue') . qq|\"> |); form_footer(); $main::lxdebug->leave_sub(); } sub do_search { $main::lxdebug->enter_sub(); $main::auth->assert('license_edit'); my $form = $main::form; my %myconfig = %main::myconfig; my $locale = $main::locale; LICENSES->search(\%myconfig, $form); my $callback = ""; map { $callback .= "\&${_}=" . $form->escape($form->{$_}, 1) } qw(db partnumber description customer_name all expiring_in show_expired); my $details = $form->{"script"} . "?action=details" . $callback . "\&id="; my $invdetails = "is.pl?action=edit" . $callback . "\&id="; $callback = $form->{"script"} . "?action=do_search" . $callback; $form->{"sortby"} = "validuntil" unless ($form->{"sortby"}); $form->{"sortasc"} *= 1; my %columns; foreach (("partnumber", "description", "name", "validuntil", "invnumber")) { $columns{$_} = $callback . "\&sortby=${_}\&sortasc="; if ($form->{"sortby"} eq $_) { $columns{$_} .= (1 - $form->{"sortasc"}); } else { $columns{$_} .= "1"; } } form_header(); print( qq| |); if (scalar(@{ $form->{"licenses"} }) == 0) { print(qq|
| . $locale->text("Licenses") . qq|
| . $locale->text( "No licenses were found that match the search criteria.") . qq||); exit(0); } print( qq| |); my $j = 1; for (my $i = 0; $i < scalar(@{ $form->{"licenses"} }); $i++) { my $ref = $form->{"licenses"}->[$i]; print( qq| |); $j = ($j + 1) % 2; } $form->{"num_licenses"} = scalar(@{ $form->{"licenses"} }); push(@{ $form->{"hidden"} }, "num_licenses"); print( qq|
" . $locale->text('Part Number') . qq| " . $locale->text('Description') . qq| " . $locale->text('Company Name') . qq| " . $locale->text('Valid until') . qq| " . $locale->text('Invoice Number') . qq|
{"id"} . qq| {"id"}\">$ref->{"partnumber"} {"id"}\">$ref->{"description"} {"id"}\">$ref->{"name"} {"id"}\">$ref->{"validuntil"} | . ( $ref->{"invnumber"} ? qq|{"invnumber"}\">$ref->{"invnumber"}| : qq| | ) . qq|

text("Add") . qq|\"> |); form_footer(); $main::lxdebug->leave_sub(); } sub details { $main::lxdebug->enter_sub(); $main::auth->assert('license_edit'); my $form = $main::form; my %myconfig = %main::myconfig; my $locale = $main::locale; LICENSES->get_license(\%myconfig, $form); map( { $form->{$_} = $form->{"license"}->{$_}; } keys(%{ $form->{"license"} })); form_header(); print( qq|
| . $locale->text("View License") . qq|
| . $locale->text('Part Number') . qq| $form->{"partnumber"}
| . $locale->text('Description') . qq| $form->{"description"}
| . $locale->text('Company Name') . qq| $form->{"name"}
| . $locale->text('Comment') . qq| $form->{"comment"}
| . $locale->text('Valid until') . qq| $form->{"validuntil"}
| . $locale->text('Quantity') . qq| $form->{"quantity"}
| . $locale->text('License key') . qq| $form->{"licensenumber"}

text("Add") . qq|\"> |); form_footer(); $main::lxdebug->leave_sub(); } 1;