Subversion Repositories VORC

Rev

Rev 269 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 269 Rev 293
Line 661... Line 661...
661 
  foreach my $t (@ProductList)  {
 661 
  foreach my $t (@ProductList)  {
662 
    my $shading = ($highlightShifts and $t->{RCid} eq $ORCUSER->{RCid}) ? "highlighted" : "shaded";
 662 
    my $shading = ($highlightShifts and $t->{RCid} eq $ORCUSER->{RCid}) ? "highlighted" : "shaded";
663 
    no strict; # 'strict' doesn't like the exists functionality
 663 
    no strict; # 'strict' doesn't like the exists functionality
664 
    my $rowclick = (exists &addRowClick) ? addRowClick ($t) : "";
 664 
    my $rowclick = (exists &addRowClick) ? addRowClick ($t) : "";
Line 665... Line 665...
665
665
666 
    print $h->div ({ class=>'rTableRow '.$shading, onClick=>$rowclick }, [ map { $h->div ({ class=>'rTableCell' }, exists &{"modify_".$_} ? &{"modify_".$_} ($t) : $t->{$_} ? $t->{$_} : "") } @displayFields ]);
 666 
    print $h->div ({ class=>'rTableRow '.$shading, ($rowclick ? (onClick=>$rowclick) : {}) }, [ map { $h->div ({ class=>'rTableCell' }, exists &{"modify_".$_} ? &{"modify_".$_} ($t) : $t->{$_} ? $t->{$_} : "") } @displayFields ]);
Line 667... Line 667...
667 
  }
 667 
  }
Line 668... Line 668...
668
668