-Deletes this package category from the database. Only package categoryes with no
-associated package definitions can be deleted. If there is an error, returns
-the error, otherwise returns false.
-
-=cut
-
-sub delete {
- my $self = shift;
-
- return "Can't delete an pkg_category with pkg_class records!"
- if qsearch( 'pkg_class', { 'categorynum' => $self->categorynum } );
-
- $self->SUPER::delete;
-}
+Deletes this package category from the database. Only package categoryes with
+no associated package definitions can be deleted. If there is an error,
+returns the error, otherwise returns false.