fix otype attribute

[pmg-api.git] / PMG / RuleDB / ReportSpam.pm

diff --git a/PMG/RuleDB/ReportSpam.pm b/PMG/RuleDB/ReportSpam.pm
index 7ecdeec1fd722bc2c59fd3a078b0b27bf417ffc3..459b9d6358785968080cd878a3f3c7ff01856c31 100644 (file)
--- a/PMG/RuleDB/ReportSpam.pm
+++ b/PMG/RuleDB/ReportSpam.pm
@@ -50,7 +50,7 @@ sub new {
     
     my $class = ref($type) || $type;
  
-    my $self = $class->SUPER::new(otype(), $ogroup);
+    my $self = $class->SUPER::new($class->otype(), $ogroup);
    
     return $self;
 }