projekt kivitendo

  'scalar --get_set_init' => [ qw(priority editable) ],

sub init_editable {

  0

}

=item C<editable>

OPTIONAL. Prices may flag themselves as editable. An editable price will still

be subject to checks for higher or lower prices, but will be rendered in a

fashion that allows the user to overwrite it.

This is potentially very distracting if the price is usually a default price

and will be changed in a lot of instances so use with caution.

On the other hand it can provide the capability that users unfamiliar with the

system will intuitively expect so it can be a good way to introduce the system.

  my %nowrap = map { $_ => 1 }       qw(description unit  price_source);

    my $sellprice_value = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);

    my $discount_value  = $form->format_amount(\%myconfig, $form->{"discount_$i"});

    my $price;

         $price         = $price_source->price_from_source($::form->{"active_price_source_$i"});

    my $edit_prices     = $main::auth->assert('edit_prices', 1) && (!$::form->{"active_price_source_$i"} || !$price || $price->editable);

    my $edit_discounts  = $main::auth->assert('edit_prices', 1) && !$::form->{"active_discount_source_$i"};

    $column_data{sellprice}   = (!$edit_prices)

                                ? $cgi->hidden(   -name => "sellprice_$i", -id => "sellprice_$i", -value => $sellprice_value) . $sellprice_value

                                : $cgi->textfield(-name => "sellprice_$i", -id => "sellprice_$i", -size => 10, -onBlur => "check_right_number_format(this)", -value => $sellprice_value);

    $column_data{discount}    = (!$edit_discounts)

                                  ? $cgi->hidden(   -name => "discount_$i", -id => "discount_$i", -value => $discount_value) . $discount_value . ' %'

                                  : $cgi->textfield(-name => "discount_$i", -id => "discount_$i", -size => 3, -value => $discount_value);