Revision a9903fd7
Von Jan Büren vor fast 6 Jahren hinzugefügt
SL/DO.pm | ||
---|---|---|
1073 | 1073 |
$main::lxdebug->leave_sub(); |
1074 | 1074 |
} |
1075 | 1075 |
|
1076 |
sub project_description { |
|
1077 |
$main::lxdebug->enter_sub(); |
|
1078 |
|
|
1079 |
my ($self, $dbh, $id) = @_; |
|
1080 |
|
|
1081 |
my $form = $main::form; |
|
1082 |
|
|
1083 |
my $query = qq|SELECT description FROM project WHERE id = ?|; |
|
1084 |
my ($value) = selectrow_query($form, $dbh, $query, $id); |
|
1085 |
|
|
1086 |
$main::lxdebug->leave_sub(); |
|
1087 |
|
|
1088 |
return $value; |
|
1089 |
} |
|
1090 |
|
|
1091 | 1076 |
sub unpack_stock_information { |
1092 | 1077 |
$main::lxdebug->enter_sub(); |
1093 | 1078 |
|
SL/IS.pm | ||
---|---|---|
562 | 562 |
$main::lxdebug->leave_sub(); |
563 | 563 |
} |
564 | 564 |
|
565 |
sub project_description { |
|
566 |
$main::lxdebug->enter_sub(); |
|
567 |
|
|
568 |
my ($self, $dbh, $id) = @_; |
|
569 |
my $form = \%main::form; |
|
570 |
|
|
571 |
my $query = qq|SELECT description FROM project WHERE id = ?|; |
|
572 |
my ($description) = selectrow_query($form, $dbh, $query, conv_i($id)); |
|
573 |
|
|
574 |
$main::lxdebug->leave_sub(); |
|
575 |
|
|
576 |
return $_; |
|
577 |
} |
|
578 |
|
|
579 | 565 |
sub customer_details { |
580 | 566 |
$main::lxdebug->enter_sub(); |
581 | 567 |
|
SL/OE.pm | ||
---|---|---|
1616 | 1616 |
$main::lxdebug->leave_sub(); |
1617 | 1617 |
} |
1618 | 1618 |
|
1619 |
sub project_description { |
|
1620 |
$main::lxdebug->enter_sub(); |
|
1621 |
|
|
1622 |
my ($self, $dbh, $id) = @_; |
|
1623 |
|
|
1624 |
my $query = qq|SELECT description FROM project WHERE id = ?|; |
|
1625 |
my ($value) = selectrow_query($main::form, $dbh, $query, $id); |
|
1626 |
|
|
1627 |
$main::lxdebug->leave_sub(); |
|
1628 |
|
|
1629 |
return $value; |
|
1630 |
} |
|
1631 |
|
|
1632 | 1619 |
1; |
1633 | 1620 |
|
1634 | 1621 |
__END__ |
Auch abrufbar als: Unified diff
toten Code entfernt