#######################################################################
use CGI;
-use CGI::Ajax;
use List::Util qw(max);
use SL::Common;
::end_of_request();
}
- Common::webdav_folder($form) if ($main::webdav);
+ Common::webdav_folder($form);
# if ( $form->{print_and_post}
# && $form->{second_run}
my $numrows = ++$form->{rowcount};
my $subroutine = "display_row";
- if ($form->{item} eq 'part') {
-
+ if ($form->{item} =~ /(part|service)/) {
#set preisgruppenanzahl
$numrows = $form->{price_rows};
$subroutine = "price_row";
$numrows = ++$form->{assembly_rows};
$subroutine = "assembly_row";
}
- if ($form->{item} eq 'service') {
- $numrows = $form->{price_rows};
- $subroutine = "price_row";
-
- &{$subroutine}($numrows);
-
- $numrows = 0;
- }
# create rows
&{$subroutine}($numrows) if $numrows;