}
-sub add_adr {
- $lxdebug->enter_sub();
-
- $form->{title} = "Add";
-
- $form->{callback} =
- "$form->{script}?action=add_adr&path=$form->{path}&login=$form->{login}&password=$form->{password}"
- unless $form->{callback};
-
- &adr_header;
- &form_footer;
-
- $lxdebug->leave_sub();
-}
-
-sub edit_adr {
- $lxdebug->enter_sub();
-
- $form->{title} = "Edit";
-
- AM->get_adr(\%myconfig, \%$form);
-
- &adr_header;
-
- $form->{orphaned} = 1;
- &form_footer;
-
- $lxdebug->leave_sub();
-}
-
-sub list_adr {
- $lxdebug->enter_sub();
-
- AM->adr(\%myconfig, \%$form);
-
- $form->{callback} =
- "$form->{script}?action=list_adr&path=$form->{path}&login=$form->{login}&password=$form->{password}";
-
- $callback = $form->escape($form->{callback});
-
- $form->{title} = $locale->text('ADR');
-
- @column_index = qw(adr_code adr_description);
-
- $column_header{adr_description} =
- qq|<th class=listheading width=60%>|
- . $locale->text('ADR Description')
- . qq|</th>|;
- $column_header{adr_code} =
- qq|<th class=listheading width=10%>|
- . $locale->text('ADR Code')
- . qq|</th>|;
-
- $form->header;
-
- print qq|
-<body>
-
-<table width=100%>
- <tr>
- <th class=listtop>$form->{title}</th>
- </tr>
- <tr height="5"></tr>
- <tr>
- <td>
- <table width=100%>
- <tr class=listheading>
-|;
-
- map { print "$column_header{$_}\n" } @column_index;
-
- print qq|
- </tr>
-|;
-
- foreach $ref (@{ $form->{ALL} }) {
-
- $i++;
- $i %= 2;
-
- print qq|
- <tr valign=top class=listrow$i>
-|;
-
-
- $column_data{adr_code} =
- qq|<td><a href=$form->{script}?action=edit_adr&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{adr_code}</td>|;
- $column_data{adr_description} = qq|<td align=left>$ref->{adr_description}</td>|;
-
-
- map { print "$column_data{$_}\n" } @column_index;
-
- print qq|
- </tr>
-|;
- }
-
- print qq|
- </table>
- </td>
- </tr>
- <tr>
- <td><hr size=3 noshade></td>
- </tr>
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=type value=adr>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
-<input class=submit type=submit name=action value="|
- . $locale->text('Add') . qq|">|;
-
- if ($form->{menubar}) {
- require "$form->{path}/menu.pl";
- &menubar;
- }
-
- print qq|
-
- </form>
-
- </body>
- </html>
-|;
-
- $lxdebug->leave_sub();
-}
-
-sub adr_header {
- $lxdebug->enter_sub();
-
- $form->{title} = $locale->text("$form->{title} ADR");
-
- # $locale->text('Add ADR')
- # $locale->text('Edit ADR')
-
- $form->{adr_description} =~ s/\"/"/g;
- $form->{adr_code} =~ s/\"/"/g;
-
-
- $form->header;
-
- print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=id value=$form->{id}>
-<input type=hidden name=type value=adr>
-
-<table width=100%>
- <tr>
- <th class=listtop colspan=2>$form->{title}</th>
- </tr>
- <tr height="5"></tr>
- <tr>
- <th align=right>| . $locale->text('ADR Code') . qq|</th>
- <td><input name=adr_code size=30 value="$form->{adr_code}"></td>
- <tr>
- <tr>
- <th align=right>| . $locale->text('ADR Description') . qq|</th>
- <td><input name=adr_description size=60 value="$form->{adr_description}"></td>
- </tr>
- <td colspan=2><hr size=3 noshade></td>
- </tr>
-</table>
-|;
-
- $lxdebug->leave_sub();
-}
-
-sub save_adr {
- $lxdebug->enter_sub();
-
- $form->isblank("adr_description", $locale->text('ADR Description missing!'));
- $form->isblank("adr_code", $locale->text('ADR Code missing!'));
- AM->save_adr(\%myconfig, \%$form);
- $form->redirect($locale->text('ADR saved!'));
-
- $lxdebug->leave_sub();
-}
-
-
-sub delete_adr {
- $lxdebug->enter_sub();
-
- AM->delete_adr(\%myconfig, \%$form);
- $form->redirect($locale->text('ADR deleted!'));
-
- $lxdebug->leave_sub();
-}
-
-
sub add_payment {
$lxdebug->enter_sub();
projects / mfinanz.git / blobdiff