/[transports]/trunk/web/templates/transports/table
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/web/templates/transports/table

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

revision 96 by dpavlin, Fri Jun 23 13:24:47 2006 UTC revision 97 by dpavlin, Fri Jun 23 20:55:21 2006 UTC
# Line 9  $order => 'date' Line 9  $order => 'date'
9    
10  my $u = Jifty->web->current_user;  my $u = Jifty->web->current_user;
11    
12  warn "user->id: ", $u->id, " ", $u->admin ? 'admin' : '', "\n";  # warn "user->id: ", $u->id, " ", $u->admin ? 'admin' : '', "\n";
   
 use Data::Dumper;  
 warn Dumper( $u->admin );  
13    
14  my $transports = Transports::Model::TransportCollection->new();  my $transports = Transports::Model::TransportCollection->new();
15  if (Jifty->web->current_user->admin || Jifty->web->current_user->can_import) {  if (Jifty->web->current_user->admin || Jifty->web->current_user->can_import) {
# Line 66  sub filter_table { Line 63  sub filter_table {
63  % }  % }
64    
65  <%perl>  <%perl>
 use Data::Dumper;  
 my $t = $transports->first;  
 $transports->goto_first_item;  
 warn Dumper( $t->id );  
66    
67  sub th {  sub th {
68          my ($label, $this_order, $order) = @_;          my ($label, $this_order, $order) = @_;
69  warn "order: $order this_order: $this_order\n";          # warn "order: $order this_order: $this_order\n";
70          if ($order eq $this_order) {          if ($order eq $this_order) {
71                  return $label;                  return $label;
72          } else {          } else {
Legend:
Removed from v.96  
changed lines
  Added in v.97
  ViewVC Help
Powered by ViewVC 1.1.26