Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision a9903fd7

Von Jan Büren vor fast 6 Jahren hinzugefügt

  • ID a9903fd72fc5a09d99eb60707dfd3aadcabfe73f
  • Vorgänger c8687f9c
  • Nachfolger 324726ac

toten Code entfernt

Unterschiede anzeigen:

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