#!/usr/bin/perl
# auto-generated Perl code from input S2 code
package S2;
use strict;
use constant VTABLE => 0;
use constant STATIC => 1;
use constant PROPS => 2;
register_layer(2323);
set_layer_info(2323,"type","layout");
set_layer_info(2323,"name","Classic");
set_layer_info(2323,"redist_uniq","classic/layout");
set_layer_info(2323,"previews","classic/classic.jpg");
register_property(2323,"show_entry_userpic",{
    "type"=>"bool",
    "des"=>"Show your userpic with your journal's entries?",
});
register_property(2323,"body_bgcolor",{
    "type"=>"Color",
    "des"=>"Background color of page",
    "s1color"=>"stronger_back",
});
register_property(2323,"main_bgcolor",{
    "type"=>"Color",
    "des"=>"Background color of main text area",
    "s1color"=>"page_back",
});
register_property(2323,"main_fgcolor",{
    "type"=>"Color",
    "des"=>"Color of text on main text areas",
    "s1color"=>"page_text",
});
register_property(2323,"headerbar_bgcolor",{
    "type"=>"Color",
    "des"=>"Background color of header bars",
    "s1color"=>"strong_back",
});
register_property(2323,"headerbar_fgcolor",{
    "type"=>"Color",
    "des"=>"Color of text on header bars",
    "s1color"=>"strong_text",
});
register_property(2323,"metabar_bgcolor",{
    "type"=>"Color",
    "des"=>"Background color of side bar",
    "s1color"=>"weak_back",
});
register_property(2323,"metabar_fgcolor",{
    "type"=>"Color",
    "des"=>"Color of text on side bar",
    "s1color"=>"weak_text",
});
register_property(2323,"page_title_color",{
    "type"=>"Color",
    "des"=>"Text color of the page's main title",
    "s1color"=>"page_text_title",
});
register_property(2323,"page_subtitle_color",{
    "type"=>"Color",
    "des"=>"Text color of the page's subtitles",
    "s1color"=>"page_text_em",
});
register_property(2323,"link_color",{
    "type"=>"Color",
    "des"=>"Text color of links",
    "s1color"=>"page_link",
});
register_property(2323,"vlink_color",{
    "type"=>"Color",
    "des"=>"Text color of visited links",
    "s1color"=>"page_vlink",
});
register_property(2323,"alink_color",{
    "type"=>"Color",
    "des"=>"Text color of active links",
    "s1color"=>"page_alink",
});
register_property_use(2323,"font_base");
register_property_use(2323,"font_fallback");
register_property_use(2323,"page_recent_items");
register_property_use(2323,"text_post_comment");
register_property_use(2323,"text_read_comments");
register_property_use(2323,"page_friends_items");
register_property_use(2323,"text_post_comment_friends");
register_property_use(2323,"text_read_comments_friends");
register_set(2323,"page_recent_items",20);
register_set(2323,"page_friends_items",25);
register_set(2323,"show_entry_userpic",0);
register_set(2323,"font_base","Arial, Helvetica");
register_set(2323,"font_fallback","sans-serif");
register_set(2323,"body_bgcolor",S2::Builtin::Color__Color("#6666cc"));
register_set(2323,"main_bgcolor",S2::Builtin::Color__Color("#ffffff"));
register_set(2323,"main_fgcolor",S2::Builtin::Color__Color("#000000"));
register_set(2323,"headerbar_bgcolor",S2::Builtin::Color__Color("#c0c0ff"));
register_set(2323,"headerbar_fgcolor",S2::Builtin::Color__Color("#000000"));
register_set(2323,"metabar_bgcolor",S2::Builtin::Color__Color("#eeeeff"));
register_set(2323,"metabar_fgcolor",S2::Builtin::Color__Color("#000000"));
register_set(2323,"page_title_color",S2::Builtin::Color__Color("#8b1a1a"));
register_set(2323,"page_subtitle_color",S2::Builtin::Color__Color("#c00000"));
register_set(2323,"link_color",S2::Builtin::Color__Color("#000050"));
register_set(2323,"vlink_color",S2::Builtin::Color__Color("#500050"));
register_set(2323,"alink_color",S2::Builtin::Color__Color("#ff00c0"));
register_set(2323,"view_entry_disabled",1);
register_global_function(2323,"print_stylesheet()","void", "", "");
register_function(2323, ["print_stylesheet()", ], sub {
    return sub {
        my ($_ctx) = @_;
        my $font = "";
        if ($_ctx->[PROPS]->{'font_base'} ne "") {
            $font = ("\"" . $_ctx->[PROPS]->{'font_base'} . "\"");
            if ($_ctx->[PROPS]->{'font_fallback'} ne "none") {
                $font = ($font . ", ");
            }
        }
        if ($_ctx->[PROPS]->{'font_fallback'} ne "none") {
            $font = ($font . " " . $_ctx->[PROPS]->{'font_fallback'});
        }
        $S2::pout->(("\nbody,.body {\n    background-color:    " . $_ctx->[PROPS]->{'body_bgcolor'}->{'as_string'} . ";\n    color:               " . $_ctx->[PROPS]->{'main_fgcolor'}->{'as_string'} . ";\n    padding:             5pt;\n}\na, a:link {\n    color:               " . $_ctx->[PROPS]->{'link_color'}->{'as_string'} . ";\n}\na:vlink {\n    color:               " . $_ctx->[PROPS]->{'vlink_color'}->{'as_string'} . ";\n}\na:alink {\n    color:               " . $_ctx->[PROPS]->{'alink_color'}->{'as_string'} . ";\n}\ntable.main {\n    background-color:    " . $_ctx->[PROPS]->{'main_bgcolor'}->{'as_string'} . ";\n    color:               " . $_ctx->[PROPS]->{'main_fgcolor'}->{'as_string'} . ";\n}\n.page_title {\n    color:               " . $_ctx->[PROPS]->{'page_title_color'}->{'as_string'} . ";\n    font-family:         " . $font . ";\n    font-size:           18pt;\n}\n.view_links {\n    font-family:         monospace;\n    white-space:         nowrap;\n}\ntd.headerbar {\n    background-color:    " . $_ctx->[PROPS]->{'headerbar_bgcolor'}->{'as_string'} . ";\n    color:               " . $_ctx->[PROPS]->{'headerbar_fgcolor'}->{'as_string'} . ";\n    font-weight:         bold;\n    font-size:           16pt;\n}\ntd.metabar {\n    text-align:          right;\n    white-space:         nowrap;\n}\n.subject {\n    color:               " . $_ctx->[PROPS]->{'page_subtitle_color'}->{'as_string'} . ";\n    font-weight:         bold;\n}\n.comments {\n    text-align:          right;\n}\n#yearheader {\n    color:               " . $_ctx->[PROPS]->{'page_subtitle_color'}->{'as_string'} . ";\n    font-family:         " . $font . ";\n    font-weight:         bold;\n    font-style:          italic;\n    font-size:           14pt;\n}\nth.monthheader {\n    background-color:    " . $_ctx->[PROPS]->{'headerbar_bgcolor'}->{'as_string'} . ";\n    font-size:           12pt;\n    font-family:         " . $font . ";\n}\nth.daysheader {\n    background-color:    " . $_ctx->[PROPS]->{'metabar_bgcolor'}->{'as_string'} . ";\n    font-weight:         normal;\n}\ntd.weekday_empty {\n    background-color:    " . $_ctx->[PROPS]->{'metabar_bgcolor'}->{'as_string'} . ";\n}\n.day_id {\n    font-weight:         bold;\n    font-size:           10pt;\n}\n#archiveyearpage_nav {\n    font-size:           14pt;\n    font-weight:         bold;\n}\n    "));
    };
});
register_function(2323, ["DayPage::lay_nav_blurb()", "EntryPage::lay_nav_blurb()", "MonthPage::lay_nav_blurb()", "Page::lay_nav_blurb()", "ReplyPage::lay_nav_blurb()", ], sub {
    return sub {
        my ($_ctx, $this) = @_;
    };
});
register_function(2323, ["DayPage::lay_primary_userpic()", "FriendsPage::lay_primary_userpic()", "MonthPage::lay_primary_userpic()", "Page::lay_primary_userpic()", "RecentPage::lay_primary_userpic()", "ReplyPage::lay_primary_userpic()", "YearPage::lay_primary_userpic()", ], sub {
    return sub {
        my ($_ctx, $this) = @_;
        return $this->{'journal'}->{'default_pic'};
    };
});
register_function(2323, ["EntryPage::lay_primary_userpic()", ], sub {
    return sub {
        my ($_ctx, $this) = @_;
        return $this->{'entry'}->{'userpic'};
    };
});
register_function(2323, ["DayPage::print()", "EntryPage::print()", "FriendsPage::print()", "MonthPage::print()", "Page::print()", "RecentPage::print()", "ReplyPage::print()", "YearPage::print()", ], sub {
    my @_l2g_func = ( undef, 
        get_func_num("Page::title()"),
        get_func_num("Page::lay_primary_userpic()"),
        get_func_num("Page::lay_nav_blurb()"),
        get_func_num("Page::print_body()"),
        get_func_num("server_sig()"),
    );
    return sub {
        my ($_ctx, $this) = @_;
        my $title = $_ctx->[VTABLE]->{get_object_func_num("Page",$this,"title()",2323,196)}->($_ctx, $this, );
        my $userpic = "";
        my $default_userpic = $_ctx->[VTABLE]->{get_object_func_num("Page",$this,"lay_primary_userpic()",2323,198)}->($_ctx, $this, );
        if (S2::check_defined($default_userpic)) {
            $userpic = ("<img align='right' hspace='2' vspace='2' src='" . $default_userpic->{'url'} . "' ") . ("width='" . $default_userpic->{'width'} . "' height='" . $default_userpic->{'height'} . "' alt='' />");
        }
        my $website = "";
        if ($this->{'journal'}->{'website_url'} ne "") {
            $website = ("<td><a href=\"" . $this->{'journal'}->{'website_url'} . "\">" . $this->{'journal'}->{'website_name'} . "</a></td><td class=\"body\">&nbsp;</td>");
        }
        my $links = "";
        $links = $links . (($this->{'view'} eq "recent" ? ("[" . $_ctx->[PROPS]->{'text_view_recent'} . "]") : ("[<a href='" . $this->{'base_url'} . "/'>" . $_ctx->[PROPS]->{'text_view_recent'} . "</a>]")));
        $links = $links . (($this->{'view'} eq "archive" ? ("[" . $_ctx->[PROPS]->{'text_view_archive'} . "]") : ("[<a href='" . $this->{'base_url'} . "/calendar'>" . $_ctx->[PROPS]->{'text_view_archive'} . "</a>]")));
        $links = $links . (($this->{'view'} eq "friends" ? ("[" . $_ctx->[PROPS]->{'text_view_friends'} . "]") : ("[<a href='" . $this->{'base_url'} . "/friends'>" . $_ctx->[PROPS]->{'text_view_friends'} . "</a>]")));
        $S2::pout->(("\n<html>\n<head>\n<link rel=\"stylesheet\" href=\"" . $this->{'stylesheet_url'} . "\" type=\"text/css\" />\n" . $this->{'head_content'} . "\n<title>" . $title . "</title>\n</head>\n<body>\n<table class=\"main\" width='100%'><tr><td>\n" . $userpic . "\n<span class=\"page_title\">" . $title . "</span>\n<p class=\"view_links\">" . $links . "</p>\n"));
        $_ctx->[VTABLE]->{get_object_func_num("Page",$this,"lay_nav_blurb()",2323,226)}->($_ctx, $this, );
        $_ctx->[VTABLE]->{get_object_func_num("Page",$this,"print_body()",2323,227)}->($_ctx, $this, );
        $S2::pout->("</td></tr></table>\n");
        $S2::pout->("<table class='main' align='right'><tr>");
        $S2::pout->($website);
        $S2::pout->("<td>");
        $_ctx->[VTABLE]->{$_l2g_func[5]}->($_ctx, );
        $S2::pout->("</td></tr>");
        $S2::pout->("</table></body></html>");
    };
});
register_global_function(2323,"print_entry(Page p, Entry e, Color bgcolor, Color fgcolor)","void", "", "");
register_function(2323, ["print_entry(DayPage,Entry,Color,Color)", "print_entry(EntryPage,Entry,Color,Color)", "print_entry(FriendsPage,Entry,Color,Color)", "print_entry(MonthPage,Entry,Color,Color)", "print_entry(Page,Entry,Color,Color)", "print_entry(RecentPage,Entry,Color,Color)", "print_entry(ReplyPage,Entry,Color,Color)", "print_entry(YearPage,Entry,Color,Color)", ], sub {
    my @_l2g_func = ( undef, 
        get_func_num("UserLite::base_url()"),
        get_func_num("Image::print()"),
        get_func_num("CommentInfo::print()"),
    );
    return sub {
        my ($_ctx, $p, $e, $bgcolor, $fgcolor) = @_;
        my $time = S2::Builtin::DateTime__time_format($_ctx, $e->{'time'}, );
        my $userpic = "";
        if (S2::check_defined($e->{'userpic'})) {
            $userpic = ("<img src='" . $e->{'userpic'}->{'url'} . "' />");
        }
        if ($e->{'new_day'}) {
            if ($p->{'view'} eq "day") {
                $S2::pout->("<tr><td class='headerbar'>Time</td><td class='headerbar'>Event</td></tr>");
            } else {
                $S2::pout->("<tr><td colspan='2' align='left' class='headerbar'>");
                $S2::pout->(S2::Builtin::DateTime__date_format($_ctx, $e->{'time'}, "%%month%% %%dayord%%, %%yyyy%%"));
                $S2::pout->("</td></tr>\n");
            }
        }
        $S2::pout->("<tr valign='top'>");
        $S2::pout->(("<td style='background-color: " . $bgcolor->{'as_string'} . ";' class='metabar'>"));
        $S2::pout->(("<em>" . $time . "</em><br />"));
        if ($p->{'view'} eq "friends") {
            $S2::pout->(("<strong style='color: " . $fgcolor->{'as_string'} . "'><a href='") . $_ctx->[VTABLE]->{get_object_func_num("UserLite",$e->{'journal'},"base_url()",2323,270)}->($_ctx, $e->{'journal'}, ) . "'>");
            $S2::pout->($e->{'journal'}->{'username'});
            $S2::pout->("</a></strong><br />");
        }
        if ($e->{'journal'}->{'username'} ne $e->{'poster'}->{'username'}) {
            $S2::pout->("[<a href='" . $_ctx->[VTABLE]->{get_object_func_num("UserLite",$e->{'poster'},"base_url()",2323,276)}->($_ctx, $e->{'poster'}, ) . "'>");
            $S2::pout->($e->{'poster'}->{'username'});
            $S2::pout->("</a>]<br />");
        }
        if ($userpic ne "" && ($p->{'view'} eq "friends" || $_ctx->[PROPS]->{'show_entry_userpic'} == 1)) {
            $S2::pout->($userpic);
        }
        if ($e->{'security'} ne "") {
            $_ctx->[VTABLE]->{get_object_func_num("Image",$e->{'security_icon'},"print()",2323,285)}->($_ctx, $e->{'security_icon'}, );
        }
        $S2::pout->(("<p>[<a href='" . $e->{'permalink_url'} . "'>" . $_ctx->[PROPS]->{'text_permalink'} . "</a>]</p>"));
        $S2::pout->("</td>");
        $S2::pout->("<td style='text-align:left'>");
        if ($e->{'subject'} ne "") {
            $S2::pout->(("\n\n<span class='subject'>" . $e->{'subject'} . "</span><br />"));
        }
        $S2::pout->($e->{'text'});
        $S2::pout->("\n\n");
        if (scalar(keys %{$e->{'metadata'}})) {
            $S2::pout->("<p>");
            foreach my $k (keys %{$e->{'metadata'}}) {
                my $key = $k;
                my $val = $e->{'metadata'}->{$k};
                if ($k eq "mood") {
                    $key = $_ctx->[PROPS]->{'text_meta_mood'};
                }
                if ($k eq "music") {
                    $key = $_ctx->[PROPS]->{'text_meta_music'};
                }
                if ($k eq "mood" && S2::check_defined($e->{'mood_icon'})) {
                    my $i = $e->{'mood_icon'};
                    $val = ("<img src='" . $i->{'url'} . "' width='" . $i->{'width'} . "' height='" . $i->{'height'} . "' alt='' /> " . $val);
                }
                $S2::pout->(("<strong>" . $key . ":</strong> " . $val . "<br />"));
            }
            $S2::pout->("</p>");
        }
        $_ctx->[VTABLE]->{get_object_func_num("CommentInfo",$e->{'comments'},"print()",2323,313)}->($_ctx, $e->{'comments'}, );
        $S2::pout->("</td>");
        $S2::pout->("</tr>\n");
    };
});
register_function(2323, ["DayPage::print_entry(Entry)", "EntryPage::print_entry(Entry)", "MonthPage::print_entry(Entry)", "Page::print_entry(Entry)", "RecentPage::print_entry(Entry)", "ReplyPage::print_entry(Entry)", "YearPage::print_entry(Entry)", ], sub {
    my @_l2g_func = ( undef, 
        get_func_num("print_entry(Page,Entry,Color,Color)"),
    );
    return sub {
        my ($_ctx, $this, $e) = @_;
        $_ctx->[VTABLE]->{$_l2g_func[1]}->($_ctx, $this, $e, $_ctx->[PROPS]->{'metabar_bgcolor'}, $_ctx->[PROPS]->{'metabar_fgcolor'});
    };
});
register_function(2323, ["FriendsPage::print_entry(Entry)", ], sub {
    my @_l2g_func = ( undef, 
        get_func_num("print_entry(FriendsPage,Entry,Color,Color)"),
    );
    return sub {
        my ($_ctx, $this, $e) = @_;
        my $f = $this->{'friends'}->{$e->{'journal'}->{'username'}};
        $_ctx->[VTABLE]->{$_l2g_func[1]}->($_ctx, $this, $e, $f->{'bgcolor'}, $f->{'fgcolor'});
    };
});
register_function(2323, ["RecentPage::lay_nav_blurb()", ], sub {
    return sub {
        my ($_ctx, $this) = @_;
        my $total = scalar(@{$this->{'entries'}});
        my $user = ("<a href='" . $this->{'base_url'} . "/info'>" . $this->{'journal'}->{'name'} . "</a>");
        if ($this->{'nav'}->{'skip'} > 0) {
            $S2::pout->(("Below are " . $total . " entries, after skipping " . $this->{'nav'}->{'skip'} . " most recent ones in the \"" . $user . "\" journal:"));
        } else {
            $S2::pout->(("Below are the " . $total . " most recent journal entries recorded in the \"" . $user . "\" journal:"));
        }
    };
});
register_function(2323, ["FriendsPage::print_body()", "RecentPage::print_body()", ], sub {
    my @_l2g_func = ( undef, 
        get_func_num("RecentPage::print_entry(Entry)"),
    );
    return sub {
        my ($_ctx, $this) = @_;
        my $nav = "";
        if ($this->{'nav'}->{'forward_url'} ne "" || $this->{'nav'}->{'backward_url'} ne "") {
            if ($this->{'nav'}->{'backward_url'} ne "") {
                $nav = ("<a href='" . $this->{'nav'}->{'backward_url'} . "'>&lt;&lt; Previous " . $this->{'nav'}->{'backward_count'} . " entries</a>");
            }
            if ($this->{'nav'}->{'backward_url'} ne "" && $this->{'nav'}->{'forward_url'} ne "") {
                $nav = ($nav . " --");
            }
            if ($this->{'nav'}->{'forward_url'} ne "") {
                $nav = ($nav . " <a href='" . $this->{'nav'}->{'forward_url'} . "'>Next " . $this->{'nav'}->{'forward_count'} . " entries &gt;&gt;</a>");
            }
            $nav = ("<p align='center'>[" . $nav . "]</p>");
        }
        if ($nav ne "") {
            $S2::pout->($nav);
        }
        $S2::pout->("<ul><table>\n");
        foreach my $e (@{$this->{'entries'}}) {
            $_ctx->[VTABLE]->{get_object_func_num("RecentPage",$this,"print_entry(Entry)",2323,362)}->($_ctx, $this, $e);
        }
        $S2::pout->("</table></ul>\n");
        if ($nav ne "") {
            $S2::pout->($nav);
        }
    };
});
register_function(2323, ["FriendsPage::lay_nav_blurb()", ], sub {
    return sub {
        my ($_ctx, $this) = @_;
        my $total = scalar(@{$this->{'entries'}});
        if ($this->{'nav'}->{'skip'} > 0) {
            $S2::pout->(("Below are " . $total . " friends entries, after skipping " . $this->{'nav'}->{'skip'} . " most recent ones:"));
        } else {
            $S2::pout->(("Below are the " . $total . " most recent friends journal entries:"));
        }
    };
});
register_function(2323, ["CommentInfo::print()", ], sub {
    my @_l2g_func = ( undef, 
        get_func_num("CommentInfo::print_readlink()"),
        get_func_num("CommentInfo::print_postlink()"),
    );
    return sub {
        my ($_ctx, $this) = @_;
        if (! $this->{'enabled'}) {
            return;
        }
        $S2::pout->("<p class='comments'>(");
        if ($this->{'count'} > 0 || $this->{'screened'}) {
            $_ctx->[VTABLE]->{get_object_func_num("CommentInfo",$this,"print_readlink()",2323,383)}->($_ctx, $this, );
            $S2::pout->("&nbsp;|&nbsp;");
        }
        $_ctx->[VTABLE]->{get_object_func_num("CommentInfo",$this,"print_postlink()",2323,386)}->($_ctx, $this, );
        $S2::pout->(")</p>");
    };
});
register_function(2323, ["YearPage::lay_nav_blurb()", ], sub {
    my @_l2g_func = ( undef, 
        get_func_num("YearPage::print_year_links()"),
    );
    return sub {
        my ($_ctx, $this) = @_;
        $S2::pout->("<p id='yearpage_nav'>");
        $_ctx->[VTABLE]->{get_object_func_num("YearPage",$this,"print_year_links()",2323,393)}->($_ctx, $this, );
        $S2::pout->("</p>");
    };
});
register_function(2323, ["YearPage::print_body()", ], sub {
    my @_l2g_func = ( undef, 
        get_func_num("YearPage::print_month(YearMonth)"),
    );
    return sub {
        my ($_ctx, $this) = @_;
        $S2::pout->(("<p id='yearheader'>" . $this->{'year'} . "&hellip;</p>\n"));
        foreach my $m (@{$this->{'months'}}) {
            $_ctx->[VTABLE]->{get_object_func_num("YearPage",$this,"print_month(YearMonth)",2323,401)}->($_ctx, $this, $m);
        }
    };
});
register_function(2323, ["YearPage::print_year_links()", ], sub {
    return sub {
        my ($_ctx, $this) = @_;
        foreach my $y (@{$this->{'years'}}) {
            if ($y->{'displayed'}) {
                $S2::pout->(("[ " . $y->{'year'} . " ]"));
            } else {
                $S2::pout->(("[ <a href=\"" . $y->{'url'} . "\">" . $y->{'year'} . "</a> ]"));
            }
        }
    };
});
register_function(2323, ["YearPage::print_month(YearMonth)", ], sub {
    my @_l2g_func = ( undef, 
        get_func_num("YearWeek::print()"),
    );
    return sub {
        my ($_ctx, $this, $m) = @_;
        if (! $m->{'has_entries'}) {
            return;
        }
        $S2::pout->("<center><p><table border='1' cellpadding='4' width='80%'>\n");
        $S2::pout->("<tr align='center'><th colspan='7' class='monthheader'>\n");
        $S2::pout->(S2::Builtin::YearMonth__month_format($_ctx, $m, ));
        $S2::pout->("</th></tr>\n");
        $S2::pout->("<tr align='center'>\n");
        foreach my $d (@{S2::Builtin::weekdays($_ctx, )}) {
            $S2::pout->("<th class='daysheader'>" . $_ctx->[PROPS]->{'lang_dayname_short'}->[$d] . "</th>\n");
        }
        $S2::pout->("</tr>\n");
        foreach my $w (@{$m->{'weeks'}}) {
            $_ctx->[VTABLE]->{get_object_func_num("YearWeek",$w,"print()",2323,436)}->($_ctx, $w, );
        }
        $S2::pout->(("<tr><td colspan='7'><div style='text-align: center'><a href='" . $m->{'url'} . "'>" . $_ctx->[PROPS]->{'text_view_month'} . "</a></div></td></tr>\n"));
        $S2::pout->("</table></p></center>\n");
    };
});
register_function(2323, ["YearWeek::print()", ], sub {
    return sub {
        my ($_ctx, $this) = @_;
        $S2::pout->("<tr>");
        if ($this->{'pre_empty'}) {
            $S2::pout->(("<td colspan='" . $this->{'pre_empty'} . "' class='weekday_empty'>&nbsp;</td>"));
        }
        foreach my $d (@{$this->{'days'}}) {
            $S2::pout->(("<td valign='top'><span class='day_id'>" . $d->{'day'} . "</span><div style='text-align: center'>"));
            if ($d->{'num_entries'}) {
                $S2::pout->(("<a href='" . $d->{'url'} . "'>" . $d->{'num_entries'} . "</a>"));
            } else {
                $S2::pout->("&nbsp;");
            }
            $S2::pout->("</div></td>\n");
        }
        if ($this->{'post_empty'}) {
            $S2::pout->(("<td colspan='" . $this->{'post_empty'} . "' class='weekday_empty'>&nbsp;</td>"));
        }
        $S2::pout->("</tr>");
    };
});
register_function(2323, ["DayPage::print_body()", ], sub {
    my @_l2g_func = ( undef, 
        get_func_num("DayPage::print_entry(Entry)"),
        get_func_num("User::base_url()"),
    );
    return sub {
        my ($_ctx, $this) = @_;
        $S2::pout->("<h2 class='daypage_header'>");
        $S2::pout->(S2::Builtin::Date__date_format($_ctx, $this->{'date'}, "%%month%% %%dayord%%, %%yyyy%%"));
        $S2::pout->("</h2>");
        if (! $this->{'has_entries'}) {
            $S2::pout->("<blockquote><em>");
            $S2::pout->(S2::Builtin::ehtml($_ctx, $_ctx->[PROPS]->{'text_noentries_day'}));
            $S2::pout->("</em></blockquote>");
        } else {
            $S2::pout->("<ul><table>");
            foreach my $e (@{$this->{'entries'}}) {
                $_ctx->[VTABLE]->{get_object_func_num("DayPage",$this,"print_entry(Entry)",2323,471)}->($_ctx, $this, $e);
            }
            $S2::pout->("</table></ul>");
        }
        my $tprev = S2::Builtin::ehtml($_ctx, $_ctx->[PROPS]->{'text_day_prev'});
        my $tnext = S2::Builtin::ehtml($_ctx, $_ctx->[PROPS]->{'text_day_next'});
        $S2::pout->("<table align='center'><tr align='middle'>\n");
        $S2::pout->(("<td width='33%' align='left'><a href='" . $this->{'prev_url'} . "'>" . $tprev . "</a></td>\n"));
        $S2::pout->("<td align='center' width='33%'>");
        $S2::pout->("<strong>");
        $S2::pout->(S2::Builtin::Date__date_format($_ctx, $this->{'date'}, "%%yyyy%%/%%mm%%/%%dd%%"));
        $S2::pout->("</strong><br />");
        $S2::pout->("[<a href='");
        $S2::pout->($_ctx->[VTABLE]->{get_object_func_num("User",$this->{'journal'},"base_url()",2323,483)}->($_ctx, $this->{'journal'}, ));
        $S2::pout->(("/calendar'>" . $_ctx->[PROPS]->{'text_view_archive'} . "</a>]</td>\n"));
        $S2::pout->(("<td width='33%' align='right'><a href='" . $this->{'next_url'} . "'>" . $tnext . "</a></td>\n"));
        $S2::pout->("</tr></table>");
    };
});
register_global_function(2323,"print_theme_preview()","void", "", "");
register_function(2323, ["print_theme_preview()", ], sub {
    return sub {
        my ($_ctx) = @_;
        $S2::pout->(("\n<table width='100%' style='background-color: " . $_ctx->[PROPS]->{'body_bgcolor'}->{'as_string'} . "'>\n  <tr><td>\n    <table height='95%' cellpadding='5' width='100%' bgcolor='" . $_ctx->[PROPS]->{'main_bgcolor'}->{'as_string'} . "'>\n      <tr><td>\n        <span style='font: normal bold 16pt " . $_ctx->[PROPS]->{'font_base'} . ", " . $_ctx->[PROPS]->{'font_fallback'} . "; color: " . $_ctx->[PROPS]->{'page_title_color'}->{'as_string'} . "'>John Doe</span>\n\n        <ul><table>\n          <tr><td align=\"left\" style=\"background-color: " . $_ctx->[PROPS]->{'headerbar_bgcolor'}->{'as_string'} . "; color: " . $_ctx->[PROPS]->{'headerbar_fgcolor'}->{'as_string'} . "\" colspan=\"2\">\n            <span style='font: normal bold 14pt " . $_ctx->[PROPS]->{'font_base'} . ", " . $_ctx->[PROPS]->{'font_fallback'} . "'>Friday, November 15th, 2002</span>\n          </td></tr>\n          <tr valign=\"top\"><td style=\"text-align: right; background-color: " . $_ctx->[PROPS]->{'metabar_bgcolor'}->{'as_string'} . "; white-space: nowrap\">\n            <span style=\"font: italic normal 10pt " . $_ctx->[PROPS]->{'font_base'} . ", " . $_ctx->[PROPS]->{'font_fallback'} . "; color: " . $_ctx->[PROPS]->{'metabar_fgcolor'}->{'as_string'} . "\">\n10:21 pm</span>\n          </td><td>\n\n<p style=\"text-align:left\">\n  <span style=\"font: italic bold 10pt " . $_ctx->[PROPS]->{'font_base'} . ", " . $_ctx->[PROPS]->{'font_fallback'} . "; color: " . $_ctx->[PROPS]->{'page_subtitle_color'}->{'as_string'} . "\">\nNeque porro quisquam est&hellip;\n  </span><br />\n\nNeque porro quisquam est qui dolorem ipsum quia dolor sit amet, consectetur, adipisci velit\nNeque porro quisquam est qui dolorem ipsum quia dolor sit amet, consectetur, adipisci velit\nNeque porro quisquam est qui dolorem ipsum quia dolor sit amet, consectetur, adipisci velit\nNeque porro quisquam est qui dolorem ipsum quia dolor sit amet, consectetur, adipisci velit\nNeque porro quisquam est qui dolorem ipsum quia dolor sit amet, consectetur, adipisci velit\nNeque porro quisquam est qui dolorem ipsum quia dolor sit amet, consectetur, adipisci velit\n\n</p><p style=\"text-align:right; font-size: 8pt\">\n  (<a href=\"#\" style=\"font-weight: bold; color: " . $_ctx->[PROPS]->{'link_color'}->{'as_string'} . "\">1 Comment</a> | \n   <a href=\"#\" style=\"color: " . $_ctx->[PROPS]->{'vlink_color'}->{'as_string'} . "\">Comment on this</a>)\n\n</p>\n\n          </td></tr>\n        </table></ul>\n      </td></tr>\n    </table>\n  </td></tr>\n</table>\n    "));
    };
});
1;
# end.