Revision 662ded38
Von Sven Schöling vor etwa 14 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 1952 | 1952 |
|
| 1953 | 1953 |
$form->{script} = "licenses.pl";
|
| 1954 | 1954 |
|
| 1955 |
our $name; |
|
| 1956 |
|
|
| 1957 | 1955 |
map { $form->{$_} = $form->{"old_$_"} } qw(partnumber description);
|
| 1958 | 1956 |
map { $form->{$_} = $form->escape($form->{$_}, 1) }
|
| 1959 | 1957 |
qw(partnumber description); |
| 1960 | 1958 |
$form->{callback} =
|
| 1961 |
qq|$form->{script}?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|;
|
|
| 1959 |
qq|$form->{script}?action=add&vc=$form->{db}&$form->{db}_id=$form->{id}&$form->{db}=$form->{name}&type=$form->{type}&customer=$customer&partnumber=$form->{partnumber}&description=$form->{description}&previousform="$previousform"&initial=1|;
|
|
| 1962 | 1960 |
$form->redirect; |
| 1963 | 1961 |
|
| 1964 | 1962 |
$main::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
Globale Variablen entfernt/umgewandelt.
Conflicts: