oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

UI improvements.

Browse source 
Show build label in list of bundles if lastModified > lastBuild.
Display label "Not yet" if bundle has never been modified, or built.
This commit is contained in:
Colin Kuskie 2009-05-16 16:17:43 -07:00
parent 76e4b99eb5
commit 9cafcf3a61
2 changed files with 24 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/WebGUI/FilePump/Admin.pm
View file

@ -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| <a href="%s">(%s)</a>|,
$url->gateway($url->getRequestedUrl,'op=filePump;func=buildBundle;bundleId='.$bundle->getId),
$i18n->get('build');
}
$rows .= sprintf '<tr><td>%s</td><td><a href="%s">%s</a></td><td>%s</td><td>%s</td>',
$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')) : '&nbsp;',
$bundle->get('lastBuild') ? $dt->epochToHuman($bundle->get('lastBuild')) : '&nbsp;',
$bundle->get('lastModified') ? $dt->epochToHuman($lastModified) : $notYet,
$bundle->get('lastBuild') ? $dt->epochToHuman($lastBuild).$build : $notYet,
;
}
my $output = sprintf <<EOHTML, $i18n->get('bundle name'), $i18n->get('last modified'), $i18n->get('last build'), $rows;

12
lib/WebGUI/i18n/English/FilePump.pm
View file

@ -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;