Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 54fc0d08

Von Moritz Bunkus vor fast 11 Jahren hinzugefügt

  • ID 54fc0d08dd13e66c5e87c49dc424cc3bd26476f5
  • Vorgänger dea48d2a
  • Nachfolger f37d6ef1

L-Plugin: Hilfsfunktion is_rdbo($obj) zum Testen ob $obj von einem RDBO ableitet

Unterschiede anzeigen:

SL/Template/Plugin/LxERP.pm
1 1
package SL::Template::Plugin::LxERP;
2 2

  
3 3
use base qw( Template::Plugin );
4
use Scalar::Util qw();
4 5
use Template::Plugin;
5 6

  
6 7
use List::Util qw(min);
......
16 17
  bless { }, $class;
17 18
}
18 19

  
20
sub is_rdbo {
21
  my ($self, $obj, $wanted_class) = @_;
22

  
23
  $wanted_class = !$wanted_class         ? 'Rose::DB::Object'
24
                : $wanted_class =~ m{::} ? $wanted_class
25
                :                          "SL::DB::${wanted_class}";
26

  
27
  return Scalar::Util::blessed($obj) ? $obj->isa($wanted_class) : 0;
28
}
29

  
19 30
sub format_amount {
20 31
  my ($self, $var, $places, $skip_zero, $dash) = @_;
21 32

  

Auch abrufbar als: Unified diff