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

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

revision 954 by dpavlin, Mon Jan 5 13:50:27 2009 UTC revision 955 by dpavlin, Wed Jan 7 00:04:46 2009 UTC
# Line 11  CSS area graph based on example from L<h Line 11  CSS area graph based on example from L<h
11    
12  =cut  =cut
13    
14  has skeleton => (  has sponge => (
15          is => 'rw',          is => 'rw',
16          isa => 'Str',          isa => 'Sponge',
17          required => 1,          required => 1,
         default => 'skeleton',  
18  );  );
19    
20  sub as_markup {  sub as_markup {
# Line 24  sub as_markup { Line 23  sub as_markup {
23          $self->add_css( 'static/Frey/CSS/Area.css' );          $self->add_css( 'static/Frey/CSS/Area.css' );
24          $self->add_js ( 'static/Frey/CSS/Area.js'  );          $self->add_js ( 'static/Frey/CSS/Area.js'  );
25    
26          qq|          my $html
27                    = qq|<ul class="graph" onclick="gr.makeGraphs(); return false;">|
28  <ul class="graph" onclick="gr.makeGraphs(); return false;">                  . join("\n",
29                            map {
30  <li><span class="name">Mon</span> <span class="val">100</span></li>                                  my ( $val, $name ) = ( $_->[0], $_->[1] );
31  <li><span class="name">Tue</span> <span class="val">200</span></li>                                  die "first column data isn't numeric ", $self->dump( $_ ) unless $val =~ m{^\d+$};
32  <li><span class="name">Wed</span> <span class="val">150</span></li>                                  qq|<li><span class="name">$name</span> <span class="val">$val</span></li>|;
33  <li><span class="name">Thu</span> <span class="val">180</span></li>                          } @{ $self->sponge->{rows} }
34  <li><span class="name">Fri</span> <span class="val">100</span></li>                  )
35  <li><span class="name">Sat</span> <span class="val">200</span></li>                  . qq|</ul>|
36  <li><span class="name">Sun</span> <span class="val">150</span></li>                  ;
37  <li><span class="name">Mon</span> <span class="val">80</span></li>  
38  <li><span class="name">Tue</span> <span class="val">75</span></li>          $html .= qq|
39  <li><span class="name">Wed</span> <span class="val">125</span></li>                  <br style="clear:both" />
40  <li><span class="name">Thu</span> <span class="val">125</span></li>                  <div class="note">
41  <li><span class="name">Fri</span> <span class="val">160</span></li>                  Click on the table or graph to switch view
42  <li><span class="name">Sat</span> <span class="val">160</span></li>                  </div>
 <li><span class="name">Sun</span> <span class="val">15</span></li>  
 </ul>  
 </div>  
   
 <br style="clear:both" />  
 <div class="note">  
 Click on the table or graph to switch view  
 </div>  
   
43          |;          |;
44    
45            return $html;
46  }  }
47    
48  1;  1;
Legend:
Removed from v.954  
changed lines
  Added in v.955
  ViewVC Help
Powered by ViewVC 1.1.26