Repository List / Contenido / utf8 / core / comps / contenido / components / outputs / integer.msn @ HEAD

<%args>
	$object => undef
	$name => undef
	$SETS => undef
</%args>
<%init>

    return undef unless ref $SETS;
    return undef unless $name;

    for ( $SETS->{$name} ) {
	s/^\s+//;
	s/\s+$//;
    }
    return undef if $SETS->{$name} eq '';
    return undef if $SETS->{$name} =~ /\D/;
    return $SETS->{$name};

</%init>