Revision d629acd8
Von Sven Schöling vor mehr als 17 Jahren hinzugefügt
| SL/Drafts.pm | ||
|---|---|---|
| 53 | 53 |
do_query($form, $dbh, $query, $draft_id, $module, $submodule); |
| 54 | 54 |
} |
| 55 | 55 |
|
| 56 |
@dont_save = qw(login password path action);
|
|
| 56 |
@dont_save = qw(login password action); |
|
| 57 | 57 |
map({ $saved{$_} = $form->{$_};
|
| 58 | 58 |
delete($form->{$_}); } @dont_save);
|
| 59 | 59 |
$dumped = YAML::Dump($form); |
| SL/Menu.pm | ||
|---|---|---|
| 69 | 69 |
my $level = $form->escape($item); |
| 70 | 70 |
|
| 71 | 71 |
my $str = |
| 72 |
qq|<a style="vertical-align:top" href=$module?path=$form->{path}&action=$action&level=$level&login=$form->{login}&password=$form->{password}|;
|
|
| 72 |
qq|<a style="vertical-align:top" href=$module?action=$action&level=$level&login=$form->{login}&password=$form->{password}|;
|
|
| 73 | 73 |
|
| 74 | 74 |
my @vars = qw(module action target href); |
| 75 | 75 |
|
| ... | ... | |
| 122 | 122 |
|
| 123 | 123 |
my $str = qq|<a href="$module?action=| . $form->escape($action) . |
| 124 | 124 |
qq|&level=| . $form->escape($level); |
| 125 |
map({ $str .= "&${_}=" . $form->escape($form->{$_}); } qw(path login password));
|
|
| 125 |
map({ $str .= "&${_}=" . $form->escape($form->{$_}); } qw(login password));
|
|
| 126 | 126 |
|
| 127 | 127 |
my @vars = qw(module action target href); |
| 128 | 128 |
|
| ... | ... | |
| 176 | 176 |
|
| 177 | 177 |
my $level = $form->escape($item); |
| 178 | 178 |
my $str = |
| 179 |
qq|$module?path=$form->{path}&action=$action&level=$level&login=$form->{login}&password=$form->{password}|;
|
|
| 179 |
qq|$module?action=$action&level=$level&login=$form->{login}&password=$form->{password}|;
|
|
| 180 | 180 |
my @vars = qw(module action target href); |
| 181 | 181 |
|
| 182 | 182 |
if ($self->{$item}{href}) {
|
| am.pl | ||
|---|---|---|
| 98 | 98 |
$form->error($locale->text('Incorrect Password!'))
|
| 99 | 99 |
if ($form->{password} ne $myconfig{password});
|
| 100 | 100 |
|
| 101 |
$form->{path} =~ s/\.\.\///g;
|
|
| 102 |
if ($form->{path} !~ /^bin\//) {
|
|
| 103 |
$form->error($locale->text('Invalid path!') . "\n");
|
|
| 104 |
} |
|
| 105 |
|
|
| 106 | 101 |
# did sysadmin lock us out |
| 107 | 102 |
if (-e "$userspath/nologin") {
|
| 108 | 103 |
$form->error($locale->text('System currently down for maintenance!'));
|
| 109 | 104 |
} |
| 110 | 105 |
|
| 111 | 106 |
# pull in the main code |
| 112 |
require "$form->{path}/$form->{script}";
|
|
| 107 |
require "bin/mozilla/$form->{script}";
|
|
| 113 | 108 |
|
| 114 | 109 |
# customized scripts |
| 115 |
if (-f "$form->{path}/custom_$form->{script}") {
|
|
| 116 |
eval { require "$form->{path}/custom_$form->{script}"; };
|
|
| 110 |
if (-f "bin/mozilla/custom_$form->{script}") {
|
|
| 111 |
eval { require "bin/mozilla/custom_$form->{script}"; };
|
|
| 117 | 112 |
$form->error($@) if ($@); |
| 118 | 113 |
} |
| 119 | 114 |
|
| 120 | 115 |
# customized scripts for login |
| 121 |
if (-f "$form->{path}/$form->{login}_$form->{script}") {
|
|
| 122 |
eval { require "$form->{path}/$form->{login}_$form->{script}"; };
|
|
| 116 |
if (-f "bin/mozilla/$form->{login}_$form->{script}") {
|
|
| 117 |
eval { require "bin/mozilla/$form->{login}_$form->{script}"; };
|
|
| 123 | 118 |
$form->error($@) if ($@); |
| 124 | 119 |
} |
| 125 | 120 |
|
| bin/mozilla/admin.pl | ||
|---|---|---|
| 46 | 46 |
$locale = new Locale $language, "admin"; |
| 47 | 47 |
|
| 48 | 48 |
# customization |
| 49 |
if (-f "$form->{path}/custom_$form->{script}") {
|
|
| 50 |
eval { require "$form->{path}/custom_$form->{script}"; };
|
|
| 49 |
if (-f "bin/mozilla/custom_$form->{script}") {
|
|
| 50 |
eval { require "bin/mozilla/custom_$form->{script}"; };
|
|
| 51 | 51 |
$form->error($@) if ($@); |
| 52 | 52 |
} |
| 53 | 53 |
|
| ... | ... | |
| 125 | 125 |
. $locale->text('Login') . qq|"></td>
|
| 126 | 126 |
</tr> |
| 127 | 127 |
<input type=hidden name=action value=login> |
| 128 |
<input type=hidden name=path value=$form->{path}>
|
|
| 129 | 128 |
</table> |
| 130 | 129 |
|
| 131 | 130 |
|
| ... | ... | |
| 197 | 196 |
|
| 198 | 197 |
print qq| |
| 199 | 198 |
|
| 200 |
<input name=callback type=hidden value="$form->{script}?action=list_users&path=$form->{path}&rpw=$form->{rpw}">
|
|
| 201 |
<input type=hidden name=path value=$form->{path}>
|
|
| 199 |
<input name=callback type=hidden value="$form->{script}?action=list_users&rpw=$form->{rpw}">
|
|
| 202 | 200 |
<input type=hidden name=rpw value=$form->{rpw}>
|
| 203 | 201 |
|
| 204 | 202 |
<input type=submit class=submit name=action value="| |
| ... | ... | |
| 293 | 291 |
|
| 294 | 292 |
foreach $key (sort keys %member) {
|
| 295 | 293 |
$href = |
| 296 |
"$script?action=edit&login=$key&path=$form->{path}&rpw=$form->{rpw}";
|
|
| 294 |
"$script?action=edit&login=$key&rpw=$form->{rpw}";
|
|
| 297 | 295 |
$href =~ s/ /%20/g; |
| 298 | 296 |
|
| 299 | 297 |
$member{$key}{templates} =~ s/^$templates\///;
|
| ... | ... | |
| 330 | 328 |
</tr> |
| 331 | 329 |
</table> |
| 332 | 330 |
|
| 333 |
<input type=hidden name=path value=$form->{path}>
|
|
| 334 | 331 |
<input type=hidden name=rpw value=$form->{rpw}>
|
| 335 | 332 |
|
| 336 | 333 |
<br><input type=submit class=submit name=action value="| |
| ... | ... | |
| 373 | 370 |
<td><input type=submit name=action value="| |
| 374 | 371 |
. $locale->text('Login') . qq|"></td>
|
| 375 | 372 |
</tr> |
| 376 |
<input type=hidden name=path value=$form->{path}>
|
|
| 377 | 373 |
</table> |
| 378 | 374 |
</td> |
| 379 | 375 |
</tr> |
| ... | ... | |
| 1147 | 1143 |
</tr> |
| 1148 | 1144 |
</table> |
| 1149 | 1145 |
|
| 1150 |
<input type=hidden name=path value=$form->{path}>
|
|
| 1151 | 1146 |
<input type=hidden name=rpw value=$form->{rpw}>
|
| 1152 | 1147 |
|
| 1153 | 1148 |
<p> |
| ... | ... | |
| 1188 | 1183 |
$root->save_member($memberfile); |
| 1189 | 1184 |
|
| 1190 | 1185 |
$form->{callback} =
|
| 1191 |
"$form->{script}?action=list_users&path=$form->{path}&rpw=$root->{password}";
|
|
| 1186 |
"$form->{script}?action=list_users&rpw=$root->{password}";
|
|
| 1192 | 1187 |
|
| 1193 | 1188 |
$form->redirect($locale->text('Password changed!'));
|
| 1194 | 1189 |
|
| ... | ... | |
| 1309 | 1304 |
</td></tr> |
| 1310 | 1305 |
</table> |
| 1311 | 1306 |
|
| 1312 |
<input name=callback type=hidden value="$form->{script}?action=list_users&path=$form->{path}&rpw=$form->{rpw}">
|
|
| 1313 |
<input type=hidden name=path value=$form->{path}>
|
|
| 1307 |
<input name=callback type=hidden value="$form->{script}?action=list_users&rpw=$form->{rpw}">
|
|
| 1314 | 1308 |
<input type=hidden name=rpw value=$form->{rpw}>
|
| 1315 | 1309 |
|
| 1316 | 1310 |
<br> |
| ... | ... | |
| 1404 | 1398 |
|
| 1405 | 1399 |
<input name=dbupdate type=hidden value="$form->{dbupdate}">
|
| 1406 | 1400 |
|
| 1407 |
<input name=callback type=hidden value="$form->{script}?action=list_users&path=$form->{path}&rpw=$form->{rpw}">
|
|
| 1401 |
<input name=callback type=hidden value="$form->{script}?action=list_users&rpw=$form->{rpw}">
|
|
| 1408 | 1402 |
|
| 1409 |
<input type=hidden name=path value=$form->{path}>
|
|
| 1410 | 1403 |
<input type=hidden name=rpw value=$form->{rpw}>
|
| 1411 | 1404 |
|
| 1412 | 1405 |
<input type=hidden name=nextsub value=dbupdate> |
| ... | ... | |
| 1458 | 1451 |
<br> |
| 1459 | 1452 |
|
| 1460 | 1453 |
<a id="enddatasetupdate" href="admin.pl?action=login&| . |
| 1461 |
join("&", map({ "$_=" . $form->escape($form->{$_}); } qw(path rpw))) .
|
|
| 1454 |
join("&", map({ "$_=" . $form->escape($form->{$_}); } qw(rpw))) .
|
|
| 1462 | 1455 |
qq|">| . $locale->text("Continue") . qq|</a>|;
|
| 1463 | 1456 |
|
| 1464 | 1457 |
} |
| ... | ... | |
| 1556 | 1549 |
<input type=hidden name="dbpasswd" value="$form->{dbpasswd}">
|
| 1557 | 1550 |
<input type=hidden name="dbdefault" value="$form->{dbdefault}">
|
| 1558 | 1551 |
|
| 1559 |
<input name=callback type=hidden value="$form->{script}?action=list_users&path=$form->{path}&rpw=$form->{rpw}">
|
|
| 1552 |
<input name=callback type=hidden value="$form->{script}?action=list_users&rpw=$form->{rpw}">
|
|
| 1560 | 1553 |
|
| 1561 |
<input type=hidden name=path value=$form->{path}>
|
|
| 1562 | 1554 |
<input type=hidden name=rpw value=$form->{rpw}>
|
| 1563 | 1555 |
|
| 1564 | 1556 |
<input type=hidden name=nextsub value=dbcreate> |
| ... | ... | |
| 1609 | 1601 |
|
| 1610 | 1602 |
. qq| |
| 1611 | 1603 |
|
| 1612 |
<input type=hidden name=path value="$form->{path}">
|
|
| 1613 | 1604 |
<input type=hidden name=rpw value="$form->{rpw}">
|
| 1614 | 1605 |
|
| 1615 | 1606 |
<input type=hidden name=nextsub value=list_users> |
| ... | ... | |
| 1672 | 1663 |
<input type=hidden name="dbpasswd" value="$form->{dbpasswd}">
|
| 1673 | 1664 |
<input type=hidden name="dbdefault" value="$form->{dbdefault}">
|
| 1674 | 1665 |
|
| 1675 |
<input name=callback type=hidden value="$form->{script}?action=list_users&path=$form->{path}&rpw=$form->{rpw}">
|
|
| 1666 |
<input name=callback type=hidden value="$form->{script}?action=list_users&rpw=$form->{rpw}">
|
|
| 1676 | 1667 |
|
| 1677 |
<input type=hidden name=path value="$form->{path}">
|
|
| 1678 | 1668 |
<input type=hidden name=rpw value="$form->{rpw}">
|
| 1679 | 1669 |
|
| 1680 | 1670 |
<input type=hidden name=nextsub value=dbdelete> |
| ... | ... | |
| 1724 | 1714 |
|
| 1725 | 1715 |
. qq| |
| 1726 | 1716 |
|
| 1727 |
<input type=hidden name=path value="$form->{path}">
|
|
| 1728 | 1717 |
<input type=hidden name=rpw value="$form->{rpw}">
|
| 1729 | 1718 |
|
| 1730 | 1719 |
<input type=hidden name=nextsub value=list_users> |
| ... | ... | |
| 1745 | 1734 |
unlink "$userspath/nologin"; |
| 1746 | 1735 |
|
| 1747 | 1736 |
$form->{callback} =
|
| 1748 |
"$form->{script}?action=list_users&path=$form->{path}&rpw=$root->{password}";
|
|
| 1737 |
"$form->{script}?action=list_users&rpw=$root->{password}";
|
|
| 1749 | 1738 |
|
| 1750 | 1739 |
$form->redirect($locale->text('Lockfile removed!'));
|
| 1751 | 1740 |
|
| ... | ... | |
| 1758 | 1747 |
close(FH); |
| 1759 | 1748 |
|
| 1760 | 1749 |
$form->{callback} =
|
| 1761 |
"$form->{script}?action=list_users&path=$form->{path}&rpw=$root->{password}";
|
|
| 1750 |
"$form->{script}?action=list_users&rpw=$root->{password}";
|
|
| 1762 | 1751 |
|
| 1763 | 1752 |
$form->redirect($locale->text('Lockfile created!'));
|
| 1764 | 1753 |
|
| bin/mozilla/am.pl | ||
|---|---|---|
| 40 | 40 |
|
| 41 | 41 |
1; |
| 42 | 42 |
|
| 43 |
require "$form->{path}/common.pl";
|
|
| 43 |
require "bin/mozilla/common.pl";
|
|
| 44 | 44 |
|
| 45 | 45 |
# end of main |
| 46 | 46 |
|
| ... | ... | |
| 58 | 58 |
AM->get_account(\%myconfig, \%$form); |
| 59 | 59 |
|
| 60 | 60 |
$form->{callback} =
|
| 61 |
"$form->{script}?action=list_account&path=$form->{path}&login=$form->{login}&password=$form->{password}"
|
|
| 61 |
"$form->{script}?action=list_account&login=$form->{login}&password=$form->{password}"
|
|
| 62 | 62 |
unless $form->{callback};
|
| 63 | 63 |
|
| 64 | 64 |
&account_header; |
| ... | ... | |
| 485 | 485 |
|
| 486 | 486 |
<input name=callback type=hidden value="$form->{callback}">
|
| 487 | 487 |
|
| 488 |
<input type=hidden name=path value=$form->{path}>
|
|
| 489 | 488 |
<input type=hidden name=login value=$form->{login}>
|
| 490 | 489 |
<input type=hidden name=password value=$form->{password}>
|
| 491 | 490 |
|
| ... | ... | |
| 534 | 533 |
|
| 535 | 534 |
# construct callback |
| 536 | 535 |
$callback = |
| 537 |
"$form->{script}?action=list_account&path=$form->{path}&login=$form->{login}&password=$form->{password}";
|
|
| 536 |
"$form->{script}?action=list_account&login=$form->{login}&password=$form->{password}";
|
|
| 538 | 537 |
|
| 539 | 538 |
$form->header; |
| 540 | 539 |
|
| ... | ... | |
| 599 | 598 |
|
| 600 | 599 |
$ca->{link_edit_account} =
|
| 601 | 600 |
qq|$form->{script}?action=edit_account&id=$ca->{id}|
|
| 602 |
.qq|&path=$form->{path}&login=$form->{login}|
|
|
| 601 |
.qq|&login=$form->{login}|
|
|
| 603 | 602 |
.qq|&password=$form->{password}&callback=$callback|;
|
| 604 | 603 |
} |
| 605 | 604 |
|
| ... | ... | |
| 644 | 643 |
$form->{role} = "P";
|
| 645 | 644 |
|
| 646 | 645 |
$form->{callback} =
|
| 647 |
"$form->{script}?action=add_department&path=$form->{path}&login=$form->{login}&password=$form->{password}"
|
|
| 646 |
"$form->{script}?action=add_department&login=$form->{login}&password=$form->{password}"
|
|
| 648 | 647 |
unless $form->{callback};
|
| 649 | 648 |
|
| 650 | 649 |
&department_header; |
| ... | ... | |
| 672 | 671 |
AM->departments(\%myconfig, \%$form); |
| 673 | 672 |
|
| 674 | 673 |
$form->{callback} =
|
| 675 |
"$form->{script}?action=list_department&path=$form->{path}&login=$form->{login}&password=$form->{password}";
|
|
| 674 |
"$form->{script}?action=list_department&login=$form->{login}&password=$form->{password}";
|
|
| 676 | 675 |
|
| 677 | 676 |
$callback = $form->escape($form->{callback});
|
| 678 | 677 |
|
| ... | ... | |
| 728 | 727 |
$profitcenter = ($ref->{role} eq "P") ? "X" : "";
|
| 729 | 728 |
|
| 730 | 729 |
$column_data{description} =
|
| 731 |
qq|<td><a href=$form->{script}?action=edit_department&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{description}</td>|;
|
|
| 730 |
qq|<td><a href=$form->{script}?action=edit_department&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{description}</td>|;
|
|
| 732 | 731 |
$column_data{cost} = qq|<td align=center>$costcenter</td>|;
|
| 733 | 732 |
$column_data{profit} = qq|<td align=center>$profitcenter</td>|;
|
| 734 | 733 |
|
| ... | ... | |
| 755 | 754 |
|
| 756 | 755 |
<input type=hidden name=type value=department> |
| 757 | 756 |
|
| 758 |
<input type=hidden name=path value=$form->{path}>
|
|
| 759 | 757 |
<input type=hidden name=login value=$form->{login}>
|
| 760 | 758 |
<input type=hidden name=password value=$form->{password}>
|
| 761 | 759 |
|
| ... | ... | |
| 852 | 850 |
$form->{title} = "Add";
|
| 853 | 851 |
|
| 854 | 852 |
$form->{callback} =
|
| 855 |
"$form->{script}?action=add_lead&path=$form->{path}&login=$form->{login}&password=$form->{password}"
|
|
| 853 |
"$form->{script}?action=add_lead&login=$form->{login}&password=$form->{password}"
|
|
| 856 | 854 |
unless $form->{callback};
|
| 857 | 855 |
|
| 858 | 856 |
&lead_header; |
| ... | ... | |
| 882 | 880 |
AM->lead(\%myconfig, \%$form); |
| 883 | 881 |
|
| 884 | 882 |
$form->{callback} =
|
| 885 |
"$form->{script}?action=list_lead&path=$form->{path}&login=$form->{login}&password=$form->{password}";
|
|
| 883 |
"$form->{script}?action=list_lead&login=$form->{login}&password=$form->{password}";
|
|
| 886 | 884 |
|
| 887 | 885 |
$callback = $form->escape($form->{callback});
|
| 888 | 886 |
|
| ... | ... | |
| 926 | 924 |
$lead = $ref->{lead};
|
| 927 | 925 |
|
| 928 | 926 |
$column_data{description} =
|
| 929 |
qq|<td><a href=$form->{script}?action=edit_lead&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{lead}</td>|;
|
|
| 927 |
qq|<td><a href=$form->{script}?action=edit_lead&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{lead}</td>|;
|
|
| 930 | 928 |
|
| 931 | 929 |
map { print "$column_data{$_}\n" } @column_index;
|
| 932 | 930 |
|
| ... | ... | |
| 948 | 946 |
|
| 949 | 947 |
<input type=hidden name=type value=lead> |
| 950 | 948 |
|
| 951 |
<input type=hidden name=path value=$form->{path}>
|
|
| 952 | 949 |
<input type=hidden name=login value=$form->{login}>
|
| 953 | 950 |
<input type=hidden name=password value=$form->{password}>
|
| 954 | 951 |
|
| ... | ... | |
| 1029 | 1026 |
$form->{title} = "Add";
|
| 1030 | 1027 |
|
| 1031 | 1028 |
$form->{callback} =
|
| 1032 |
"$form->{script}?action=add_business&path=$form->{path}&login=$form->{login}&password=$form->{password}"
|
|
| 1029 |
"$form->{script}?action=add_business&login=$form->{login}&password=$form->{password}"
|
|
| 1033 | 1030 |
unless $form->{callback};
|
| 1034 | 1031 |
|
| 1035 | 1032 |
&business_header; |
| ... | ... | |
| 1059 | 1056 |
AM->business(\%myconfig, \%$form); |
| 1060 | 1057 |
|
| 1061 | 1058 |
$form->{callback} =
|
| 1062 |
"$form->{script}?action=list_business&path=$form->{path}&login=$form->{login}&password=$form->{password}";
|
|
| 1059 |
"$form->{script}?action=list_business&login=$form->{login}&password=$form->{password}";
|
|
| 1063 | 1060 |
|
| 1064 | 1061 |
$callback = $form->escape($form->{callback});
|
| 1065 | 1062 |
|
| ... | ... | |
| 1116 | 1113 |
$description = |
| 1117 | 1114 |
$ref->{description};
|
| 1118 | 1115 |
$column_data{description} =
|
| 1119 |
qq|<td><a href=$form->{script}?action=edit_business&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$description</td>|;
|
|
| 1116 |
qq|<td><a href=$form->{script}?action=edit_business&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$description</td>|;
|
|
| 1120 | 1117 |
$column_data{discount} = qq|<td align=right>$discount</td>|;
|
| 1121 | 1118 |
$column_data{customernumberinit} =
|
| 1122 | 1119 |
qq|<td align=right>$ref->{customernumberinit}</td>|;
|
| ... | ... | |
| 1144 | 1141 |
|
| 1145 | 1142 |
<input type=hidden name=type value=business> |
| 1146 | 1143 |
|
| 1147 |
<input type=hidden name=path value=$form->{path}>
|
|
| 1148 | 1144 |
<input type=hidden name=login value=$form->{login}>
|
| 1149 | 1145 |
<input type=hidden name=password value=$form->{password}>
|
| 1150 | 1146 |
|
| ... | ... | |
| 1233 | 1229 |
$form->{title} = "Add";
|
| 1234 | 1230 |
|
| 1235 | 1231 |
$form->{callback} =
|
| 1236 |
"$form->{script}?action=add_language&path=$form->{path}&login=$form->{login}&password=$form->{password}"
|
|
| 1232 |
"$form->{script}?action=add_language&login=$form->{login}&password=$form->{password}"
|
|
| 1237 | 1233 |
unless $form->{callback};
|
| 1238 | 1234 |
|
| 1239 | 1235 |
&language_header; |
| ... | ... | |
| 1263 | 1259 |
AM->language(\%myconfig, \%$form); |
| 1264 | 1260 |
|
| 1265 | 1261 |
$form->{callback} =
|
| 1266 |
"$form->{script}?action=list_language&path=$form->{path}&login=$form->{login}&password=$form->{password}";
|
|
| 1262 |
"$form->{script}?action=list_language&login=$form->{login}&password=$form->{password}";
|
|
| 1267 | 1263 |
|
| 1268 | 1264 |
$callback = $form->escape($form->{callback});
|
| 1269 | 1265 |
|
| ... | ... | |
| 1329 | 1325 |
|
| 1330 | 1326 |
|
| 1331 | 1327 |
$column_data{description} =
|
| 1332 |
qq|<td><a href=$form->{script}?action=edit_language&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{description}</td>|;
|
|
| 1328 |
qq|<td><a href=$form->{script}?action=edit_language&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{description}</td>|;
|
|
| 1333 | 1329 |
$column_data{template_code} = qq|<td align=right>$ref->{template_code}</td>|;
|
| 1334 | 1330 |
$column_data{article_code} =
|
| 1335 | 1331 |
qq|<td align=right>$ref->{article_code}</td>|;
|
| ... | ... | |
| 1371 | 1367 |
|
| 1372 | 1368 |
<input type=hidden name=type value=language> |
| 1373 | 1369 |
|
| 1374 |
<input type=hidden name=path value=$form->{path}>
|
|
| 1375 | 1370 |
<input type=hidden name=login value=$form->{login}>
|
| 1376 | 1371 |
<input type=hidden name=password value=$form->{password}>
|
| 1377 | 1372 |
|
| ... | ... | |
| 1505 | 1500 |
$form->{title} = "Add";
|
| 1506 | 1501 |
|
| 1507 | 1502 |
$form->{callback} =
|
| 1508 |
"$form->{script}?action=add_buchungsgruppe&path=$form->{path}&login=$form->{login}&password=$form->{password}"
|
|
| 1503 |
"$form->{script}?action=add_buchungsgruppe&login=$form->{login}&password=$form->{password}"
|
|
| 1509 | 1504 |
unless $form->{callback};
|
| 1510 | 1505 |
AM->get_buchungsgruppe(\%myconfig, \%$form); |
| 1511 | 1506 |
$form->{"inventory_accno_id"} = $form->{"std_inventory_accno_id"};
|
| ... | ... | |
| 1540 | 1535 |
AM->buchungsgruppe(\%myconfig, \%$form); |
| 1541 | 1536 |
|
| 1542 | 1537 |
$form->{callback} =
|
| 1543 |
"$form->{script}?action=list_buchungsgruppe&path=$form->{path}&login=$form->{login}&password=$form->{password}";
|
|
| 1538 |
"$form->{script}?action=list_buchungsgruppe&login=$form->{login}&password=$form->{password}";
|
|
| 1544 | 1539 |
|
| 1545 | 1540 |
$callback = $form->escape($form->{callback});
|
| 1546 | 1541 |
|
| ... | ... | |
| 1624 | 1619 |
|
| 1625 | 1620 |
my $swap_link = qq|$form->{script}?action=swap_buchungsgruppen&|;
|
| 1626 | 1621 |
map({ $swap_link .= $_ . "=" . $form->escape($form->{$_}) . "&" }
|
| 1627 |
qw(login password path));
|
|
| 1622 |
qw(login password)); |
|
| 1628 | 1623 |
|
| 1629 | 1624 |
my $row = 0; |
| 1630 | 1625 |
foreach $ref (@{ $form->{ALL} }) {
|
| ... | ... | |
| 1659 | 1654 |
} |
| 1660 | 1655 |
|
| 1661 | 1656 |
$column_data{description} =
|
| 1662 |
qq|<td><a href=$form->{script}?action=edit_buchungsgruppe&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{description}</td>|;
|
|
| 1657 |
qq|<td><a href=$form->{script}?action=edit_buchungsgruppe&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{description}</td>|;
|
|
| 1663 | 1658 |
$column_data{inventory_accno} = qq|<td align=right>$ref->{inventory_accno}</td>|;
|
| 1664 | 1659 |
$column_data{income_accno_0} =
|
| 1665 | 1660 |
qq|<td align=right>$ref->{income_accno_0}</td>|;
|
| ... | ... | |
| 1699 | 1694 |
|
| 1700 | 1695 |
<input type=hidden name=type value=buchungsgruppe> |
| 1701 | 1696 |
|
| 1702 |
<input type=hidden name=path value=$form->{path}>
|
|
| 1703 | 1697 |
<input type=hidden name=login value=$form->{login}>
|
| 1704 | 1698 |
<input type=hidden name=password value=$form->{password}>
|
| 1705 | 1699 |
|
| ... | ... | |
| 1891 | 1885 |
$form->{title} = "Add";
|
| 1892 | 1886 |
|
| 1893 | 1887 |
$form->{callback} =
|
| 1894 |
"$form->{script}?action=add_printer&path=$form->{path}&login=$form->{login}&password=$form->{password}"
|
|
| 1888 |
"$form->{script}?action=add_printer&login=$form->{login}&password=$form->{password}"
|
|
| 1895 | 1889 |
unless $form->{callback};
|
| 1896 | 1890 |
|
| 1897 | 1891 |
&printer_header; |
| ... | ... | |
| 1921 | 1915 |
AM->printer(\%myconfig, \%$form); |
| 1922 | 1916 |
|
| 1923 | 1917 |
$form->{callback} =
|
| 1924 |
"$form->{script}?action=list_printer&path=$form->{path}&login=$form->{login}&password=$form->{password}";
|
|
| 1918 |
"$form->{script}?action=list_printer&login=$form->{login}&password=$form->{password}";
|
|
| 1925 | 1919 |
|
| 1926 | 1920 |
$callback = $form->escape($form->{callback});
|
| 1927 | 1921 |
|
| ... | ... | |
| 1975 | 1969 |
|
| 1976 | 1970 |
|
| 1977 | 1971 |
$column_data{printer_description} =
|
| 1978 |
qq|<td><a href=$form->{script}?action=edit_printer&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{printer_description}</td>|;
|
|
| 1972 |
qq|<td><a href=$form->{script}?action=edit_printer&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{printer_description}</td>|;
|
|
| 1979 | 1973 |
$column_data{printer_command} = qq|<td align=right>$ref->{printer_command}</td>|;
|
| 1980 | 1974 |
$column_data{template_code} =
|
| 1981 | 1975 |
qq|<td align=right>$ref->{template_code}</td>|;
|
| ... | ... | |
| 2003 | 1997 |
|
| 2004 | 1998 |
<input type=hidden name=type value=printer> |
| 2005 | 1999 |
|
| 2006 |
<input type=hidden name=path value=$form->{path}>
|
|
| 2007 | 2000 |
<input type=hidden name=login value=$form->{login}>
|
| 2008 | 2001 |
<input type=hidden name=password value=$form->{password}>
|
| 2009 | 2002 |
|
| ... | ... | |
| 2093 | 2086 |
$form->{title} = "Add";
|
| 2094 | 2087 |
|
| 2095 | 2088 |
$form->{callback} =
|
| 2096 |
"$form->{script}?action=add_payment&path=$form->{path}&login=$form->{login}&password=$form->{password}"
|
|
| 2089 |
"$form->{script}?action=add_payment&login=$form->{login}&password=$form->{password}"
|
|
| 2097 | 2090 |
unless $form->{callback};
|
| 2098 | 2091 |
|
| 2099 | 2092 |
$form->{terms_netto} = 0;
|
| ... | ... | |
| 2263 | 2256 |
|
| 2264 | 2257 |
<input type=hidden name=type value=payment> |
| 2265 | 2258 |
|
| 2266 |
<input type=hidden name=path value=$form->{path}>
|
|
| 2267 | 2259 |
<input type=hidden name=login value=$form->{login}>
|
| 2268 | 2260 |
<input type=hidden name=password value=$form->{password}>
|
| 2269 | 2261 |
|
| ... | ... | |
| 2789 | 2781 |
</tr> |
| 2790 | 2782 |
</table> |
| 2791 | 2783 |
|
| 2792 |
<input type=hidden name=path value=$form->{path}>
|
|
| 2793 | 2784 |
<input type=hidden name=login value=$form->{login}>
|
| 2794 | 2785 |
<input type=hidden name=password value=$form->{password}>
|
| 2795 | 2786 |
|
| ... | ... | |
| 2840 | 2831 |
|
| 2841 | 2832 |
<form method=post action=$form->{script}>
|
| 2842 | 2833 |
|
| 2843 |
<input type=hidden name=path value=$form->{path}>
|
|
| 2844 | 2834 |
<input type=hidden name=login value=$form->{login}>
|
| 2845 | 2835 |
<input type=hidden name=password value=$form->{password}>
|
| 2846 | 2836 |
|
| bin/mozilla/amtemplates.pl | ||
|---|---|---|
| 38 | 38 |
|
| 39 | 39 |
1; |
| 40 | 40 |
|
| 41 |
require "$form->{path}/common.pl";
|
|
| 41 |
require "bin/mozilla/common.pl";
|
|
| 42 | 42 |
|
| 43 | 43 |
# end of main |
| 44 | 44 |
|
| ... | ... | |
| 98 | 98 |
|
| 99 | 99 |
my %options; |
| 100 | 100 |
|
| 101 |
my @hidden = qw(login path password type format);
|
|
| 101 |
my @hidden = qw(login password type format); |
|
| 102 | 102 |
|
| 103 | 103 |
if (($form->{"type"} ne "stylesheet") && !$form->{"edit"}) {
|
| 104 | 104 |
$options{"SHOW_EDIT_OPTIONS"} = 1;
|
| bin/mozilla/ap.pl | ||
|---|---|---|
| 35 | 35 |
use SL::IR; |
| 36 | 36 |
use SL::PE; |
| 37 | 37 |
|
| 38 |
require "$form->{path}/arap.pl";
|
|
| 38 |
require "bin/mozilla/arap.pl";
|
|
| 39 | 39 |
require "bin/mozilla/common.pl"; |
| 40 | 40 |
require "bin/mozilla/drafts.pl"; |
| 41 | 41 |
|
| ... | ... | |
| 79 | 79 |
$form->{title} = "Add";
|
| 80 | 80 |
|
| 81 | 81 |
$form->{callback} =
|
| 82 |
"$form->{script}?action=add&path=$form->{path}&login=$form->{login}&password=$form->{password}"
|
|
| 82 |
"$form->{script}?action=add&login=$form->{login}&password=$form->{password}"
|
|
| 83 | 83 |
unless $form->{callback};
|
| 84 | 84 |
|
| 85 | 85 |
AP->get_transdate(\%myconfig, $form); |
| ... | ... | |
| 826 | 826 |
<input name=callback type=hidden value="$form->{callback}">
|
| 827 | 827 |
<input name="gldate" type="hidden" value="| . Q($form->{gldate}) . qq|">
|
| 828 | 828 |
|
| 829 |
<input type=hidden name=path value=$form->{path}>
|
|
| 830 | 829 |
<input type=hidden name=login value=$form->{login}>
|
| 831 | 830 |
<input type=hidden name=password value=$form->{password}>
|
| 832 | 831 |
| |
| ... | ... | |
| 1366 | 1365 |
|
| 1367 | 1366 |
<br> |
| 1368 | 1367 |
<input type=hidden name=nextsub value=$form->{nextsub}>
|
| 1369 |
<input type=hidden name=path value=$form->{path}>
|
|
| 1370 | 1368 |
<input type=hidden name=login value=$form->{login}>
|
| 1371 | 1369 |
<input type=hidden name=password value=$form->{password}>
|
| 1372 | 1370 |
|
| ... | ... | |
| 1390 | 1388 |
AP->ap_transactions(\%myconfig, \%$form); |
| 1391 | 1389 |
|
| 1392 | 1390 |
$callback = |
| 1393 |
"$form->{script}?action=ap_transactions&path=$form->{path}&login=$form->{login}&password=$form->{password}";
|
|
| 1391 |
"$form->{script}?action=ap_transactions&login=$form->{login}&password=$form->{password}";
|
|
| 1394 | 1392 |
$href = $callback; |
| 1395 | 1393 |
|
| 1396 | 1394 |
if ($form->{vendor}) {
|
| ... | ... | |
| 1604 | 1602 |
$module = ($ap->{invoice}) ? "ir.pl" : $form->{script};
|
| 1605 | 1603 |
|
| 1606 | 1604 |
$column_data{invnumber} =
|
| 1607 |
qq|<td><a href="$module?action=edit&path=$form->{path}&id=$ap->{id}&login=$form->{login}&password=$form->{password}&callback=$callback">$ap->{invnumber}</a></td>|;
|
|
| 1605 |
qq|<td><a href="$module?action=edit&id=$ap->{id}&login=$form->{login}&password=$form->{password}&callback=$callback">$ap->{invnumber}</a></td>|;
|
|
| 1608 | 1606 |
$column_data{id} = "<td>$ap->{id}</td>";
|
| 1609 | 1607 |
$column_data{ordnumber} = "<td>$ap->{ordnumber} </td>";
|
| 1610 | 1608 |
$column_data{name} = "<td>$ap->{name}</td>";
|
| ... | ... | |
| 1673 | 1671 |
|
| 1674 | 1672 |
<input name=callback type=hidden value="$form->{callback}">
|
| 1675 | 1673 |
|
| 1676 |
<input type=hidden name=path value=$form->{path}>
|
|
| 1677 | 1674 |
<input type=hidden name=login value=$form->{login}>
|
| 1678 | 1675 |
<input type=hidden name=password value=$form->{password}>
|
| 1679 | 1676 |
|
| bin/mozilla/ar.pl | ||
|---|---|---|
| 36 | 36 |
use SL::PE; |
| 37 | 37 |
use Data::Dumper; |
| 38 | 38 |
|
| 39 |
require "$form->{path}/arap.pl";
|
|
| 39 |
require "bin/mozilla/arap.pl";
|
|
| 40 | 40 |
require "bin/mozilla/common.pl"; |
| 41 | 41 |
require "bin/mozilla/drafts.pl"; |
| 42 | 42 |
|
| ... | ... | |
| 87 | 87 |
|
| 88 | 88 |
$form->{title} = "Add";
|
| 89 | 89 |
$form->{callback} =
|
| 90 |
"$form->{script}?action=add&path=$form->{path}&login=$form->{login}&password=$form->{password}"
|
|
| 90 |
"$form->{script}?action=add&login=$form->{login}&password=$form->{password}"
|
|
| 91 | 91 |
unless $form->{callback};
|
| 92 | 92 |
|
| 93 | 93 |
AR->get_transdate(\%myconfig, $form); |
| ... | ... | |
| 843 | 843 |
|
| 844 | 844 |
<input name=callback type=hidden value="$form->{callback}">
|
| 845 | 845 |
|
| 846 |
<input type=hidden name=path value=$form->{path}>
|
|
| 847 | 846 |
<input type=hidden name=login value=$form->{login}>
|
| 848 | 847 |
<input type=hidden name=password value=$form->{password}>
|
| 849 | 848 |
| |
| ... | ... | |
| 899 | 898 |
} |
| 900 | 899 |
|
| 901 | 900 |
if ($form->{menubar}) {
|
| 902 |
require "$form->{path}/menu.pl";
|
|
| 901 |
require "bin/mozilla/menu.pl";
|
|
| 903 | 902 |
&menubar; |
| 904 | 903 |
} |
| 905 | 904 |
# button for saving history |
| ... | ... | |
| 1386 | 1385 |
|
| 1387 | 1386 |
<input type=hidden name=nextsub value=$form->{nextsub}>
|
| 1388 | 1387 |
|
| 1389 |
<input type=hidden name=path value=$form->{path}>
|
|
| 1390 | 1388 |
<input type=hidden name=login value=$form->{login}>
|
| 1391 | 1389 |
<input type=hidden name=password value=$form->{password}>
|
| 1392 | 1390 |
|
| ... | ... | |
| 1415 | 1413 |
AR->ar_transactions(\%myconfig, \%$form); |
| 1416 | 1414 |
|
| 1417 | 1415 |
$callback = |
| 1418 |
"$form->{script}?action=ar_transactions&path=$form->{path}&login=$form->{login}&password=$form->{password}";
|
|
| 1416 |
"$form->{script}?action=ar_transactions&login=$form->{login}&password=$form->{password}";
|
|
| 1419 | 1417 |
$href = $callback; |
| 1420 | 1418 |
|
| 1421 | 1419 |
if ($form->{customer}) {
|
| ... | ... | |
| 1645 | 1643 |
$module = ($ar->{invoice}) ? "is.pl" : $form->{script};
|
| 1646 | 1644 |
|
| 1647 | 1645 |
$column_data{invnumber} =
|
| 1648 |
"<td><a href=$module?action=edit&id=$ar->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ar->{invnumber}</a></td>";
|
|
| 1646 |
"<td><a href=$module?action=edit&id=$ar->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ar->{invnumber}</a></td>";
|
|
| 1649 | 1647 |
$column_data{type} = "<td>" .
|
| 1650 | 1648 |
($ar->{storno} ? $locale->text("Storno (one letter abbreviation)") :
|
| 1651 | 1649 |
$ar->{amount} < 0 ?
|
| ... | ... | |
| 1720 | 1718 |
|
| 1721 | 1719 |
<input name=callback type=hidden value="$form->{callback}">
|
| 1722 | 1720 |
|
| 1723 |
<input type=hidden name=path value=$form->{path}>
|
|
| 1724 | 1721 |
<input type=hidden name=login value=$form->{login}>
|
| 1725 | 1722 |
<input type=hidden name=password value=$form->{password}>
|
| 1726 | 1723 |
|
| bin/mozilla/arap.pl | ||
|---|---|---|
| 31 | 31 |
# |
| 32 | 32 |
|
| 33 | 33 |
# any custom scripts for this one |
| 34 |
if (-f "$form->{path}/custom_arap.pl") {
|
|
| 35 |
eval { require "$form->{path}/custom_arap.pl"; };
|
|
| 34 |
if (-f "bin/mozilla/custom_arap.pl") {
|
|
| 35 |
eval { require "bin/mozilla/custom_arap.pl"; };
|
|
| 36 | 36 |
} |
| 37 |
if (-f "$form->{path}/$form->{login}_arap.pl") {
|
|
| 38 |
eval { require "$form->{path}/$form->{login}_arap.pl"; };
|
|
| 37 |
if (-f "bin/mozilla/$form->{login}_arap.pl") {
|
|
| 38 |
eval { require "bin/mozilla/$form->{login}_arap.pl"; };
|
|
| 39 | 39 |
} |
| 40 | 40 |
|
| 41 | 41 |
1; |
| bin/mozilla/bp.pl | ||
|---|---|---|
| 229 | 229 |
|
| 230 | 230 |
<input type=hidden name=nextsub value=list_spool> |
| 231 | 231 |
|
| 232 |
<input type=hidden name=path value=$form->{path}>
|
|
| 233 | 232 |
<input type=hidden name=login value=$form->{login}>
|
| 234 | 233 |
<input type=hidden name=password value=$form->{password}>
|
| 235 | 234 |
|
| ... | ... | |
| 353 | 352 |
|
| 354 | 353 |
$title = $form->escape($form->{title});
|
| 355 | 354 |
$href = |
| 356 |
"$form->{script}?action=list_spool&path=$form->{path}&login=$form->{login}&password=$form->{password}&vc=$form->{vc}&type=$form->{type}&title=$title";
|
|
| 355 |
"$form->{script}?action=list_spool&login=$form->{login}&password=$form->{password}&vc=$form->{vc}&type=$form->{type}&title=$title";
|
|
| 357 | 356 |
|
| 358 | 357 |
$title = $form->escape($form->{title}, 1);
|
| 359 | 358 |
$callback = |
| 360 |
"$form->{script}?action=list_spool&path=$form->{path}&login=$form->{login}&password=$form->{password}&vc=$form->{vc}&type=$form->{type}&title=$title";
|
|
| 359 |
"$form->{script}?action=list_spool&login=$form->{login}&password=$form->{password}&vc=$form->{vc}&type=$form->{type}&title=$title";
|
|
| 361 | 360 |
|
| 362 | 361 |
if ($form->{ $form->{vc} }) {
|
| 363 | 362 |
$callback .= "&$form->{vc}=" . $form->escape($form->{ $form->{vc} }, 1);
|
| ... | ... | |
| 507 | 506 |
} |
| 508 | 507 |
|
| 509 | 508 |
$column_data{invnumber} =
|
| 510 |
"<td><a href=$module?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&type=$form->{type}&callback=$callback>$ref->{invnumber}</a></td>";
|
|
| 509 |
"<td><a href=$module?action=edit&id=$ref->{id}&login=$form->{login}&password=$form->{password}&type=$form->{type}&callback=$callback>$ref->{invnumber}</a></td>";
|
|
| 511 | 510 |
$column_data{ordnumber} =
|
| 512 |
"<td><a href=$module?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&type=$form->{type}&callback=$callback>$ref->{ordnumber}</a></td>";
|
|
| 511 |
"<td><a href=$module?action=edit&id=$ref->{id}&login=$form->{login}&password=$form->{password}&type=$form->{type}&callback=$callback>$ref->{ordnumber}</a></td>";
|
|
| 513 | 512 |
$column_data{quonumber} =
|
| 514 |
"<td><a href=$module?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&type=$form->{type}&callback=$callback>$ref->{quonumber}</a></td>";
|
|
| 513 |
"<td><a href=$module?action=edit&id=$ref->{id}&login=$form->{login}&password=$form->{password}&type=$form->{type}&callback=$callback>$ref->{quonumber}</a></td>";
|
|
| 515 | 514 |
$column_data{name} = "<td>$ref->{name}</td>";
|
| 516 | 515 |
$column_data{spoolfile} =
|
| 517 | 516 |
qq|<td><a href=$spool/$ref->{spoolfile}>$ref->{spoolfile}</a></td>
|
| ... | ... | |
| 556 | 555 |
|
| 557 | 556 |
<input type=hidden name=account value="$form->{account}">
|
| 558 | 557 |
|
| 559 |
<input type=hidden name=path value=$form->{path}>
|
|
| 560 | 558 |
<input type=hidden name=login value=$form->{login}>
|
| 561 | 559 |
<input type=hidden name=password value=$form->{password}>
|
| 562 | 560 |
|; |
| bin/mozilla/ca.pl | ||
|---|---|---|
| 107 | 107 |
$description = $form->escape($ca->{description});
|
| 108 | 108 |
|
| 109 | 109 |
$href = |
| 110 |
qq|$form->{script}?path=$form->{path}&action=list&accno=$ca->{accno}&login=$form->{login}&password=$form->{password}&description=$description|;
|
|
| 110 |
qq|$form->{script}?action=list&accno=$ca->{accno}&login=$form->{login}&password=$form->{password}&description=$description|;
|
|
| 111 | 111 |
|
| 112 | 112 |
if ($ca->{charttype} eq "H") {
|
| 113 | 113 |
print qq|<tr class=listheading>|; |
| ... | ... | |
| 239 | 239 |
</table> |
| 240 | 240 |
|
| 241 | 241 |
<input type=hidden name=login value=$form->{login}>
|
| 242 |
<input type=hidden name=path value=$form->{path}>
|
|
| 243 | 242 |
<input type=hidden name=password value=$form->{password}>
|
| 244 | 243 |
|
| 245 | 244 |
<br><input class=submit type=submit name=action value="| |
| ... | ... | |
| 265 | 264 |
|
| 266 | 265 |
# construct href |
| 267 | 266 |
$href = |
| 268 |
"$form->{script}?path=$form->{path}&action=list_transactions&accno=$form->{accno}&login=$form->{login}&password=$form->{password}&fromdate=$form->{fromdate}&todate=$form->{todate}&description=$description&accounttype=$form->{accounttype}&l_heading=$form->{l_heading}&l_subtotal=$form->{l_subtotal}&department=$department&projectnumber=$projectnumber&project_id=$form->{project_id}&title=$title";
|
|
| 267 |
"$form->{script}?action=list_transactions&accno=$form->{accno}&login=$form->{login}&password=$form->{password}&fromdate=$form->{fromdate}&todate=$form->{todate}&description=$description&accounttype=$form->{accounttype}&l_heading=$form->{l_heading}&l_subtotal=$form->{l_subtotal}&department=$department&projectnumber=$projectnumber&project_id=$form->{project_id}&title=$title";
|
|
| 269 | 268 |
|
| 270 | 269 |
$description = $form->escape($form->{description}, 1);
|
| 271 | 270 |
$department = $form->escape($form->{department}, 1);
|
| ... | ... | |
| 274 | 273 |
|
| 275 | 274 |
# construct callback |
| 276 | 275 |
$callback = |
| 277 |
"$form->{script}?path=$form->{path}&action=list_transactions&accno=$form->{accno}&login=$form->{login}&password=$form->{password}&fromdate=$form->{fromdate}&todate=$form->{todate}&description=$description&accounttype=$form->{accounttype}&l_heading=$form->{l_heading}&l_subtotal=$form->{l_subtotal}&department=$department&projectnumber=$projectnumber&project_id=$form->{project_id}&title=$title";
|
|
| 276 |
"$form->{script}?action=list_transactions&accno=$form->{accno}&login=$form->{login}&password=$form->{password}&fromdate=$form->{fromdate}&todate=$form->{todate}&description=$description&accounttype=$form->{accounttype}&l_heading=$form->{l_heading}&l_subtotal=$form->{l_subtotal}&department=$department&projectnumber=$projectnumber&project_id=$form->{project_id}&title=$title";
|
|
| 278 | 277 |
|
| 279 | 278 |
# figure out which column comes first |
| 280 | 279 |
$column_header{transdate} =
|
| ... | ... | |
| 391 | 390 |
|
| 392 | 391 |
# construct link to source |
| 393 | 392 |
$href = |
| 394 |
"<a href=$ca->{module}.pl?path=$form->{path}&action=edit&id=$ca->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ca->{reference}</a>";
|
|
| 393 |
"<a href=$ca->{module}.pl?action=edit&id=$ca->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ca->{reference}</a>";
|
|
| 395 | 394 |
my $debit = ($ca->{debit} != 0) ? $form->format_amount(\%myconfig, $ca->{debit}, 2, " ") : " ";
|
| 396 | 395 |
$column_data{debit} =
|
| 397 | 396 |
"<td align=right>$debit</td>"; |
| bin/mozilla/cp.pl | ||
|---|---|---|
| 36 | 36 |
use SL::IS; |
| 37 | 37 |
use SL::IR; |
| 38 | 38 |
|
| 39 |
require "$form->{path}/arap.pl";
|
|
| 39 |
require "bin/mozilla/arap.pl";
|
|
| 40 | 40 |
require "bin/mozilla/common.pl"; |
| 41 | 41 |
|
| 42 | 42 |
1; |
| ... | ... | |
| 467 | 467 |
</table> |
| 468 | 468 |
<input type=hidden name=rowcount value=$form->{rowcount}>
|
| 469 | 469 |
|
| 470 |
<input type=hidden name=path value=$form->{path}>
|
|
| 471 | 470 |
<input type=hidden name=login value=$form->{login}>
|
| 472 | 471 |
<input type=hidden name=password value=$form->{password}>
|
| 473 | 472 |
|
| ... | ... | |
| 724 | 723 |
|
| 725 | 724 |
if ($form->{media} ne 'screen') {
|
| 726 | 725 |
$form->{callback} =
|
| 727 |
"$form->{script}?action=payment&vc=$form->{vc}&path=$form->{path}&login=$form->{login}&password=$form->{password}&all_vc=$form->{all_vc}";
|
|
| 726 |
"$form->{script}?action=payment&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&all_vc=$form->{all_vc}";
|
|
| 728 | 727 |
|
| 729 | 728 |
$form->redirect if (CP->process_payment(\%myconfig, \%$form)); |
| 730 | 729 |
$form->error($locale->text('Cannot post payment!'));
|
| bin/mozilla/ct.pl | ||
|---|---|---|
| 54 | 54 |
$form->{title} = "Add";
|
| 55 | 55 |
|
| 56 | 56 |
$form->{callback} =
|
| 57 |
"$form->{script}?action=add&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}"
|
|
| 57 |
"$form->{script}?action=add&db=$form->{db}&login=$form->{login}&password=$form->{password}"
|
|
| 58 | 58 |
unless $form->{callback};
|
| 59 | 59 |
|
| 60 | 60 |
CT->populate_drop_down_boxes(\%myconfig, \%$form); |
| ... | ... | |
| 199 | 199 |
|
| 200 | 200 |
<input type=hidden name=nextsub value=list_names> |
| 201 | 201 |
|
| 202 |
<input type=hidden name=path value=$form->{path}>
|
|
| 203 | 202 |
<input type=hidden name=login value=$form->{login}>
|
| 204 | 203 |
<input type=hidden name=password value=$form->{password}>
|
| 205 | 204 |
|
| ... | ... | |
| 313 | 312 |
|
| 314 | 313 |
<input type=hidden name=nextsub value=list_names> |
| 315 | 314 |
|
| 316 |
<input type=hidden name=path value=$form->{path}>
|
|
| 317 | 315 |
<input type=hidden name=login value=$form->{login}>
|
| 318 | 316 |
<input type=hidden name=password value=$form->{password}>
|
| 319 | 317 |
|
| ... | ... | |
| 334 | 332 |
CT->search(\%myconfig, \%$form); |
| 335 | 333 |
|
| 336 | 334 |
$callback = |
| 337 |
"$form->{script}?action=list_names&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}&status=$form->{status}&obsolete=$form->{obsolete}";
|
|
| 335 |
"$form->{script}?action=list_names&db=$form->{db}&login=$form->{login}&password=$form->{password}&status=$form->{status}&obsolete=$form->{obsolete}";
|
|
| 338 | 336 |
$href = $callback; |
| 339 | 337 |
|
| 340 | 338 |
@columns = |
| ... | ... | |
| 496 | 494 |
(invnumber, ordnumber, quonumber); |
| 497 | 495 |
|
| 498 | 496 |
$column_data{name} =
|
| 499 |
"<td align=left><a href=$form->{script}?action=edit&id=$ref->{id}&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}&status=$form->{status}&callback=$callback>$ref->{name} </td>";
|
|
| 497 |
"<td align=left><a href=$form->{script}?action=edit&id=$ref->{id}&db=$form->{db}&login=$form->{login}&password=$form->{password}&status=$form->{status}&callback=$callback>$ref->{name} </td>";
|
|
| 500 | 498 |
|
| 501 | 499 |
if ($ref->{email}) {
|
| 502 | 500 |
$email = $ref->{email};
|
| ... | ... | |
| 511 | 509 |
|
| 512 | 510 |
if ($ref->{formtype} eq 'invoice') {
|
| 513 | 511 |
$column_data{invnumber} =
|
| 514 |
"<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber} </td>";
|
|
| 512 |
"<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber} </td>";
|
|
| 515 | 513 |
} |
| 516 | 514 |
|
| 517 | 515 |
if ($ref->{formtype} eq 'order') {
|
| 518 | 516 |
$column_data{ordnumber} =
|
| 519 |
"<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&type=$ordertype&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{ordnumber} </td>";
|
|
| 517 |
"<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&type=$ordertype&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{ordnumber} </td>";
|
|
| 520 | 518 |
} |
| 521 | 519 |
|
| 522 | 520 |
if ($ref->{formtype} eq 'quotation') {
|
| 523 | 521 |
$column_data{quonumber} =
|
| 524 |
"<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&type=$quotationtype&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{quonumber} </td>";
|
|
| 522 |
"<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&type=$quotationtype&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{quonumber} </td>";
|
|
| 525 | 523 |
} |
| 526 | 524 |
|
| 527 | 525 |
$i++; |
| ... | ... | |
| 555 | 553 |
<input name=callback type=hidden value="$form->{callback}">
|
| 556 | 554 |
<input name=db type=hidden value=$form->{db}>
|
| 557 | 555 |
|
| 558 |
<input type=hidden name=path value=$form->{path}>
|
|
| 559 | 556 |
<input type=hidden name=login value=$form->{login}>
|
| 560 | 557 |
<input type=hidden name=password value=$form->{password}>
|
| 561 | 558 |
|
| ... | ... | |
| 661 | 658 |
|; |
| 662 | 659 |
|
| 663 | 660 |
$get_contact_url = |
| 664 |
"$form->{script}?login=$form->{login}&path=$form->{path}&password=$form->{password}&action=get_contact";
|
|
| 661 |
"$form->{script}?login=$form->{login}&password=$form->{password}&action=get_contact";
|
|
| 665 | 662 |
|
| 666 | 663 |
my $pjx = new CGI::Ajax( 'get_contact' => $get_contact_url ); |
| 667 | 664 |
$form->{selectcontact} = "<option value=0></option>";
|
| ... | ... | |
| 685 | 682 |
<input type=hidden name=selectcontact value="$form->{selectcontact}">
|
| 686 | 683 |
</tr>|; |
| 687 | 684 |
$get_shipto_url = |
| 688 |
"$form->{script}?login=$form->{login}&path=$form->{path}&password=$form->{password}&action=get_shipto";
|
|
| 685 |
"$form->{script}?login=$form->{login}&password=$form->{password}&action=get_shipto";
|
|
| 689 | 686 |
|
| 690 | 687 |
my $pjy = new CGI::Ajax( 'get_shipto' => $get_shipto_url ); |
| 691 | 688 |
$form->{selectshipto} = "<option value=0></option>";
|
| ... | ... | |
| 713 | 710 |
|
| 714 | 711 |
|
| 715 | 712 |
$get_delivery_url = |
| 716 |
"$form->{script}?login=$form->{login}&path=$form->{path}&password=$form->{password}&action=get_delivery";
|
|
| 713 |
"$form->{script}?login=$form->{login}&password=$form->{password}&action=get_delivery";
|
|
| 717 | 714 |
|
| 718 | 715 |
my $pjz = new CGI::Ajax( 'get_delivery' => $get_delivery_url ); |
| 719 | 716 |
|
| ... | ... | |
| 1195 | 1192 |
<input name=business_save type=hidden value="$form->{selectbusiness}">
|
| 1196 | 1193 |
<input name=title_save type=hidden value="$form->{title}">
|
| 1197 | 1194 |
|
| 1198 |
<input type=hidden name=path value=$form->{path}>
|
|
| 1199 | 1195 |
<input type=hidden name=login value=$form->{login}>
|
| 1200 | 1196 |
<input type=hidden name=password value=$form->{password}>
|
| 1201 | 1197 |
|
| ... | ... | |
| 1269 | 1265 |
$name = $form->escape("$form->{name}", 1);
|
| 1270 | 1266 |
|
| 1271 | 1267 |
$form->{callback} =
|
| 1272 |
"$form->{script}?login=$form->{login}&path=$form->{path}&password=$form->{password}&action=add&vc=$form->{db}&$form->{db}_id=$form->{id}&$form->{db}=$name&type=$form->{type}&callback=$form->{callback}";
|
|
| 1268 |
"$form->{script}?login=$form->{login}&password=$form->{password}&action=add&vc=$form->{db}&$form->{db}_id=$form->{id}&$form->{db}=$name&type=$form->{type}&callback=$form->{callback}";
|
|
| 1273 | 1269 |
$form->redirect; |
| 1274 | 1270 |
|
| 1275 | 1271 |
$lxdebug->leave_sub(); |
| bin/mozilla/datev.pl | ||
|---|---|---|
| 113 | 113 |
|
| 114 | 114 |
<input type=hidden name=nextsub value=export2> |
| 115 | 115 |
|
| 116 |
<input type=hidden name=path value=$form->{path}>
|
|
| 117 | 116 |
<input type=hidden name=login value=$form->{login}>
|
| 118 | 117 |
<input type=hidden name=password value=$form->{password}>
|
| 119 | 118 |
|
| ... | ... | |
| 248 | 247 |
|
| 249 | 248 |
<input type=hidden name=nextsub value=export3> |
| 250 | 249 |
|
| 251 |
<input type=hidden name=path value=$form->{path}>
|
|
| 252 | 250 |
<input type=hidden name=login value=$form->{login}>
|
| 253 | 251 |
<input type=hidden name=password value=$form->{password}>
|
| 254 | 252 |
|
| ... | ... | |
| 314 | 312 |
|
| 315 | 313 |
<input type=hidden name=nextsub value=export3> |
| 316 | 314 |
|
| 317 |
<input type=hidden name=path value=$form->{path}>
|
|
| 318 | 315 |
<input type=hidden name=login value=$form->{login}>
|
| 319 | 316 |
<input type=hidden name=password value=$form->{password}>
|
| 320 | 317 |
|
| ... | ... | |
| 336 | 333 |
DATEV->save_datev_stamm(\%myconfig, \%$form); |
| 337 | 334 |
|
| 338 | 335 |
my $link = $form->{"script"} . "?";
|
| 339 |
map({ $link .= "${_}=" . $form->escape($form->{$_}) . "&"; } qw(path login password));
|
|
| 336 |
map({ $link .= "${_}=" . $form->escape($form->{$_}) . "&"; } qw(login password));
|
|
| 340 | 337 |
$link .= "action=download"; |
| 341 | 338 |
|
| 342 | 339 |
if ($form->{kne}) {
|
| bin/mozilla/dn.pl | ||
|---|---|---|
| 36 | 36 |
use SL::DN; |
| 37 | 37 |
use Data::Dumper; |
| 38 | 38 |
|
| 39 |
require "$form->{path}/io.pl";
|
|
| 40 |
require "$form->{path}/arap.pl";
|
|
| 39 |
require "bin/mozilla/io.pl";
|
|
| 40 |
require "bin/mozilla/arap.pl";
|
|
| 41 | 41 |
|
| 42 | 42 |
1; |
| 43 | 43 |
|
| ... | ... | |
| 51 | 51 |
$form->{title} = $locale->text('Edit Dunning Process Config');
|
| 52 | 52 |
|
| 53 | 53 |
$form->{callback} =
|
| 54 |
"$form->{script}?action=edit_config&path=$form->{path}&login=$form->{login}&password=$form->{password}"
|
|
| 54 |
"$form->{script}?action=edit_config&login=$form->{login}&password=$form->{password}"
|
|
| 55 | 55 |
unless $form->{callback};
|
| 56 | 56 |
|
| 57 | 57 |
@column_index = qw(dunning_level dunning_description active auto email payment_terms terms fee interest template); |
| ... | ... | |
| 201 | 201 |
<input name=callback type=hidden value="$form->{callback}">
|
| 202 | 202 |
<input name=rowcount type=hidden value="$form->{rowcount}">
|
| 203 | 203 |
|
| 204 |
<input type=hidden name=path value=$form->{path}>
|
|
| 205 | 204 |
<input type=hidden name=login value=$form->{login}>
|
| 206 | 205 |
<input type=hidden name=password value=$form->{password}>
|
| 207 | 206 |
|
| ... | ... | |
| 348 | 347 |
|
| 349 | 348 |
<input type=hidden name=nextsub value=$form->{nextsub}>
|
| 350 | 349 |
|
| 351 |
<input type=hidden name=path value=$form->{path}>
|
|
| 352 | 350 |
<input type=hidden name=login value=$form->{login}>
|
| 353 | 351 |
<input type=hidden name=password value=$form->{password}>
|
| 354 | 352 |
|
| ... | ... | |
| 386 | 384 |
$form->{nextsub} = "save_dunning";
|
| 387 | 385 |
|
| 388 | 386 |
$form->{callback} =
|
| 389 |
"$form->{script}?action=show_invoices&path=$form->{path}&login=$form->{login}&password=$form->{password}&customer=$form->{customer}&invnumber=$form->{invnumber}&ordnumber=$form->{ordnumber}&paymentuntil=$form->{paymentuntil}&groupinvoices=$form->{groupinvoices}&minamount=$form->{minamount}&dunning_level=$form->{dunning_level}¬es=$form->{notes}"
|
|
| 387 |
"$form->{script}?action=show_invoices&login=$form->{login}&password=$form->{password}&customer=$form->{customer}&invnumber=$form->{invnumber}&ordnumber=$form->{ordnumber}&paymentuntil=$form->{paymentuntil}&groupinvoices=$form->{groupinvoices}&minamount=$form->{minamount}&dunning_level=$form->{dunning_level}¬es=$form->{notes}"
|
|
| 390 | 388 |
unless $form->{callback};
|
| 391 | 389 |
|
| 392 | 390 |
@column_index = qw(dunning_description active email customername invnumber invdate inv_duedate invamount next_duedate fee interest ); |
| ... | ... | |
| 523 | 521 |
<input name=groupinvoices type=hidden value="$form->{groupinvoices}">
|
| 524 | 522 |
|
| 525 | 523 |
|
| 526 |
<input type=hidden name=path value=$form->{path}>
|
|
| 527 | 524 |
<input type=hidden name=login value=$form->{login}>
|
| 528 | 525 |
<input type=hidden name=password value=$form->{password}>
|
| 529 | 526 |
<input type="hidden" name="action"> |
| ... | ... | |
| 627 | 624 |
|
| 628 | 625 |
my $callback = "$form->{script}?action=set_email&";
|
| 629 | 626 |
map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
|
| 630 |
(qw(login path password name input_subject input_body input_attachment email_subject email_body email_attachment), grep({ /^[fl]_/ } keys %$form)));
|
|
| 627 |
(qw(login password name input_subject input_body input_attachment email_subject email_body email_attachment), grep({ /^[fl]_/ } keys %$form)));
|
|
| 631 | 628 |
|
| 632 | 629 |
if ($form->{email_attachment}) {
|
| 633 | 630 |
$form->{email_attachment} = "checked";
|
| ... | ... | |
| 798 | 795 |
|
| 799 | 796 |
<input type=hidden name=nextsub value=$form->{nextsub}>
|
| 800 | 797 |
|
| 801 |
<input type=hidden name=path value=$form->{path}>
|
|
| 802 | 798 |
<input type=hidden name=login value=$form->{login}>
|
| 803 | 799 |
<input type=hidden name=password value=$form->{password}>
|
| 804 | 800 |
|
| ... | ... | |
| 830 | 826 |
|
| 831 | 827 |
|
| 832 | 828 |
$form->{callback} =
|
| 833 |
"$form->{script}?action=show_dunning&path=$form->{path}&login=$form->{login}&password=$form->{password}&customer=$form->{customer}&invnumber=$form->{invnumber}&ordnumber=$form->{ordnumber}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&dunningfrom=$form->{dunningfrom}&dunningto=$form->{dunningto}¬es=$form->{notes}&showold=$form->{showold}&dunning_level=$form->{dunning_level}"
|
|
| 829 |
"$form->{script}?action=show_dunning&login=$form->{login}&password=$form->{password}&customer=$form->{customer}&invnumber=$form->{invnumber}&ordnumber=$form->{ordnumber}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&dunningfrom=$form->{dunningfrom}&dunningto=$form->{dunningto}¬es=$form->{notes}&showold=$form->{showold}&dunning_level=$form->{dunning_level}"
|
|
| 834 | 830 |
unless $form->{callback};
|
| 835 | 831 |
|
| 836 | 832 |
@column_index = qw(dunning_description customername invnumber invdate inv_duedate invamount dunning_date next_duedate fee interest ); |
| ... | ... | |
| 936 | 932 |
$column_data{dunning_description} =
|
| 937 | 933 |
qq|<td><a href="dn.pl?action=print_dunning&format=pdf&media=screen&| . |
| 938 | 934 |
qq|dunning_id=| . E($ref->{dunning_id}) .
|
| 939 |
join(map({ "&${_}=" . E($form->{$_}) } qw(login path password callback))) .
|
|
| 935 |
join(map({ "&${_}=" . E($form->{$_}) } qw(login password callback))) .
|
|
| 940 | 936 |
qq|">| . H($ref->{dunning_description}) . qq|</a></td>|;
|
| 941 | 937 |
} else {
|
| 942 | 938 |
$column_data{dunning_description} = qq|<td> </td>|;
|
| ... | ... | |
| 946 | 942 |
$column_data{invnumber} =
|
| 947 | 943 |
qq|<td><a href="| . ($ref->{invoice} ? "is.pl" : "ar.pl" ) .
|
| 948 | 944 |
qq|?action=edit&id=| . H($ref->{id}) .
|
| 949 |
join(map({ "&${_}=" . E($form->{$_}) } qw(login path password callback))) .
|
|
| 945 |
join(map({ "&${_}=" . E($form->{$_}) } qw(login password callback))) .
|
|
| 950 | 946 |
qq|">| . H($ref->{invnumber}) . qq|</a></td>|;
|
| 951 | 947 |
|
| 952 | 948 |
map { print "$column_data{$_}\n" } @column_index;
|
| ... | ... | |
| 975 | 971 |
<input name=nextsub type=hidden value="$form->{nextsub}">
|
| 976 | 972 |
|
| 977 | 973 |
|
| 978 |
<input type=hidden name=path value=$form->{path}>
|
|
| 979 | 974 |
<input type=hidden name=login value=$form->{login}>
|
| 980 | 975 |
<input type=hidden name=password value=$form->{password}>
|
| 981 | 976 |
|
| bin/mozilla/gl.pl | ||
|---|---|---|
| 34 | 34 |
use SL::GL; |
| 35 | 35 |
use SL::PE; |
| 36 | 36 |
|
| 37 |
require "$form->{path}/arap.pl";
|
|
| 37 |
require "bin/mozilla/arap.pl";
|
|
| 38 | 38 |
require "bin/mozilla/common.pl"; |
| 39 | 39 |
|
| 40 | 40 |
1; |
| ... | ... | |
| 75 | 75 |
$form->{title} = "Add";
|
| 76 | 76 |
|
| 77 | 77 |
$form->{callback} =
|
| 78 |
"$form->{script}?action=add&path=$form->{path}&login=$form->{login}&password=$form->{password}"
|
|
| 78 |
"$form->{script}?action=add&login=$form->{login}&password=$form->{password}"
|
|
| 79 | 79 |
unless $form->{callback};
|
| 80 | 80 |
|
| 81 | 81 |
# we use this only to set a default date |
| ... | ... | |
| 364 | 364 |
|
| 365 | 365 |
<input type=hidden name=nextsub value=generate_report> |
| 366 | 366 |
|
| 367 |
<input type=hidden name=path value=$form->{path}>
|
|
| 368 | 367 |
<input type=hidden name=login value=$form->{login}>
|
| 369 | 368 |
<input type=hidden name=password value=$form->{password}>
|
| 370 | 369 |
|
| ... | ... | |
| 387 | 386 |
GL->all_transactions(\%myconfig, \%$form); |
| 388 | 387 |
|
| 389 | 388 |
$callback = |
| 390 |
"$form->{script}?action=generate_report&path=$form->{path}&login=$form->{login}&password=$form->{password}";
|
|
| 389 |
"$form->{script}?action=generate_report&login=$form->{login}&password=$form->{password}";
|
|
| 391 | 390 |
|
| 392 | 391 |
$href = $callback; |
| 393 | 392 |
|
| ... | ... | |
| 768 | 767 |
$column_data{id} = "<td align=right> $ref->{id} </td>";
|
| 769 | 768 |
$column_data{transdate} = "<td align=center>$transdate</td>";
|
| 770 | 769 |
$column_data{reference} =
|
| 771 |
"<td align=center><a href=$ref->{module}.pl?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{reference}</td>";
|
|
| 770 |
"<td align=center><a href=$ref->{module}.pl?action=edit&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{reference}</td>";
|
|
| 772 | 771 |
$column_data{description} = "<td align=center>$ref->{description} </td>";
|
| 773 | 772 |
$column_data{source} = "<td align=center>$ref->{source} </td>";
|
| 774 | 773 |
$column_data{notes} = "<td align=center>$ref->{notes} </td>";
|
| ... | ... | |
| 871 | 870 |
|
| 872 | 871 |
<input name=callback type=hidden value="$form->{callback}">
|
| 873 | 872 |
|
| 874 |
<input type=hidden name=path value=$form->{path}>
|
|
| 875 | 873 |
<input type=hidden name=login value=$form->{login}>
|
| 876 | 874 |
<input type=hidden name=password value=$form->{password}>
|
| 877 | 875 |
|
| ... | ... | |
| 1455 | 1453 |
</tr> |
| 1456 | 1454 |
</table> |
| 1457 | 1455 |
|
| 1458 |
<input type=hidden name=path value=$form->{path}>
|
|
| 1459 | 1456 |
<input type=hidden name=login value=$form->{login}>
|
| 1460 | 1457 |
<input type=hidden name=password value=$form->{password}>
|
| 1461 | 1458 |
|
| bin/mozilla/ic.pl | ||
|---|---|---|
| 36 | 36 |
|
| 37 | 37 |
#use SL::PE; |
| 38 | 38 |
|
| 39 |
require "$form->{path}/io.pl";
|
|
| 39 |
require "bin/mozilla/io.pl";
|
|
| 40 | 40 |
require "bin/mozilla/common.pl"; |
| 41 | 41 |
|
| 42 | 42 |
1; |
| ... | ... | |
| 49 | 49 |
$form->{title} = $locale->text('Add ' . ucfirst $form->{item});
|
| 50 | 50 |
|
| 51 | 51 |
$form->{callback} =
|
| 52 |
"$form->{script}?action=add&item=$form->{item}&path=$form->{path}&login=$form->{login}&password=$form->{password}"
|
|
| 52 |
"$form->{script}?action=add&item=$form->{item}&login=$form->{login}&password=$form->{password}"
|
|
| 53 | 53 |
unless $form->{callback};
|
| 54 | 54 |
|
| 55 | 55 |
$form->{"unit_changeable"} = 1;
|
| ... | ... | |
| 375 | 375 |
|
| 376 | 376 |
<input type=hidden name=nextsub value=generate_report> |
| 377 | 377 |
|
| 378 |
<input type=hidden name=path value=$form->{path}>
|
|
| 379 | 378 |
<input type=hidden name=login value=$form->{login}>
|
| 380 | 379 |
<input type=hidden name=password value=$form->{password}>
|
| 381 | 380 |
|
| ... | ... | |
| 559 | 558 |
<input type=hidden name=nextsub value=confirm_price_update> |
| 560 | 559 |
<input type=hidden name=price_rows value=$form->{price_rows}>
|
| 561 | 560 |
|
| 562 |
<input type=hidden name=path value=$form->{path}>
|
|
| 563 | 561 |
<input type=hidden name=login value=$form->{login}>
|
| 564 | 562 |
<input type=hidden name=password value=$form->{password}>
|
| 565 | 563 |
|
| ... | ... | |
| 658 | 656 |
|
| 659 | 657 |
print qq| |
| 660 | 658 |
|
| 661 |
<input type=hidden name=path value=$form->{path}>
|
|
| 662 | 659 |
<input type=hidden name=login value=$form->{login}>
|
| 663 | 660 |
<input type=hidden name=password value=$form->{password}>
|
| 664 | 661 |
|
| ... | ... | |
| 805 | 802 |
<br> |
| 806 | 803 |
|
| 807 | 804 |
|
| 808 |
<input type=hidden name=path value=$form->{path}>
|
|
| 809 | 805 |
<input type=hidden name=login value=$form->{login}>
|
| 810 | 806 |
<input type=hidden name=password value=$form->{password}>
|
| 811 | 807 |
|
| ... | ... | |
| 926 | 922 |
} #fi |
| 927 | 923 |
|
| 928 | 924 |
$callback = |
| 929 |
"$form->{script}?action=top100&path=$form->{path}&login=$form->{login}&password=$form->{password}&searchitems=$form->{searchitems}&itemstatus=$form->{itemstatus}&bom=$form->{bom}&l_linetotal=$form->{l_linetotal}&title="
|
|
| 925 |
"$form->{script}?action=top100&login=$form->{login}&password=$form->{password}&searchitems=$form->{searchitems}&itemstatus=$form->{itemstatus}&bom=$form->{bom}&l_linetotal=$form->{l_linetotal}&title="
|
|
| 930 | 926 |
. $form->escape($form->{title}, 1);
|
| 931 | 927 |
|
| 932 | 928 |
# if we have a serialnumber limit search |
| ... | ... | |
| 1356 | 1352 |
|
| 1357 | 1353 |
$column_data{invnumber} =
|
| 1358 | 1354 |
($ref->{module} ne 'oe')
|
| 1359 |
? "<td><a href=$ref->{module}.pl?action=edit&type=invoice&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber}</a></td>"
|
|
| 1355 |
? "<td><a href=$ref->{module}.pl?action=edit&type=invoice&id=$ref->{trans_id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber}</a></td>"
|
|
| 1360 | 1356 |
: "<td>$ref->{invnumber}</td>";
|
| 1361 | 1357 |
$column_data{ordnumber} =
|
| 1362 | 1358 |
($ref->{module} eq 'oe')
|
| 1363 |
? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{ordnumber}</a></td>"
|
|
| 1359 |
? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{ordnumber}</a></td>"
|
|
| 1364 | 1360 |
: "<td>$ref->{ordnumber}</td>";
|
| 1365 | 1361 |
$column_data{quonumber} =
|
| 1366 | 1362 |
($ref->{module} eq 'oe' && !$ref->{ordnumber})
|
| 1367 |
? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{quonumber}</a></td>"
|
|
| 1363 |
? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{quonumber}</a></td>"
|
|
| 1368 | 1364 |
: "<td>$ref->{quonumber}</td>";
|
| 1369 | 1365 |
|
| 1370 | 1366 |
$column_data{name} = "<td>$ref->{name}</td>";
|
| ... | ... | |
| 1436 | 1432 |
|
| 1437 | 1433 |
<form method=post action=$form->{script}>
|
| 1438 | 1434 |
|
| 1439 |
<input type=hidden name=path value=$form->{path}>
|
|
| 1440 | 1435 |
<input type=hidden name=login value=$form->{login}>
|
| 1441 | 1436 |
<input type=hidden name=password value=$form->{password}>
|
| 1442 | 1437 |
|
| ... | ... | |
| 1500 | 1495 |
} #fi |
| 1501 | 1496 |
|
| 1502 | 1497 |
$callback = |
| 1503 |
"$form->{script}?action=generate_report&path=$form->{path}&login=$form->{login}&password=$form->{password}&searchitems=$form->{searchitems}&itemstatus=$form->{itemstatus}&bom=$form->{bom}&l_linetotal=$form->{l_linetotal}&title="
|
|
| 1498 |
"$form->{script}?action=generate_report&login=$form->{login}&password=$form->{password}&searchitems=$form->{searchitems}&itemstatus=$form->{itemstatus}&bom=$form->{bom}&l_linetotal=$form->{l_linetotal}&title="
|
|
| 1504 | 1499 |
. $form->escape($form->{title}, 1);
|
| 1505 | 1500 |
|
| 1506 | 1501 |
# if we have a serialnumber limit search |
| ... | ... | |
| 1841 | 1836 |
/<br>/g; |
| 1842 | 1837 |
|
| 1843 | 1838 |
$column_data{partnumber} =
|
| 1844 |
"<td align=$align><a href=$form->{script}?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{partnumber} </a></td>";
|
|
| 1845 |
$column_data{description} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{description} </a></td>";
|
|
| 1839 |
"<td align=$align><a href=$form->{script}?action=edit&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{partnumber} </a></td>";
|
|
| 1840 |
$column_data{description} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{description} </a></td>";
|
|
| 1846 | 1841 |
$column_data{partsgroup} = "<td>$ref->{partsgroup} </td>";
|
| 1847 | 1842 |
|
| 1848 | 1843 |
$column_data{onhand} =
|
| ... | ... | |
| 1896 | 1891 |
|
| 1897 | 1892 |
$column_data{invnumber} =
|
| 1898 | 1893 |
($ref->{module} ne 'oe')
|
| 1899 |
? "<td><a href=$ref->{module}.pl?action=edit&type=invoice&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber}</a></td>"
|
|
| 1894 |
? "<td><a href=$ref->{module}.pl?action=edit&type=invoice&id=$ref->{trans_id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber}</a></td>"
|
|
| 1900 | 1895 |
: "<td>$ref->{invnumber}</td>";
|
| 1901 | 1896 |
$column_data{ordnumber} =
|
| 1902 | 1897 |
($ref->{module} eq 'oe')
|
| 1903 |
? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{ordnumber}</a></td>"
|
|
| 1898 |
? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{ordnumber}</a></td>"
|
|
| 1904 | 1899 |
: "<td>$ref->{ordnumber}</td>";
|
| 1905 | 1900 |
$column_data{quonumber} =
|
| 1906 | 1901 |
($ref->{module} eq 'oe' && !$ref->{ordnumber})
|
| 1907 |
? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{quonumber}</a></td>"
|
|
| 1902 |
? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{quonumber}</a></td>"
|
|
| 1908 | 1903 |
: "<td>$ref->{quonumber}</td>";
|
| 1909 | 1904 |
|
| 1910 | 1905 |
$column_data{name} = "<td>$ref->{name}</td>";
|
| ... | ... | |
| 1986 | 1981 |
|
| 1987 | 1982 |
<input type=hidden name=item value=$form->{searchitems}>
|
| 1988 | 1983 |
|
| 1989 |
<input type=hidden name=path value=$form->{path}>
|
|
| 1990 | 1984 |
<input type=hidden name=login value=$form->{login}>
|
| 1991 | 1985 |
<input type=hidden name=password value=$form->{password}>|;
|
| 1992 | 1986 |
|
| ... | ... | |
| 2650 | 2644 |
} |
| 2651 | 2645 |
|
| 2652 | 2646 |
print qq| |
| 2653 |
<input type=hidden name=path value=$form->{path}>
|
|
| 2654 | 2647 |
<input type=hidden name=login value=$form->{login}>
|
| 2655 | 2648 |
<input type=hidden name=password value=$form->{password}>
|
| 2656 | 2649 |
<input type=hidden name=callback value="$form->{callback}">
|
| ... | ... | |
| 2707 | 2700 |
|
| 2708 | 2701 |
if (!$form->{previousform}) {
|
| 2709 | 2702 |
if ($form->{menubar}) {
|
| 2710 |
require "$form->{path}/menu.pl";
|
|
| 2703 |
require "bin/mozilla/menu.pl";
|
|
| 2711 | 2704 |
&menubar; |
| 2712 | 2705 |
} |
| 2713 | 2706 |
} |
| ... | ... | |
| 2888 | 2881 |
|
| 2889 | 2882 |
} else {
|
| 2890 | 2883 |
$href = |
| 2891 |
qq|$form->{script}?action=edit&id=$form->{"id_$i"}&path=$form->{path}&login=$form->{login}&password=$form->{password}&rowcount=$i&previousform=$previousform|;
|
|
| 2884 |
qq|$form->{script}?action=edit&id=$form->{"id_$i"}&login=$form->{login}&password=$form->{password}&rowcount=$i&previousform=$previousform|;
|
|
| 2892 | 2885 |
$column_data{partnumber} =
|
| 2893 | 2886 |
qq|<td><input type=hidden name="partnumber_$i" value="$form->{"partnumber_$i"}"><a href=$href>$form->{"partnumber_$i"}</a></td>|;
|
| 2894 | 2887 |
$column_data{runningnumber} =
|
| ... | ... | |
| 3239 | 3232 |
|
| 3240 | 3233 |
my $callback = "$form->{script}?action=parts_language_selection&";
|
| 3241 | 3234 |
map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
|
| 3242 |
(qw(login path password name input_name), grep({ /^[fl]_/ } keys %$form)));
|
|
| 3235 |
(qw(login password name input_name), grep({ /^[fl]_/ } keys %$form)));
|
|
| 3243 | 3236 |
|
| 3244 | 3237 |
my @header_sort = qw(name longdescription); |
| 3245 | 3238 |
my %header_title = ( "name" => $locale->text("Name"),
|
| bin/mozilla/io.pl | ||
|---|---|---|
| 38 | 38 |
use CGI::Ajax; |
| 39 | 39 |
use CGI; |
| 40 | 40 |
|
| 41 |
require "$form->{path}/common.pl";
|
|
| 41 |
require "bin/mozilla/common.pl";
|
|
| 42 | 42 |
|
| 43 | 43 |
# any custom scripts for this one |
| 44 |
if (-f "$form->{path}/custom_io.pl") {
|
|
| 45 |
eval { require "$form->{path}/custom_io.pl"; };
|
|
| 44 |
if (-f "bin/mozilla/custom_io.pl") {
|
|
| 45 |
eval { require "bin/mozilla/custom_io.pl"; };
|
|
| 46 | 46 |
} |
| 47 |
if (-f "$form->{path}/$form->{login}_io.pl") {
|
|
| 48 |
eval { require "$form->{path}/$form->{login}_io.pl"; };
|
|
| 47 |
if (-f "bin/mozilla/$form->{login}_io.pl") {
|
|
| 48 |
eval { require "bin/mozilla/$form->{login}_io.pl"; };
|
|
| 49 | 49 |
} |
| 50 | 50 |
|
| 51 | 51 |
1; |
| ... | ... | |
| 822 | 822 |
. $locale->text('Service');
|
| 823 | 823 |
print $cgi->hidden("-name" => "previousform", "-value" => $previousform);
|
| 824 | 824 |
map({ print($cgi->hidden("-name" => $_, "-value" => $form->{$_})); }
|
| 825 |
("rowcount", "vc", "path", "login", "password"));
|
|
| 825 |
qw(rowcount vc login password));
|
|
| 826 | 826 |
map({ print($cgi->hidden("-name" => $_, "-value" => $form->{"$__$i"})); }
|
| 827 | 827 |
("partnumber", "description"));
|
| 828 | 828 |
print $cgi->hidden("-name" => "taxaccount2", "-value" => $form->{taxaccounts});
|
| ... | ... | |
| 1150 | 1150 |
|
| 1151 | 1151 |
$form->{cp_id} *= 1;
|
| 1152 | 1152 |
|
| 1153 |
require "$form->{path}/$form->{script}";
|
|
| 1153 |
require "bin/mozilla/$form->{script}";
|
|
| 1154 | 1154 |
my $script = $form->{"script"};
|
| 1155 | 1155 |
$script =~ s|.*/||; |
| 1156 | 1156 |
$script =~ s|.pl$||; |
| ... | ... | |
| 1214 | 1214 |
|
| 1215 | 1215 |
$form->{rowcount}--;
|
| 1216 | 1216 |
|
| 1217 |
require "$form->{path}/$form->{script}";
|
|
| 1217 |
require "bin/mozilla/$form->{script}";
|
|
| 1218 | 1218 |
|
| 1219 | 1219 |
map { $form->{"select$_"} = "" } ($form->{vc}, currency);
|
| 1220 | 1220 |
|
| ... | ... | |
| 1425 | 1425 |
|
| 1426 | 1426 |
my $callback = $form->{script} . "?action=edit";
|
| 1427 | 1427 |
map({ $callback .= "\&${_}=" . E($form->{$_}); }
|
| 1428 |
qw(login password path type id));
|
|
| 1428 |
qw(login password type id)); |
|
| 1429 | 1429 |
|
| 1430 | 1430 |
print_form("return");
|
| 1431 | 1431 |
|
| ... | ... | |
| 2191 | 2191 |
map { $form->{$_} = $form->escape($form->{$_}, 1) }
|
| 2192 | 2192 |
qw(partnumber description); |
| 2193 | 2193 |
$form->{callback} =
|
| 2194 |
qq|$form->{script}?login=$form->{login}&path=$form->{path}&password=$form->{password}&action=add&vc=$form->{db}&$form->{db}_id=$form->{id}&$form->{db}=$name&type=$form->{type}&customer=$customer&partnumber=$form->{partnumber}&description=$form->{description}&previousform="$previousform"&initial=1|;
|
|
| 2194 |
qq|$form->{script}?login=$form->{login}&password=$form->{password}&action=add&vc=$form->{db}&$form->{db}_id=$form->{id}&$form->{db}=$name&type=$form->{type}&customer=$customer&partnumber=$form->{partnumber}&description=$form->{description}&previousform="$previousform"&initial=1|;
|
|
| 2195 | 2195 |
$form->redirect; |
| 2196 | 2196 |
|
| 2197 | 2197 |
$lxdebug->leave_sub(); |
| bin/mozilla/ir.pl | ||
|---|---|---|
| 35 | 35 |
use SL::IS; |
| 36 | 36 |
use SL::PE; |
| 37 | 37 |
|
| 38 |
require "$form->{path}/io.pl";
|
|
| 39 |
require "$form->{path}/arap.pl";
|
|
| 40 |
require "$form->{path}/common.pl";
|
|
| 38 |
require "bin/mozilla/io.pl";
|
|
| 39 |
require "bin/mozilla/arap.pl";
|
|
| 40 |
require "bin/mozilla/common.pl";
|
|
| 41 | 41 |
require "bin/mozilla/drafts.pl"; |
| 42 | 42 |
|
| 43 | 43 |
1; |
| ... | ... | |
| 833 | 833 |
|
| 834 | 834 |
<input name=callback type=hidden value="$form->{callback}">
|
| 835 | 835 |
|
| 836 |
<input type=hidden name=path value=$form->{path}>
|
|
| 837 |
<input type=hidden name=login value=$form->{login}>
|
|
| 838 | 836 |
<input type=hidden name=password value=$form->{password}>
|
| 839 | 837 |
| |
| 840 | 838 |
. $cgi->hidden('-name' => 'draft_id', '-default' => [$form->{draft_id}])
|
| bin/mozilla/is.pl | ||
|---|---|---|
| 35 | 35 |
use SL::PE; |
| 36 | 36 |
use Data::Dumper; |
| 37 | 37 |
|
| 38 |
require "$form->{path}/io.pl";
|
|
| 39 |
require "$form->{path}/arap.pl";
|
|
| 38 |
require "bin/mozilla/io.pl";
|
|
| 39 |
require "bin/mozilla/arap.pl";
|
|
| 40 | 40 |
require "bin/mozilla/drafts.pl"; |
| 41 | 41 |
|
| 42 | 42 |
1; |
| ... | ... | |
| 61 | 61 |
|
| 62 | 62 |
|
| 63 | 63 |
$form->{callback} =
|
| 64 |
"$form->{script}?action=add&type=$form->{type}&login=$form->{login}&path=$form->{path}&password=$form->{password}"
|
|
| 64 |
"$form->{script}?action=add&type=$form->{type}&login=$form->{login}&password=$form->{password}"
|
|
| 65 | 65 |
unless $form->{callback};
|
| 66 | 66 |
|
| 67 | 67 |
$form{jsscript} = "date";
|
| ... | ... | |
| 329 | 329 |
} |
| 330 | 330 |
|
| 331 | 331 |
my $set_duedate_url = |
| 332 |
"$form->{script}?login=$form->{login}&path=$form->{path}&password=$form->{password}&action=set_duedate";
|
|
| 332 |
"$form->{script}?login=$form->{login}&password=$form->{password}&action=set_duedate";
|
|
| 333 | 333 |
|
| 334 | 334 |
my $pjx = new CGI::Ajax( 'set_duedate' => $set_duedate_url ); |
| 335 | 335 |
push(@ { $form->{AJAX} }, $pjx);
|
| ... | ... | |
| 1165 | 1165 |
$cgi->hidden("-name" => "callback", "-value" => $form->{callback})
|
| 1166 | 1166 |
. $cgi->hidden('-name' => 'draft_id', '-default' => [$form->{draft_id}])
|
| 1167 | 1167 |
. $cgi->hidden('-name' => 'draft_description', '-default' => [$form->{draft_description}]);
|
| 1168 |
map({ print $cgi->hidden("-name" => $_ , "-value" => $form->{$_});} qw(path login password));
|
|
| 1168 |
map({ print $cgi->hidden("-name" => $_ , "-value" => $form->{$_});} qw(login password));
|
|
| 1169 | 1169 |
print qq| |
| 1170 | 1170 |
</form> |
| 1171 | 1171 |
|
| ... | ... | |
| 1487 | 1487 |
} |
| 1488 | 1488 |
|
| 1489 | 1489 |
map({ my $key = $_; delete($form->{$key})
|
| 1490 |
unless (grep({ $key eq $_ } qw(path login password id type))); }
|
|
| 1490 |
unless (grep({ $key eq $_ } qw(login password id type))); }
|
|
Auch abrufbar als: Unified diff
$form->{path} entfernt und hardcodiert auf bin/mozilla gesetzt.
Vorlagen sind nicht betroffen, aber locales.pl schon.