SL/DB/Printer.pm

   1 package SL::DB::Printer;
   2
   3 use strict;
   4
   5 use SL::DB::MetaSetup::Printer;
   6 use SL::DB::Manager::Printer;
   7 use SL::DB::Helper::Util;
   8
   9 sub description {
  10   goto &printer_description;
  11 }
  12
  13 sub validate {
  14   my ($self) = @_;
  15
  16   my @errors;
  17   push @errors, $::locale->text('The description is missing.')    if !$self->printer_description;
  18   push @errors, $::locale->text('The command is missing.')        if !$self->printer_command;
  19   push @errors, $::locale->text('The description is not unique.') if !SL::DB::Helper::Util::is_unique($self, 'printer_description');
  20
  21   return @errors;
  22 }
  23
  24 1;