Select Code to Download

[%
    my $html = $VARS->{freenodelet}
...
    $html= htmlcode( 'expandfreenodelet','', $html );
    return $html;
%]

my( $html, $just )= @_;
my $AUTHOR= getNodeById( $NODE->{author_user} );
...
}seg;

return $html;

my $want= ($q->param("at"))[-1];
my $html= $VARS->{freenodelet};
...
# Everything::printLog( "Expanding -$want- in $USER->{title}'s freenod
+elet: $update updates$/" );
$VARS->{freenodelet}= $html
    if  $update;