INITIAL TAG_EXPR: a
    99 luft balloons
     "double quotes"
       a loverly day
           I'm #9999

#!/usr/bin/perl

#########################################################################
package Tag;
use strict;

#!/usr/bin/perl

#########################################################################
package Tag;
use Data::Dumper;

--- plugins/ActionStreams/lib/ActionStreams/Tags.pm (old)
+++ plugins/ActionStreams/lib/ActionStreams/Tags.pm (new)
@@ -272,6 +272,24 @@
     local $vars->{service_type} = $service;
     local $vars->{stream_type} = $stream_id;

2009/03/04 14:50:36 TRACE> #########################   "ActionStreams.Tags _build_about_event (263)"   #########################
2009/03/04 14:50:36 TRACE>    [[ Caller: ActionStreams::Tags::_build_about_event /home/tdi/www.bikehugger.com/html/mt/plugins/ActionStreams/lib/ActionStreams/Tags.pm (263) ]]
2009/03/04 14:50:36 DEBUG> ActionStreams.Tags _build_about_event (268) | Event: $VAR1 = bless( {
2009/03/04 14:50:36 DEBUG> ActionStreams.Tags _build_about_event (268) |                  '__triggers' => {},
2009/03/04 14:50:36 DEBUG> ActionStreams.Tags _build_about_event (268) |                  'column_values' => {

2009/03/04 14:01:05 DEBUG> ActionStreams.Tags action_streams (222) | Terms: $VAR1 = {
2009/03/04 14:01:05 DEBUG> ActionStreams.Tags action_streams (222) |           'author_id' => [
2009/03/04 14:01:05 DEBUG> ActionStreams.Tags action_streams (222) |                            '1',
2009/03/04 14:01:05 DEBUG> ActionStreams.Tags action_streams (222) |                            '2',
2009/03/04 14:01:05 DEBUG> ActionStreams.Tags action_streams (222) |                            '15',

Can't load '/opt/local/lib/perl5/5.8.8/darwin-2level/auto/Data/Dumper/Dumper.bundle' for module Data::Dumper: dlopen(/opt/local/lib/perl5/5.8.8/darwin-2level/auto/Data/Dumper/Dumper.bundle, 1): Symbol not found: _PL_sv_undef
  Referenced from: /opt/local/lib/perl5/5.8.8/darwin-2level/auto/Data/Dumper/Dumper.bundle
  Expected in: dynamic lookup
 at /opt/local/lib/perl5/5.8.8/darwin-2level/Data/Dumper.pm line 36
Compilation failed in require at extlib/MT/Log/Log4perl.pm line 6.

<mt:Ignore>
                            USERPIC MODULE
    This module is called to display a userpic for an author or commenter
    with an optional link to a profile for the user.  It can be called
    with the following options:

blog/comment_detail:
    <$mt:Include module="Userpic" userpic_size="36" userpic_type="commenter"$>

blog/entry_metadata:
    <$mt:Include module="Userpic" userpic_size="36"$>

<mt:IfBlog>
    <mt:SetVarBlock name="profile_view_url"><$mt:CGIPath$><$mt:CommunityScript$>?__mode=view&amp;blog_id=<$mt:BlogID$>&amp;id=</mt:SetVarBlock>
<mt:Else>
    <mt:SetVarBlock name="profile_view_url"><$mt:CGIPath$><$mt:CommunityScript$>?__mode=view&amp;blog_id=<$mt:BlogID$>&amp;id=</mt:SetVarBlock>
</mt:IfBlog>

<div class="user-pic">
<mt:If name="userpic_type" eq="profile">
    <img src="<mt:If tag="AuthorUserpicURL"><$mt:AuthorUserpicURL$><mt:Else><$mt:StaticWebPath$>images/default-userpic-90.jpg</mt:If>"
        width="<$mt:Var name="userpic_size"$>" height="<$mt:Var name="userpic_size"$>" alt="user-pic" />
<mt:Else name="userpic_type" eq="commenter">

byron/2006/07/
byron/2006/10/
byron/2006/09/
byron/2006/08/
byron/2006/11/

sub hdlr_include {
    my $ctx = shift;
    my ($args) = @_;
    $logger ||= get_logger();
    $logger->trace();

#!/usr/bin/perl -w

# Movable Type (r) (C) 2001-2008 Six Apart, Ltd. All Rights Reserved.
# This code cannot be redistributed without permission from www.sixapart.com.
# For more information, consult your Movable Type license.

#!/usr/bin/perl -w

# Movable Type (r) (C) 2001-2008 Six Apart, Ltd. All Rights Reserved.
# This code cannot be redistributed without permission from www.sixapart.com.
# For more information, consult your Movable Type license.