Revision c90ba6c8
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/am.pl | ||
|---|---|---|
|
$ca->{heading} = ( $ca->{charttype} eq 'H' ) ? 1:'';
|
||
|
$ca->{link_edit_account} =
|
||
|
qq|$form->{script}?action=edit_account&id=$ca->{id}|
|
||
|
.qq|&path=$form->{path}&login=$form->{login}|
|
||
|
.qq|&login=$form->{login}|
|
||
|
.qq|&password=$form->{password}&callback=$callback|;
|
||
|
}
|
||
|
|
||
|
# Ajax
|
||
|
my $list_account_details_url =
|
||
|
"$form->{script}?login=$form->{login}&path=$form->{path}"
|
||
|
"$form->{script}?login=$form->{login}"
|
||
|
."&password=$form->{password}&action=list_account_details&";
|
||
|
|
||
|
|
||
| ... | ... | |
|
|
||
|
# construct callback
|
||
|
$callback =
|
||
|
"$form->{script}?action=list_account&path=$form->{path}&login=$form->{login}&password=$form->{password}";
|
||
|
"$form->{script}?action=list_account&login=$form->{login}&password=$form->{password}";
|
||
|
|
||
|
$form->header;
|
||
|
|
||
| bin/mozilla/common.pl | ||
|---|---|---|
|
|
||
|
my $callback = "$form->{script}?action=part_selection_internal&";
|
||
|
map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
|
||
|
(qw(login path password partnumber description input_partnumber input_description input_partsid), grep({ /^[fl]_/ } keys %$form)));
|
||
|
(qw(login password partnumber description input_partnumber input_description input_partsid), grep({ /^[fl]_/ } keys %$form)));
|
||
|
|
||
|
my @header_sort = qw(partnumber description);
|
||
|
my %header_title = ( "partnumber" => $locale->text("Part Number"),
|
||
| ... | ... | |
|
|
||
|
my $callback = "$form->{script}?action=project_selection_internal&";
|
||
|
map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
|
||
|
(qw(login path password projectnumber description input_projectnumber input_description input_project_id), grep({ /^[fl]_/ } keys %$form)));
|
||
|
(qw(login password projectnumber description input_projectnumber input_description input_project_id), grep({ /^[fl]_/ } keys %$form)));
|
||
|
|
||
|
my @header_sort = qw(projectnumber description);
|
||
|
my %header_title = ( "projectnumber" => $locale->text("Project Number"),
|
||
| ... | ... | |
|
|
||
|
my $callback = "$form->{script}?action=employee_selection_internal&";
|
||
|
map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
|
||
|
(qw(login path password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
|
||
|
(qw(login password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
|
||
|
|
||
|
my @header_sort = qw(name);
|
||
|
my %header_title = ( "name" => $locale->text("Name"),
|
||
| ... | ... | |
|
|
||
|
my $callback = "$form->{script}?action=delivery_customer_selection&";
|
||
|
map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
|
||
|
(qw(login path password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
|
||
|
(qw(login password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
|
||
|
|
||
|
my @header_sort = qw(name customernumber address);
|
||
|
my %header_title = ( "name" => $locale->text("Name"),
|
||
| ... | ... | |
|
|
||
|
my $callback = "$form->{script}?action=vendor_selection&";
|
||
|
map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
|
||
|
(qw(login path password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
|
||
|
(qw(login password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
|
||
|
|
||
|
my @header_sort = qw(name customernumber address);
|
||
|
my %header_title = ( "name" => $locale->text("Name"),
|
||
| ... | ... | |
|
|
||
|
my $callback = "$form->{script}?action=set_longdescription&";
|
||
|
map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
|
||
|
(qw(login path password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
|
||
|
(qw(login password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
|
||
|
|
||
|
$form->{"title"} = $locale->text("Enter longdescription");
|
||
|
$form->header();
|
||
Auch abrufbar als: Unified diff
Die Variable "path" gibt es nicht mehr.