71 |
my $self = shift; |
my $self = shift; |
72 |
my $ds = shift || die "no ds?"; |
my $ds = shift || die "no ds?"; |
73 |
|
|
74 |
div { |
div { |
75 |
|
{ class is 'title' } |
76 |
hyperlink( |
hyperlink( |
77 |
url => 'http://www.perlmonks.org/?node_id=' . $ds->display('Node_ID'), |
url => 'http://www.perlmonks.org/?node_id=' . $ds->display('Node_ID'), |
78 |
label => $ds->display( 'Title' ) |
label => $ds->display( 'Title' ) |
79 |
); |
); |
80 |
} |
} |
81 |
tt { $ds->display( 'database' ) . '/' . $ds->display( 'input' ) . '/' . $ds->display( 'id' ) } |
tt { $ds->display( 'database' ) . '/' . $ds->display( 'input' ) . '/' . $ds->display( 'id' ) } |
82 |
div { _('Date'), ': ', $ds->display( 'Date' ) } |
span { { class is 'score' } $ds->display('score') } |
83 |
div { _('Type'), ': ', $ds->display( 'Type' ) } |
span { { class is 'date' } _('Date'), ': ', $ds->display( 'Date' ) } |
84 |
|
span { { class is 'type' } _('Type'), ': ', $ds->display( 'Type' ) } |
85 |
|
|
86 |
my $content = $ds->display( 'Content' ); |
my $content = $ds->display( 'Content' ); |
87 |
if ( $content ) { |
if ( $content ) { |
88 |
div { outs_raw($content) } |
div { { class is 'content' } outs_raw($content) } |
89 |
} |
} |
90 |
}; |
}; |
91 |
|
|