Prozentangaben in der Steuerbeschreibung wieder hinzugefuegt
[kivitendo-erp.git] / bin / mozilla / licenses.pl
1 #=====================================================================
2 # LX-Office ERP
3 # Copyright (C) 2004
4 # Based on SQL-Ledger Version 2.1.9
5 # Web http://www.lx-office.org
6 #
7 #=====================================================================
8 # SQL-Ledger Accounting
9 # Copyright (c) 2002
10 #
11 #  Author: Moritz Bunkus
12 #   Email: m.bunkus@linet-services.de
13 #     Web: http://www.linet-services.de/
14 #
15 #
16 # This program is free software; you can redistribute it and/or modify
17 # it under the terms of the GNU General Public License as published by
18 # the Free Software Foundation; either version 2 of the License, or
19 # (at your option) any later version.
20 #
21 # This program is distributed in the hope that it will be useful,
22 # but WITHOUT ANY WARRANTY; without even the implied warranty of
23 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
24 # GNU General Public License for more details.
25 # You should have received a copy of the GNU General Public License
26 # along with this program; if not, write to the Free Software
27 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
28 #======================================================================
29 #
30 # Software license module
31 #
32 #======================================================================
33
34 use SL::IC;
35 use SL::IS;
36 use SL::LICENSES;
37
38 sub quot {
39   $lxdebug->enter_sub();
40   $_[0] =~ s/\"/\"/g;
41   $lxdebug->leave_sub();
42   return $_[0];
43 }
44
45 sub form_header {
46   $lxdebug->enter_sub();
47   $form->{jsscript} = 1;
48   $form->header();
49
50   print(
51     qq|<body>
52
53 <form method=post action=$form->{script}>|);
54   $lxdebug->leave_sub();
55 }
56
57 sub form_footer {
58   $lxdebug->enter_sub();
59   my @items = ("path", "login", "password", "old_callback", "previousform");
60   push(@items, @{ $form->{"hidden"} });
61   map({
62       print("<input type=hidden name=$_ value=\"" . quot($form->{$_}) . "\">\n"
63       );
64   } @items);
65
66   print(
67     qq|</form>
68 </body>
69 </html>
70 |);
71   $lxdebug->leave_sub();
72 }
73
74 sub set_std_hidden {
75   $lxdebug->enter_sub();
76   $form->{"hidden"} = ["comment", "validuntil", "quantity", @_];
77   $lxdebug->leave_sub();
78 }
79
80 sub print_part_selection {
81   $lxdebug->enter_sub();
82   form_header();
83   set_std_hidden("business");
84
85   print(
86     qq|
87
88 <table width=100%>
89   <tr>
90     <th class=listtop colspan=5>|
91       . $locale->text('Select from one of the items below') . qq|</th>
92   </tr>
93   <tr height="5"></tr>
94   <tr class=listheading>
95     <th>&nbsp;</th>
96     <th class=listheading>| . $locale->text('Part Number') . qq|</th>
97     <th class=listheading>| . $locale->text('Description') . qq|</th>
98   </tr>
99         |);
100
101   $j = 1;
102   for ($i = 1; $i <= scalar(@{ $form->{"parts"} }); $i++) {
103     %p = %{ $form->{"parts"}->[$i - 1] };
104     if ($i == 1) {
105       $checked = "checked";
106     } else {
107       $checked = "";
108     }
109
110     print(
111       qq|<tr class=listrow$j>
112       <td><input name=ndx class=radio type=radio value=$i $checked></td>
113       <td><input name=\"new_partnumber_$i\" type=hidden value=\"|
114         . $p{"partnumber"} . qq|\">| . $p{"partnumber"} . qq|</td>
115       <td><input name=\"new_description_$i\" type=hidden value=\"|
116         . $p{"description"} . qq|\">| . $p{"description"} . qq|</td>
117       <input name=\"new_parts_id_$i\" type=hidden value=\"| . $p{"id"} . qq|\">
118     </tr>|);
119
120     $j = ($j + 1) % 2;
121   }
122
123   print(
124     qq|<tr><td colspan=3><hr size=3 noshade></td></tr>
125 </table>
126
127 <input type=hidden name=nextsub value=\"do_add\">
128 <input type=submit name=action value=| . $locale->text('Continue') . qq|>|);
129
130   form_footer();
131   $lxdebug->leave_sub();
132 }
133
134 sub print_customer_selection {
135   $lxdebug->enter_sub();
136   form_header();
137   set_std_hidden("parts_id", "partnumber", "description");
138
139   print(
140     qq|
141 <table width=100%>
142   <tr>
143     <th class=listtop colspan=5>|
144       . $locale->text('Select from one of the names below') . qq|</th>
145   </tr>
146   <tr height="5"></tr>
147   <tr class=listheading>
148     <th>&nbsp;</th>
149     <th class=listheading>| . $locale->text('Customer Number') . qq|</th>
150     <th class=listheading>| . $locale->text('Company Name') . qq|</th>
151     <th class=listheading>| . $locale->text('Street') . qq|</th>
152     <th class=listheading>| . $locale->text('Zipcode') . qq|</th>
153     <th class=listheading>| . $locale->text('City') . qq|</th>
154   </tr>
155         |);
156
157   print(qq|<tr><td colspan=6><hr size=3 noshade></td></tr>|);
158
159   $j = 1;
160   for ($i = 1; $i <= scalar(@{ $form->{"all_customers"} }); $i++) {
161     %c = %{ $form->{"all_customers"}->[$i - 1] };
162     if ($i == 1) {
163       $checked = "checked";
164     } else {
165       $checked = "";
166     }
167
168     print(
169       qq|<tr class=listrow$j>
170           <td><input name=ndx class=radio type=radio value=$i $checked></td>
171           <td><input name=\"new_customer_id_$i\" type=hidden value=\"|
172         . $c{"id"} . qq|\">$c{"customernumber"}</td>
173           <td><input name=\"new_customer_name_$i\" type=hidden value=\"|
174         . $c{"name"} . qq|\">$c{"name"}</td>
175           <td>$c{"street"}</td>
176           <td>$c{"zipcode"}</td>
177           <td>$c{"city"}</td>
178           </tr>|);
179
180     $j = ($j + 1) % 2;
181   }
182
183   print(
184     qq|
185 </table>
186
187 <input type=hidden name=nextsub value=\"do_add\">
188 <input type=submit name=action value=| . $locale->text('Continue') . qq|>|);
189
190   form_footer();
191   $lxdebug->leave_sub();
192 }
193
194 sub print_license_form {
195   $lxdebug->enter_sub();
196   print(
197     qq|
198 <table width=100%>
199   <tr>
200     <th class=listtop>| . $locale->text("Add License") . qq|</th>
201   </tr>
202   <tr>
203     <table>
204       <tr>
205         <th align=right>| . $locale->text('Part Number') . qq|</th>
206         <td><input name=partnumber value=\"|
207       . quot($form->{"partnumber"}) . qq|\"></td>
208       </tr>
209       <tr>
210         <th align=right>| . $locale->text('Description') . qq|</th>
211         <td><input name=description value=\"|
212       . quot($form->{"description"}) . qq|\"></td>
213       </tr>
214       <tr>
215         <th align=right>| . $locale->text('Company Name') . qq|</th>|);
216   if ($form->{"all_customer"}) {
217     print(qq|<td><select name=\"customer\">|);
218     foreach (@{ $form->{"all_customer"} }) {
219       if (!defined($form->{"customer_id"})) {
220         $form->{"customer_id"} = $_->{"id"};
221       }
222       $selected = ($_->{"id"} * 1) == $form->{"customer_id"} ? "selected" : "";
223       print(qq|<option $selected> $_->{"name"}--$_->{"id"}</option>|);
224     }
225     print(qq|</select></td>|);
226   } else {
227     print(  qq|<td><input name=customer_name value=\"|
228           . quot($form->{"customer_name"})
229           . qq|\"></td>|);
230   }
231   print(
232     qq|</tr>
233       <tr>
234         <th align=right>| . $locale->text('Comment') . qq|</th>
235         <td><input name=comment value=\"|
236       . quot($form->{"comment"}) . qq|\"></td>
237       </tr>
238       <tr>
239         <th align=right>| . $locale->text('Valid until') . qq|</th>
240         <td><input id=validuntil name=validuntil value=\"|
241       . quot($form->{"validuntil"}) . qq|\">
242          <input type="button" name="validuntil" id="trigger_validuntil" value="?"></td>
243       </tr>
244       <tr>
245         <th align=right>| . $locale->text('Quantity') . qq|</th>
246         <td><input name=quantity value=\"|
247       . quot($form->{"quantity"}) . qq|\"></td>
248       </tr>
249       <tr>
250         <th align=right>| . $locale->text('License key') . qq|</th>
251         <td><input name=licensenumber value=\"|
252       . quot($form->{"licensenumber"}) . qq|\"></td>
253       </tr>
254       <tr>
255         <th align=right>| . $locale->text('Own Product') . qq|</th>
256         <td><input type=checkbox name=own_product value=1 checked></td>
257       </tr>
258     </table>
259
260     <input type=submit name=action value=\"| . $locale->text('Update') . qq|\">
261           |);
262
263   if ($_[0]) {
264     print(
265       qq|&nbsp;
266           <input type=submit name=action value=\"|
267         . $locale->text('Save') . qq|\">\n|);
268   }
269   print(
270     qq|
271   </tr>
272
273 </table>| .
274     $form->write_trigger(\%myconfig, 1, "validuntil", "BL",
275                          "trigger_validuntil"));
276
277   $lxdebug->leave_sub();
278 }
279
280 sub add {
281   $lxdebug->enter_sub();
282   if (!$lizenzen) {
283     $form->error(
284                  $locale->text(
285                    'The licensing module has been deactivated in lx-erp.conf.')
286     );
287   }
288
289   $form->{"initial"} = 1;
290
291   do_add();
292   $lxdebug->leave_sub();
293 }
294
295 sub do_add {
296   $lxdebug->enter_sub();
297   $form->{"hidden"} = ["parts_id"];
298   form_header();
299
300   if ($form->{"ndx"}) {
301     $ndx = $form->{"ndx"};
302     foreach (keys(%{$form})) {
303       next unless (/^new_.*_${ndx}$/);
304       s/^new_//;
305       s/_${ndx}$//;
306       $form->{$_} = $form->{"new_${_}_${ndx}"};
307     }
308   }
309
310   if ($form->{"customer"}) {
311     $form->{"customer_id"} = (split(/--/, $form->{"customer"}))[1];
312   }
313
314   if ($form->{"customer_name"}) {
315     LICENSES->get_customers(\%myconfig, $form);
316     if (scalar(@{ $form->{"all_customers"} }) == 1) {
317       %c                       = %{ $form->{"all_customers"}->[0] };
318       $form->{"customer_id"}   = $c{"id"};
319       $form->{"customer_name"} = $c{"name"};
320     } elsif (scalar(@{ $form->{"all_customers"} }) == 0) {
321       $form->{"customer_name"} = "";
322       delete($form->{"customer_id"});
323     } else {
324       print_customer_selection();
325       return;
326     }
327   } elsif (defined($form->{"customer_name"})) {
328     delete($form->{"customer_id"});
329   }
330
331   if ($form->{"partnumber"} || $form->{"description"}) {
332     $form->{"sort"} = "p.partnumber";
333     $form->{searchitems} = "part";
334     IC->all_parts(\%myconfig, $form);
335     if (scalar(@{ $form->{"parts"} }) == 1) {
336       map({ $form->{$_} = $form->{"parts"}->[0]->{$_}; }
337           ("partnumber", "description"));
338       $form->{"parts_id"} = $form->{"parts"}->[0]->{"id"};
339
340     } elsif (scalar(@{ $form->{"parts"} }) == 0) {
341       map({ $form->{$_} = ""; }("partnumber", "description", "parts_id"));
342
343     } else {
344       print_part_selection();
345       return;
346     }
347   } else {
348     delete($form->{"parts_id"});
349   }
350
351   $form->all_vc(\%myconfig, "customer", "");
352
353   print_license_form($form->{"parts_id"} && $form->{"customer_id"});
354
355   form_footer();
356   $lxdebug->leave_sub();
357 }
358
359 sub update {
360   $lxdebug->enter_sub();
361   do_add();
362   $lxdebug->leave_sub();
363 }
364
365 sub continue {
366   $lxdebug->enter_sub();
367   &{ $form->{nextsub} };
368   $lxdebug->leave_sub();
369 }
370
371 sub save {
372   $lxdebug->enter_sub();
373
374   ($form->{customername}, $form->{customer_id}) = split /--/,
375     $form->{customer};
376
377   $form->isblank("customer", $locale->text('Customer missing!'));
378
379   if (   $form->{quantity} eq ""
380       || $form->{quantity} !~ /^[0-9]*$/
381       || $form->{quantity} < 1) {
382     $form->error($locale->text('Please enter a number of licenses.'));
383   }
384
385   if (!$form->{licensenumber} || $form->{licensenumber} eq "") {
386     $form->error($locale->text('Please enter a license key.'));
387   }
388
389   $rc = LICENSES->save_license(\%myconfig, \%$form);
390
391   # load previous variables
392   if ($form->{previousform}) {
393
394     # save the new form variables before splitting previousform
395     map { $newform{$_} = $form->{$_} } keys %$form;
396
397     $previousform = $form->unescape($form->{previousform});
398
399     # don't trample on previous variables
400     map { delete $form->{$_} } keys %newform;
401
402     # now take it apart and restore original values
403     foreach $item (split /&/, $previousform) {
404       ($key, $value) = split /=/, $item, 2;
405       $value =~ s/%26/&/g;
406       $form->{$key} = $value;
407     }
408
409     $form->{"lizenzen_$form->{row}"} =
410       "<option value=$rc>$newform{licensenumber}</option>";
411     $form->{rowcount}--;
412
413     delete $form->{action};
414
415     # restore original callback
416     $callback = $form->unescape($form->{callback});
417     $form->{callback} = $form->unescape($form->{old_callback});
418     delete $form->{old_callback};
419
420     # put callback together
421     foreach $key (keys %$form) {
422
423       # do single escape for Apache 2.0
424       $value = $form->escape($form->{$key}, 1);
425       $callback .= qq|&$key=$value|;
426     }
427     $form->{callback} = $callback;
428
429     # redirect
430     $form->redirect;
431
432   } else {
433     form_header();
434
435     print("Die Lizenz wurde gespeichert.\n");
436     form_footer();
437   }
438
439   $lxdebug->leave_sub();
440 }
441
442 sub search {
443   $lxdebug->enter_sub();
444   if (!$lizenzen) {
445     $form->error(
446                  $locale->text(
447                    'The licensing module has been deactivated in lx-erp.conf.')
448     );
449   }
450
451   form_header();
452
453   print(
454     qq|
455 <table width=100%>
456   <tr>
457     <th class=listtop>| . $locale->text("Licenses") . qq|</th>
458   </tr>
459   <tr>
460     <table>
461       <tr>
462         <th align=right>| . $locale->text('Part Number') . qq|</th>
463         <td><input name=partnumber></td>
464       </tr>
465       <tr>
466         <th align=right>| . $locale->text('Description') . qq|</th>
467         <td><input name=description></td>
468       </tr>
469       <tr>
470         <th align=right>| . $locale->text('Company Name') . qq|</th>
471         <td><input name=customer_name></td>
472       </tr>
473       <tr>
474         <th align=right>| . $locale->text('Include in Report') . qq|</th>
475         <td><input type=radio name=all value=1 checked>|
476       . $locale->text('All')
477       . qq|&nbsp;<input type=radio name=all value=0>|
478       . $locale->text('Expiring in x month(s)')
479       . qq|&nbsp;<input size=4 name=expiring_in value="1"><br>
480         <input type=checkbox name=show_expired value=1>|
481       . $locale->text('Expired licenses') . qq|</td>
482       </tr>
483     </table>
484   </tr>
485   <tr><td colspan=4><hr size=3 noshade></td></tr>
486 </table>
487
488 <input type=hidden name=nextsub value=\"do_search\">
489 <input type=submit name=action value=\"| . $locale->text('Continue') . qq|\">
490
491         |);
492
493   form_footer();
494   $lxdebug->leave_sub();
495 }
496
497 sub do_search {
498   $lxdebug->enter_sub();
499   LICENSES->search(\%myconfig, $form);
500
501   $callback = "";
502   foreach (
503            ("db",          "path",        "login",         "password",
504             "partnumber",  "description", "customer_name", "all",
505             "expiring_in", "show_expired")
506     ) {
507     $callback .= "\&${_}=" . $form->escape($form->{$_}, 1);
508   }
509   $details    = $form->{"script"} . "?action=details" . $callback . "\&id=";
510   $invdetails = "is.pl?action=edit" . $callback . "\&id=";
511   $callback   = $form->{"script"} . "?action=do_search" . $callback;
512
513   $form->{"sortby"} = "validuntil" unless ($form->{"sortby"});
514   $form->{"sortasc"} *= 1;
515   foreach (("partnumber", "description", "name", "validuntil", "invnumber")) {
516     $columns{$_} = $callback . "\&sortby=${_}\&sortasc=";
517     if ($form->{"sortby"} eq $_) {
518       $columns{$_} .= (1 - $form->{"sortasc"});
519     } else {
520       $columns{$_} .= "1";
521     }
522   }
523
524   form_header();
525
526   print(
527     qq|
528 <table width=100%>
529   <tr>
530     <th class=listtop>| . $locale->text("Licenses") . qq|</th>
531   </tr>
532         |);
533   if (scalar(@{ $form->{"licenses"} }) == 0) {
534     print(qq|</table>|
535             . $locale->text(
536                       "No licenses were found that match the search criteria.")
537             . qq|</body></html>|);
538     exit(0);
539   }
540
541   print(
542     qq|
543   <tr>
544     <table>
545       <tr>
546         <th class=listtop><a class=listheading href=\"|
547       . $columns{"partnumber"} . "\">"
548       . $locale->text('Part Number')
549       . qq|</a></th>
550         <th class=listtop><a class=listheading href=\"|
551       . $columns{"description"} . "\">"
552       . $locale->text('Description')
553       . qq|</a></th>
554         <th class=listtop><a class=listheading href=\"|
555       . $columns{"name"} . "\">" . $locale->text('Company Name') . qq|</a></th>
556         <th class=listtop><a class=listheading href=\"|
557       . $columns{"validuntil"} . "\">"
558       . $locale->text('Valid until')
559       . qq|</a></th>
560         <th class=listtop><a class=listheading href=\"|
561       . $columns{"invnumber"} . "\">"
562       . $locale->text('Invoice Number')
563       . qq|</a></th>
564       </tr>
565         |);
566
567   $j = 1;
568   for ($i = 0; $i < scalar(@{ $form->{"licenses"} }); $i++) {
569     $ref = $form->{"licenses"}->[$i];
570     print(
571       qq|
572           <tr class=listrow$j>
573           <td><input type=hidden name=id_$i value=| . $ref->{"id"} . qq|
574           <a href=\"${details}$ref->{"id"}\">$ref->{"partnumber"}</a></td>
575           <td><a href=\"${details}$ref->{"id"}\">$ref->{"description"}</a></td>
576           <td><a href=\"${details}$ref->{"id"}\">$ref->{"name"}</a></td>
577           <td><a href=\"${details}$ref->{"id"}\">$ref->{"validuntil"}</a></td>
578           <td align=right>|
579         . (
580         $ref->{"invnumber"}
581         ? qq|<a href=\"${invdetails}$ref->{"invnumber"}\">$ref->{"invnumber"}</a>|
582         : qq|&nbsp;|
583         )
584         . qq|</td>
585           </tr>|);
586     $j = ($j + 1) % 2;
587   }
588
589   $form->{"num_licenses"} = scalar(@{ $form->{"licenses"} });
590   push(@{ $form->{"hidden"} }, "num_licenses");
591
592   print(
593     qq|
594     </table>
595   </tr>
596   <tr>
597     <td><hr size=3 noshade></td>
598   </tr>
599 </table>
600
601 <p>
602
603 <input type=submit name=action value=\"| . $locale->text("Add") . qq|\">
604         |);
605
606   form_footer();
607   $lxdebug->leave_sub();
608 }
609
610 sub details {
611   $lxdebug->enter_sub();
612   LICENSES->get_license(\%myconfig, $form);
613   map(
614     { $form->{$_} = $form->{"license"}->{$_}; } keys(%{ $form->{"license"} }));
615
616   form_header();
617
618   print(
619     qq|
620 <table width=100%>
621   <tr>
622     <th class=listtop>| . $locale->text("View License") . qq|</th>
623   </tr>
624   <tr>
625     <table>
626       <tr>
627         <th align=right>| . $locale->text('Part Number') . qq|</th>
628         <td>$form->{"partnumber"}</td>
629       </tr>
630       <tr>
631         <th align=right>| . $locale->text('Description') . qq|</th>
632         <td>$form->{"description"}</td>
633       </tr>
634       <tr>
635         <th align=right>| . $locale->text('Company Name') . qq|</th>
636         <td>$form->{"name"}</td>
637       </tr>
638       <tr>
639         <th align=right>| . $locale->text('Comment') . qq|</th>
640         <td>$form->{"comment"}</td>
641       </tr>
642       <tr>
643         <th align=right>| . $locale->text('Valid until') . qq|</th>
644         <td>$form->{"validuntil"}</td>
645       </tr>
646       <tr>
647         <th align=right>| . $locale->text('Quantity') . qq|</th>
648         <td>$form->{"quantity"}</td>
649       </tr>
650       <tr>
651         <th align=right>| . $locale->text('License key') . qq|</th>
652         <td>$form->{"licensenumber"}</td>
653       </tr>
654     </table>
655   </tr>
656   <tr>
657     <td><hr size=3 noshade></td>
658   </tr>
659 </table>
660
661 <input type=submit name=action value=\"| . $locale->text("Add") . qq|\">
662         |);
663
664   form_footer();
665   $lxdebug->leave_sub();
666 }
667
668 1;