diff --git a/lib/WebGUI/FilePump/Admin.pm b/lib/WebGUI/FilePump/Admin.pm
index 8bcf90e24..de90f2adf 100644
--- a/lib/WebGUI/FilePump/Admin.pm
+++ b/lib/WebGUI/FilePump/Admin.pm
@@ -264,6 +264,7 @@ EOTABLE
})
. WebGUI::Form::text($session, {
name => 'uri',
+ size => 45,
})
. WebGUI::Form::submit($session)
. WebGUI::Form::formFooter()
@@ -337,13 +338,22 @@ sub www_manage {
my $dt = $session->datetime;
my $url = $session->url;
my $getABundle = WebGUI::FilePump::Bundle->getAllIterator($session,{ orderBy => 'bundleName' } );
+ my $notYet = $i18n->get('not yet');
while (my $bundle = $getABundle->()) {
+ my $lastModified = $bundle->get('lastModified');
+ my $lastBuild = $bundle->get('lastBuild');
+ my $build = '';
+ if ($lastModified > $lastBuild) {
+ $build = sprintf q| (%s)|,
+ $url->gateway($url->getRequestedUrl,'op=filePump;func=buildBundle;bundleId='.$bundle->getId),
+ $i18n->get('build');
+ }
$rows .= sprintf '
| %s | %s | %s | %s | ',
$session->icon->delete('op=filePump;func=deleteBundle;bundleId='.$bundle->getId),
$url->gateway($url->getRequestedUrl,'op=filePump;func=editBundle;bundleId='.$bundle->getId),
$bundle->get('bundleName'),
- $bundle->get('lastModified') ? $dt->epochToHuman($bundle->get('lastModified')) : ' ',
- $bundle->get('lastBuild') ? $dt->epochToHuman($bundle->get('lastBuild')) : ' ',
+ $bundle->get('lastModified') ? $dt->epochToHuman($lastModified) : $notYet,
+ $bundle->get('lastBuild') ? $dt->epochToHuman($lastBuild).$build : $notYet,
;
}
my $output = sprintf <get('bundle name'), $i18n->get('last modified'), $i18n->get('last build'), $rows;
diff --git a/lib/WebGUI/i18n/English/FilePump.pm b/lib/WebGUI/i18n/English/FilePump.pm
index 46f6db28b..5eceaa852 100644
--- a/lib/WebGUI/i18n/English/FilePump.pm
+++ b/lib/WebGUI/i18n/English/FilePump.pm
@@ -76,12 +76,24 @@ our $I18N = {
context => q|Edit bundle label.|
},
+ 'build' => {
+ message => q|Build|,
+ lastUpdated => 1242495011,
+ context => q|List bundles label. Meaning to construct. The short version of Build this bundle.|
+ },
+
'build error' => {
message => q|Problem fetching this URI: %s|,
lastUpdated => 1242495011,
context => q|Edit bundle error label.|
},
+ 'not yet' => {
+ message => q|Not yet|,
+ lastUpdated => 1242515308,
+ context => q|Meaning that something has not been done at this time. Before the first time.|
+ },
+
};
1;