Revision 99e420aa
Von Sven Schöling vor fast 13 Jahren hinzugefügt
| bin/mozilla/am.pl | ||
|---|---|---|
| 633 | 633 |
} |
| 634 | 634 |
|
| 635 | 635 |
sub lead_header {
|
| 636 |
$main::lxdebug->enter_sub(); |
|
| 637 |
|
|
| 638 |
my $form = $main::form; |
|
| 639 |
my $locale = $main::locale; |
|
| 640 |
|
|
| 641 |
$main::auth->assert('config');
|
|
| 642 |
|
|
| 643 |
$form->{title} = $locale->text("$form->{title} Lead");
|
|
| 636 |
$::lxdebug->enter_sub; |
|
| 637 |
$::auth->assert('config');
|
|
| 644 | 638 |
|
| 645 | 639 |
# $locale->text('Add Lead')
|
| 646 | 640 |
# $locale->text('Edit Lead')
|
| 641 |
$::form->{title} = $::locale->text("$::form->{title} Lead");
|
|
| 647 | 642 |
|
| 648 |
$form->{description} =~ s/\"/"/g;
|
|
| 649 |
|
|
| 650 |
my $description = |
|
| 651 |
qq|<input name=description size=50 value="$form->{lead}">|;
|
|
| 652 |
|
|
| 653 |
$form->header; |
|
| 654 |
|
|
| 655 |
print qq| |
|
| 656 |
<body> |
|
| 657 |
|
|
| 658 |
<form method=post action=am.pl> |
|
| 659 |
|
|
| 660 |
<input type=hidden name=id value=$form->{id}>
|
|
| 661 |
<input type=hidden name=type value=lead> |
|
| 662 |
|
|
| 663 |
<table width=100%> |
|
| 664 |
<tr> |
|
| 665 |
<th class=listtop colspan=2>$form->{title}</th>
|
|
| 666 |
</tr> |
|
| 667 |
<tr height="5"></tr> |
|
| 668 |
<tr> |
|
| 669 |
<th align=right>| . $locale->text('Description') . qq|</th>
|
|
| 670 |
<td>$description</td> |
|
| 671 |
</tr> |
|
| 672 |
<td colspan=2><hr size=3 noshade></td> |
|
| 673 |
</tr> |
|
| 674 |
</table> |
|
| 675 |
|; |
|
| 643 |
$::form->header; |
|
| 644 |
print $::form->parse_html_template('am/lead_header');
|
|
| 676 | 645 |
|
| 677 |
$main::lxdebug->leave_sub();
|
|
| 646 |
$::lxdebug->leave_sub;
|
|
| 678 | 647 |
} |
| 679 | 648 |
|
| 680 | 649 |
sub save_lead {
|
Auch abrufbar als: Unified diff
am/lead_header auf template umgestellt.