-sub reset {
- my $self = shift;
- $self->_clear_done();
- $self->_clear_severity();
- $self->_clear_packages();
- $self->_clear_sources();
- $self->_clear_affects();
- $self->_clear_blocks();
- $self->_clear_blockedby();
- $self->_clear_found();
- $self->_clear_fixed();
- $self->_clear_mergedwith();
- $self->_clear_pending();
- $self->_clear_location();
- $self->_clear_archived();
- $self->_clear_archiveable();
- $self->_clear_when_archiveable();
- $self->_clear_submitter();
- $self->_clear_created();
- $self->_clear_modified();
- $self->_set_saved(1);
-}
-
-sub _clear_saved_if_changed {
- my ($self,$new,$old) = @_;
- if (@_ > 2) {
- if ($new ne $old) {
- $self->_set_saved(0);
- }
- }
-}
-