/[Frey]/trunk/lib/Frey/Web/Item.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 /trunk/lib/Frey/Web/Item.pm

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

revision 82 by dpavlin, Thu Jul 10 15:29:01 2008 UTC revision 86 by dpavlin, Thu Jul 10 17:27:58 2008 UTC
# Line 60  sub main { Line 60  sub main {
60          while(1) {          while(1) {
61          my $out;          my $out;
62                  if ( $self->render_as eq 'edit' ) {                  if ( $self->render_as eq 'edit' ) {
63                          $out = $self->render_iterator(                          $out .= $self->render_edit;
                                 qq|<div class="editform">|,  
                                 sub {  
                                         #warn "# edit render_iterator ",dump( @_ );  
                                         my ( $name, $field_name, $label, $val ) = @_;  
                                         return if $name =~ /^_/;  
                                         return qq|  
                                                 <div class=fieldholder>  
                                                         <div class=label>$label</div>  
                                                         <div class=field>  
                                                                 <input type=text id="$field_name" name="$field_name" value="$val">  
                                                         </div>  
                                                 </div>  
                                         |;  
                                 },  
                                 qq|</div>|  
                         );  
64                  } elsif ( $self->render_as eq 'view' ) {                  } elsif ( $self->render_as eq 'view' ) {
65                          $out = $self->render_iterator(                          $out .= $self->render_view;
                                 qq|<div class="view">|,  
                                 sub {  
                                         #warn "# view render_iterator ",dump( @_ );  
                                         my ( $name, $field_name, $label, $val ) = @_;  
                                         return if $name =~ /^_/;  
                                         return qq|  
                                                 <div class=fieldholder>  
                                                         <div class=label>$label</div>  
                                                         <div class=field>$val</div>  
                                                         </div>  
                                                 </div>  
                                         |;  
                                 },  
                                 qq|</div>|  
                         );  
66                  } else {                  } else {
67                          warn "no renderer ",dump( $self->render_as ), " skipping...";                          warn "no renderer ",dump( $self->render_as ), " skipping...";
68                  }                  }
# Line 106  sub main { Line 75  sub main {
75          }          }
76  };  };
77    
78    sub render_edit {
79            my $self = shift;
80            warn "# render_edit ",$self->id," ",$self->uuid;
81            $self->render_iterator(
82                    qq|<div class="editform">|,
83                    sub {
84                            #warn "# edit render_iterator ",dump( @_ );
85                            my ( $name, $field_name, $label, $val ) = @_;
86                            return if $name =~ /^_/;
87                            return qq|
88                                    <div class=fieldholder>
89                                            <div class=label>$label</div>
90                                            <div class=field>
91                                                    <input type=text id="$field_name" name="$field_name" value="$val">
92                                            </div>
93                                    </div>
94                            |;
95                    },
96                    qq|</div>|
97            );
98    }
99    
100    sub render_view {
101            my $self = shift;
102            warn "# render_view ",$self->id," ",$self->uuid;
103            $self->render_iterator(
104                    qq|<div class="view">|,
105                    sub {
106                            #warn "# view render_iterator ",dump( @_ );
107                            my ( $name, $field_name, $label, $val ) = @_;
108                            return if $name =~ /^_/;
109                            return qq|
110                                    <div class=fieldholder>
111                                            <div class=label>$label</div>
112                                            <div class=field>$val</div>
113                                            </div>
114                                    </div>
115                            |;
116                    },
117                    qq|</div>|
118            );
119    }
120    
121  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
122    
123  use Strix::User;  use Strix::User;
Legend:
Removed from v.82  
changed lines
  Added in v.86
  ViewVC Help
Powered by ViewVC 1.1.26