. $locale->text('Delete') . qq|">|;
}
- if ($form->{menubar}) {
- require "$form->{path}/menu.pl";
- &menubar;
- }
-
print qq|
</form>
}
}
- if ($form->{menubar}) {
- require "$form->{path}/menu.pl";
- &menubar;
- }
-
print qq|
</form>
<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;
- }
+ . $locale->text('Add') . qq|">
- print qq|
</form>
</body>
<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;
- }
+ . $locale->text('Add') . qq|">
- print qq|
</form>
</body>
<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|
+ . $locale->text('Add') . qq|">
</form>
<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|
+ . $locale->text('Add') . qq|">
</form>
$form->{title} = $locale->text('Buchungsgruppen');
- @column_index = qw(description inventory_accno income_accno_0 expense_accno_0 income_accno_1 expense_accno_1 income_accno_2 expense_accno_2 income_accno_3 expense_accno_3 );
+ @column_index = qw(up down description inventory_accno
+ income_accno_0 expense_accno_0
+ income_accno_1 expense_accno_1
+ income_accno_2 expense_accno_2
+ income_accno_3 expense_accno_3 );
+ $column_header{up} =
+ qq|<th class="listheading">|
+ . qq|<img src="image/up.png" alt="| . $locale->text("up") . qq|">|
+ . qq|</th>|;
+ $column_header{down} =
+ qq|<th class="listheading">|
+ . qq|<img src="image/down.png" alt="| . $locale->text("down") . qq|">|
+ . qq|</th>|;
$column_header{description} =
- qq|<th class=listheading width=60%>|
+ qq|<th class="listheading" width="40%">|
. $locale->text('Description')
. qq|</th>|;
$column_header{inventory_accno} =
- qq|<th class=listheading width=10%>|
+ qq|<th class=listheading>|
. $locale->text('Bestandskonto')
. qq|</th>|;
$column_header{income_accno_0} =
</tr>
|;
+ my $swap_link = qq|$form->{script}?action=swap_buchungsgruppen&|;
+ map({ $swap_link .= $_ . "=" . $form->escape($form->{$_}) . "&" }
+ qw(login password path));
+
+ my $row = 0;
foreach $ref (@{ $form->{ALL} }) {
$i++;
<tr valign=top class=listrow$i>
|;
+ if ($row) {
+ my $pref = $form->{ALL}->[$row - 1];
+ $column_data{up} =
+ qq|<td align="center" valign="center">| .
+ qq|<a href="${swap_link}id1=$ref->{id}&id2=$pref->{id}">| .
+ qq|<img src="image/up.png" alt="| . $locale->text("up") . qq|">| .
+ qq|</a></td>|;
+ } else {
+ $column_data{up} = qq|<td> </td>|;
+ }
+
+ if ($row == (scalar(@{ $form->{ALL} }) - 1)) {
+ $column_data{down} = qq|<td> </td>|;
+ } else {
+ my $nref = $form->{ALL}->[$row + 1];
+ $column_data{down} =
+ qq|<td align="center" valign="center">| .
+ qq|<a href="${swap_link}id1=$ref->{id}&id2=$nref->{id}">| .
+ qq|<img src="image/down.png" alt="| . $locale->text("down") . qq|">| .
+ qq|</a></td>|;
+ }
$column_data{description} =
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>|;
print qq|
</tr>
|;
+
+ $row++;
}
print qq|
<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|
+ . $locale->text('Add') . qq|">
</form>
$lxdebug->leave_sub();
}
+sub swap_buchungsgruppen {
+ $lxdebug->enter_sub();
+
+ AM->swap_sortkeys(\%myconfig, $form, "buchungsgruppen");
+ list_buchungsgruppe();
+
+ $lxdebug->leave_sub();
+}
+
sub add_printer {
$lxdebug->enter_sub();
<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|
+ . $locale->text('Add') . qq|">
</form>
<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|
+ . $locale->text('Add') . qq|">
</form>
<input type=hidden name=password value=$form->{password}>
<input class=submit type=submit name=action value="|
- . $locale->text('Add') . qq|">|;
+ . $locale->text('Add') . qq|">
- if ($form->{menubar}) {
- require "$form->{path}/menu.pl";
- &menubar;
- }
-
- print qq|
</form>
</body>
<input type=hidden name=password value=$form->{password}>
<input name=action type=submit class=submit value="|
- . $locale->text('Edit') . qq|">|;
+ . $locale->text('Edit') . qq|">
- if ($form->{menubar}) {
- require "$form->{path}/menu.pl";
- &menubar;
- }
-
- print qq|
</form>
</body>
<br>
<input type=submit class=submit name=action value="|
- . $locale->text('Save') . qq|">|;
-
- if ($form->{menubar}) {
- require "$form->{path}/menu.pl";
- &menubar;
- }
+ . $locale->text('Save') . qq|">
- print q|
</form>
if (!$myconfig{"template_format"}) {
$myconfig{"template_format"} = "pdf";
}
- $template_format = "";
+ my $template_format = "";
foreach $item (@formats) {
$template_format .=
"<option value=\"$item->{value}\"" .
">" . H($item->{"name"}) . "</option>";
}
+ if (!$myconfig{"default_media"}) {
+ $myconfig{"default_media"} = "screen";
+ }
+ my %selected = ($myconfig{"default_media"} => "selected");
+ my $default_media = qq|
+ <option value="screen" $selected{'screen'}>| . $locale->text("Screen") . qq|</option>
+ <option value="printer" $selected{'printer'}>| . $locale->text("Printer") . qq|</option>
+ <option value="queue" $selected{'queue'}>| . $locale->text("Queue") . qq|</option>
+|;
+
+ %selected = ();
+ $selected{$myconfig{"default_printer_id"}} = "selected"
+ if ($myconfig{"default_printer_id"});
+ my $default_printer = qq|<option></option>|;
+ AM->printer(\%myconfig, $form);
+ foreach my $printer (@{$form->{"ALL"}}) {
+ $default_printer .= qq|<option value="| . Q($printer->{"id"}) .
+ qq|" $selected{$printer->{'id'}}>| .
+ H($printer->{"printer_description"}) . qq|</option>|;
+ }
+
%countrycodes = User->country_codes;
$countrycodes = '';
foreach $key (sort { $countrycodes{$a} cmp $countrycodes{$b} }
$menustyle_v3 = "checked";
}
+ my ($show_form_details, $hide_form_details);
+ $myconfig{"show_form_details"} = 1
+ unless (defined($myconfig{"show_form_details"}));
+ $show_form_details = "checked" if ($myconfig{"show_form_details"});
+ $hide_form_details = "checked" unless ($myconfig{"show_form_details"});
+
print qq|
<body>
</tr>
<tr>
<th align=right>| . $locale->text('Setup Menu') . qq|</th>
- <td><input name=menustyle type=radio class=radio value=neu $menustyle_neu> | .
+ <td><input name=menustyle type=radio class=radio value=v3 $menustyle_v3> | .
+ $locale->text("Top (CSS)") . qq|
+ <input name=menustyle type=radio class=radio value=neu $menustyle_neu> | .
$locale->text("Top (Javascript)") . qq|
<input name=menustyle type=radio class=radio value=old $menustyle_old> | .
$locale->text("Old (on the side)") . qq|</td>
- </tr>
+ </tr>
+ <tr>
+ <th align=right>| . $locale->text('Form details (second row)') . qq|</th>
+ <td><input type="radio" id="rad_show_form_details" name="show_form_details" value="1" $show_form_details>
+ <label for="rad_show_form_details">| . $locale->text('Show by default') . qq|</label>
+ <input type="radio" id="rad_hide_form_details" name="show_form_details" value="0" $hide_form_details>
+ <label for="rad_hide_form_details">| . $locale->text('Hide by default') . qq|</label></td>
+ </tr>
<input name=printer type=hidden value="$myconfig{printer}">
<tr class=listheading>
<th colspan=2>| . $locale->text("Print options") . qq|</th>
<th align=right>| . $locale->text('Default template format') . qq|</th>
<td><select name="template_format">$template_format</select></td>
</tr>
+ <tr>
+ <th align=right>| . $locale->text('Default output medium') . qq|</th>
+ <td><select name="default_media">$default_media</select></td>
+ </tr>
+ <tr>
+ <th align=right>| . $locale->text('Default printer') . qq|</th>
+ <td><select name="default_printer_id">$default_printer</select></td>
+ </tr>
<tr>
<th align=right>| . $locale->text('Number of copies') . qq|</th>
<td><input name="copies" size="10" value="| .
<td><input name=businessnumber size=25 value="$myconfig{businessnumber}"></td>
</tr>
<tr>
- <td colspan=2>
- <table width=100%>
- <tr>
<th align=right>| . $locale->text('Year End') . qq| (mm/dd)</th>
<td><input name=yearend size=5 value=$form->{defaults}{yearend}></td>
- <th align=right>| . $locale->text('Weight Unit') . qq|</th>
- <td><input name=weightunit size=5 value="$form->{defaults}{weightunit}"></td>
- </tr>
- </table>
- </td>
</tr>
<tr class=listheading>
<th colspan=2>|
<br>
<input type=submit class=submit name=action value="|
- . $locale->text('Save') . qq|">|;
-
- if ($form->{menubar}) {
- require "$form->{path}/menu.pl";
- &menubar;
- }
+ . $locale->text('Save') . qq|">
- print qq|
</form>
</body>
<input type=hidden name=password value=$form->{password}>
<input class=submit type=submit name=action value="|
- . $locale->text('Add') . qq|">|;
+ . $locale->text('Add') . qq|">
- if ($form->{menubar}) {
- require "$form->{path}/menu.pl";
- &menubar;
- }
-
- print qq|
</form>
</body>