diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt index 1193b9838..0784a584e 100644 --- a/docs/changelog/7.x.x.txt +++ b/docs/changelog/7.x.x.txt @@ -42,6 +42,8 @@ - Wiki page revisions were not in order (perlDreamer Consulting, LLC) - Spectre misses Sundays (thanks to Todor Kouyoumdjiev, ECoCoMS Ltd.) - fix: RollbackVersion (Thanks to Erik Svanberg for the patch) + - rfe: Paginate "manageCommittedVersions" (perlDreamer Consulting, LLC) + - rfe: manageCommittedVersions in reverse chronological order (perlDreamer Consulting, LLC) 7.3.11 - Added an option for enabling coverage tests to testCodebase.pl. diff --git a/lib/WebGUI/Operation/VersionTag.pm b/lib/WebGUI/Operation/VersionTag.pm index d5c211b17..e7a31086a 100644 --- a/lib/WebGUI/Operation/VersionTag.pm +++ b/lib/WebGUI/Operation/VersionTag.pm @@ -20,6 +20,7 @@ use WebGUI::AdminConsole; use WebGUI::International; use WebGUI::VersionTag; use WebGUI::HTMLForm; +use WebGUI::Paginator; =head1 NAME @@ -269,30 +270,33 @@ A reference to the current session. =cut sub www_manageCommittedVersions { - my $session = shift; - return $session->privilege->adminOnly() unless ($session->user->isInGroup(3)); - my $ac = WebGUI::AdminConsole->new($session,"versions"); - my $i18n = WebGUI::International->new($session,"VersionTag"); - my $rollback = $i18n->get('rollback'); - my $rollbackPrompt = $i18n->get('rollback version tag confirm'); - $ac->addSubmenuItem($session->url->page('op=editVersionTag'), $i18n->get("add a version tag")); - $ac->addSubmenuItem($session->url->page('op=manageVersions'), $i18n->get("manage versions")); - $ac->addSubmenuItem($session->url->page('op=managePendingVersions'), $i18n->get("manage pending versions")) if ($session->user->isInGroup(3)); - my $output = '
| '.$i18n->get("version tag name").' | '.$i18n->get("committed on").' | '.$i18n->get("committed by").' | |
|---|---|---|---|
| '.$name.' | -'.$session->datetime->epochToHuman($date).' | -'.$u->username.' | -'.$rollback.' |