| … | |
… | |
| 431 | CGI::submit(-value=>"Take Action!")) |
431 | CGI::submit(-value=>"Take Action!")) |
| 432 | ); |
432 | ); |
| 433 | print CGI::end_table(); |
433 | print CGI::end_table(); |
| 434 | |
434 | |
| 435 | ########## print table |
435 | ########## print table |
|
|
436 | |
|
|
437 | ########## first adjust heading if in editMode |
|
|
438 | $prettyFieldNames{set_id} = "Edit All <br> Set Data" if $editMode; |
|
|
439 | |
| 436 | |
440 | |
| 437 | print CGI::p("Showing ", scalar @visibleSetIDs, " out of ", scalar @allSetIDs, " sets."); |
441 | print CGI::p("Showing ", scalar @visibleSetIDs, " out of ", scalar @allSetIDs, " sets."); |
| 438 | |
442 | |
| 439 | $self->printTableHTML(\@Sets, \%prettyFieldNames, |
443 | $self->printTableHTML(\@Sets, \%prettyFieldNames, |
| 440 | editMode => $editMode, |
444 | editMode => $editMode, |
| … | |
… | |
| 1669 | my $imageLink = CGI::a({href => $problemSetListURL}, CGI::img({src=>$imageURL, border=>0})); |
1673 | my $imageLink = CGI::a({href => $problemSetListURL}, CGI::img({src=>$imageURL, border=>0})); |
| 1670 | |
1674 | |
| 1671 | my @tableCells; |
1675 | my @tableCells; |
| 1672 | my %fakeRecord; |
1676 | my %fakeRecord; |
| 1673 | my $set_id = $Set->set_id; |
1677 | my $set_id = $Set->set_id; |
|
|
1678 | |
| 1674 | $fakeRecord{select} = CGI::checkbox(-name => "selected_sets", -value => $set_id, -checked => $setSelected, -label => "", ); |
1679 | $fakeRecord{select} = CGI::checkbox(-name => "selected_sets", -value => $set_id, -checked => $setSelected, -label => "", ); |
| 1675 | $fakeRecord{set_id} = CGI::font({class=>$publishedClass}, $set_id) . ($editMode ? "" : $imageLink); |
1680 | # $fakeRecord{set_id} = CGI::font({class=>$publishedClass}, $set_id) . ($editMode ? "" : $imageLink); |
|
|
1681 | $fakeRecord{set_id} = $editMode |
|
|
1682 | ? CGI::a({href=>$problemListURL}, "$set_id") |
|
|
1683 | : CGI::font({class=>$publishedClass}, $set_id) . $imageLink; |
| 1676 | $fakeRecord{problems} = (FIELD_PERMS()->{problems} and not $authz->hasPermissions($user, FIELD_PERMS()->{problems})) |
1684 | $fakeRecord{problems} = (FIELD_PERMS()->{problems} and not $authz->hasPermissions($user, FIELD_PERMS()->{problems})) |
| 1677 | ? "$problems" |
1685 | ? "$problems" |
| 1678 | : CGI::a({href=>$problemListURL}, "$problems"); |
1686 | : CGI::a({href=>$problemListURL}, "$problems"); |
| 1679 | $fakeRecord{users} = (FIELD_PERMS()->{users} and not $authz->hasPermissions($user, FIELD_PERMS()->{users})) |
1687 | $fakeRecord{users} = (FIELD_PERMS()->{users} and not $authz->hasPermissions($user, FIELD_PERMS()->{users})) |
| 1680 | ? "$users/$totalUsers" |
1688 | ? "$users/$totalUsers" |
| … | |
… | |
| 1694 | -label => "", |
1702 | -label => "", |
| 1695 | ); |
1703 | ); |
| 1696 | } |
1704 | } |
| 1697 | |
1705 | |
| 1698 | # Set ID |
1706 | # Set ID |
|
|
1707 | if ($editMode) { |
|
|
1708 | push @tableCells, CGI::a({href=>$problemListURL}, "$set_id"); |
|
|
1709 | } else { |
| 1699 | push @tableCells, CGI::font({class=>$publishedClass}, $set_id . $imageLink); |
1710 | push @tableCells, CGI::font({class=>$publishedClass}, $set_id . $imageLink); |
|
|
1711 | } |
| 1700 | |
1712 | |
| 1701 | # Problems link |
1713 | # Problems link |
| 1702 | if ($editMode) { |
1714 | if ($editMode) { |
| 1703 | # column not there |
1715 | # column not there |
| 1704 | } else { |
1716 | } else { |
Parent Directory
| 
Revision Log
| 
Patch