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

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

revision 418 by dpavlin, Tue Nov 18 16:54:10 2008 UTC revision 422 by dpavlin, Tue Nov 18 17:41:41 2008 UTC
# Line 136  sub page { Line 136  sub page {
136    
137          my $status_line = '';          my $status_line = '';
138          foreach my $part ( @{ $self->status } ) {          foreach my $part ( @{ $self->status } ) {
139                  confess "part not hash ",dump( $part ) unless ref($part) eq 'HASH';                  if ( ref($part) ne 'HASH' ) {
140                            warn "part not hash ",dump( $part ) ;
141                            #$self->status( $part );
142                            next;
143                    }
144                  foreach my $name ( keys %$part ) {                  foreach my $name ( keys %$part ) {
145                          my $content = $part->{$name};                          my $content = $part->{$name};
146                          if ( ref($content) ) {                          if ( ref($content) ) {
Legend:
Removed from v.418  
changed lines
  Added in v.422
  ViewVC Help
Powered by ViewVC 1.1.26