/[webpac2]/Webpacus2/lib/Webpacus/View.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /Webpacus2/lib/Webpacus/View.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1000 by dpavlin, Sun Nov 4 17:19:12 2007 UTC revision 1003 by dpavlin, Sun Nov 4 17:40:09 2007 UTC
# Line 70  private template 'webpacus' => sub { Line 70  private template 'webpacus' => sub {
70  private template 'perlmonks' => sub {  private template 'perlmonks' => sub {
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                  $ds->display( 'Title' );                  hyperlink(
76                            url => 'http://www.perlmonks.org/?node_id=' . $ds->display('Node_ID'),
77                            label => $ds->display( 'Title' )
78                    );
79          }          }
80          tt { $ds->display( 'database' ) . '/' . $ds->display( 'input' ) . '/' . $ds->display( 'id' ) }          tt { $ds->display( 'database' ) . '/' . $ds->display( 'input' ) . '/' . $ds->display( 'id' ) }
81            div { $ds->display( 'Date' ) }
82    
83            my $content = $ds->display( 'Content' );
84            if ( $content ) {
85                    div { outs_raw($content) }
86            }
87  };  };
88    
89  1;  1;
Legend:
Removed from v.1000  
changed lines
  Added in v.1003
  ViewVC Help
Powered by ViewVC 1.1.26