/[webpac2]/Webpacus/lib/Webpacus/Model/WebPAC.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 /Webpacus/lib/Webpacus/Model/WebPAC.pm

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

revision 354 by dpavlin, Sat Jan 7 18:18:07 2006 UTC revision 355 by dpavlin, Sat Jan 7 22:45:16 2006 UTC
# Line 98  sub new { Line 98  sub new {
98                  include_path => $template_path,                  include_path => $template_path,
99                  filters => {                  filters => {
100                          dump_html => sub {                          dump_html => sub {
101                                  my $t = shift || return;                                  return unless (@_);
102                                  #return Data::HTMLDumper->Dumper( $t );                                  my $out;
103                                  return Data::HTMLDumper->Dump([$t],[qw/dump/]);                                  my $i = 1;
104                                    foreach my $v (@_) {
105                                            $out .= qq{<div id="dump_$i">} .
106                                                    Data::HTMLDumper->Dump([ $v ],[ "v$i" ]) .
107                                                    qq{</div>};
108                                            $i++;
109                                    }
110                                    $out =~ s!<table[^>/]*>!<table class="dump">!gis if ($out);
111                                    return $out;
112                          }                          }
113                  },                  },
114          );          );
Legend:
Removed from v.354  
changed lines
  Added in v.355
  ViewVC Help
Powered by ViewVC 1.1.26