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

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

revision 872 by dpavlin, Wed Dec 17 17:59:59 2008 UTC revision 873 by dpavlin, Wed Dec 17 18:15:17 2008 UTC
# Line 58  sub as_markup { Line 58  sub as_markup {
58                  $dataset->{ $name }->{data} = $by_col->{$nr};                  $dataset->{ $name }->{data} = $by_col->{$nr};
59          }          }
60    
61          my $data_js = 'var datasets = ' . to_json( $dataset ) . ";\n";          my $placeholder = qq|<div class="frey-error">no data found</div>|;
62            my $data_js = '';
63            if ( $dataset ) {
64                    $data_js = 'var datasets = ' . to_json( $dataset ) . ";\n";
65                    $placeholder = qq|<div id="placeholder" style="width:600px;height:300px;"></div>|;
66            }
67    
68          warn "# $data_js" if $self->debug;          warn "# $data_js" if $self->debug;
69    
# Line 73  sub as_markup { Line 78  sub as_markup {
78    
79          my $flags = `atsar help 2>&1`;          my $flags = `atsar help 2>&1`;
80          $flags =~ s{^.+flags:\s+}{}s;          $flags =~ s{^.+flags:\s+}{}s;
81            $flags =~ s{^\s*-[AS].+$}{}gm; # remove -A and -S flags which doesn't make sense
82            $flags =~ s{^\s+}{}s;
83    
84          foreach my $line ( split(/\s*\n\s*/, $flags ) ) {          foreach my $line ( split(/\s*\n\s*/, $flags ) ) {
85                  my ( $flag, $desc ) = split(/\s+/, $line, 2 );                  my ( $flag, $desc ) = split(/\s+/, $line, 2 );
# Line 91  sub as_markup { Line 98  sub as_markup {
98                  #choices, form { float: left; }                  #choices, form { float: left; }
99          |);          |);
100    
101            return
102          qq|          qq|
103          <div id="placeholder" style="width:600px;height:300px;"></div>  
104                    $placeholder
105    
106                  <br><tt>$sar</tt>                  <br><tt>$sar</tt>
107    
108                  $form                  $form
109    
110                  <div id="choices"><b>Show</b></div>                  <div id="choices"><b>Show</b></div>
111    
112          | . q|          | . q|
Legend:
Removed from v.872  
changed lines
  Added in v.873
  ViewVC Help
Powered by ViewVC 1.1.26