fix regeneration of packed snippet

This commit is contained in:
Doug Bell 2009-05-07 17:29:17 +00:00
parent 7a1d96f752
commit af4db882b8

View file

@ -79,10 +79,11 @@ sub definition {
defaultValue => undef, defaultValue => undef,
}, },
usePacked => { usePacked => {
tab => 'properties', tab => 'properties',
fieldType => 'yesNo', fieldType => 'yesNo',
label => $i18n->get('usePacked label'), label => $i18n->get('usePacked label'),
hoverHelp => $i18n->get('usePacked description'), hoverHelp => $i18n->get('usePacked description'),
defaultValue => 0,
}, },
cacheTimeout => { cacheTimeout => {
tab => "display", tab => "display",
@ -120,6 +121,19 @@ sub definition {
return $class->SUPER::definition($session,$definition); return $class->SUPER::definition($session,$definition);
} }
#-------------------------------------------------------------------
=head2 addRevision ( properties, ... )
Force the packed snippet to be regenerated.
=cut
sub addRevision {
my ( $self, $properties, @args ) = @_;
delete $properties->{ snippetPacked };
return $self->SUPER::addRevision( $properties, @args );
}
#------------------------------------------------------------------- #-------------------------------------------------------------------