diff --git a/lib/WebGUI/FilePump/Admin.pm b/lib/WebGUI/FilePump/Admin.pm index 5bd1417f0..ba01a7c08 100644 --- a/lib/WebGUI/FilePump/Admin.pm +++ b/lib/WebGUI/FilePump/Admin.pm @@ -7,6 +7,7 @@ use WebGUI::HTMLForm; use WebGUI::International; use WebGUI::Pluggable; use WebGUI::Utility; +use WebGUI::FilePump::Bundle; =head1 NAME @@ -108,13 +109,12 @@ sub www_editBundle { $form->dynamicForm([WebGUI::FilePump::Bundle->crud_definition($session)], 'properties', $bundle); $form->submit; - my $i18n = WebGUI::International->new($session, 'PassiveAnalytics'); - my $ac = WebGUI::AdminConsole->new($session,'passiveAnalytics'); - $ac->addSubmenuItem($session->url->page("op=passiveAnalytics;func=editRuleflow"), $i18n->get("manage ruleset")); - if ($ruleId eq 'new') { - $rule->delete; + my $i18n = WebGUI::International->new($session, 'FilePump'); + my $ac = WebGUI::AdminConsole->new($session,'filePump'); + if ($bundleId eq 'new') { + $bundle->delete; } - return $ac->render($error.$form->print,$i18n->get('Edit Rule')); + return $ac->render($error.$form->print,$i18n->get('Edit Bundle')); } #------------------------------------------------------------------- @@ -169,9 +169,22 @@ A WebGUI session object. sub www_manage { my $session = shift; return $session->privilege->insufficient() unless canView($session); - my $ac = WebGUI::AdminConsole->new($session,'passiveAnalytics'); + my $i18n = WebGUI::International->new($session, 'FilePump'); + my $error = shift; + my $rows = ''; + my $getABundle = WebGUI::FilePump::Bundle->getAllIterator($session,{ orderBy => 'bundleName' } ); + while (my $bundle = $getABundle->()) { + $rows .= sprintf ' %s', $bundle->get('bundleName'); + } + my $output = sprintf <get('bundle name'); + + +%s +
 %s
+EOHTML + my $ac = WebGUI::AdminConsole->new($session,'filePump'); $ac->addSubmenuItem($session->url->page('op=filePump;func=add'), $i18n->get('add a bundle')); - return $ac->render($error.$f->print.$addmenu.$steps, 'Passive Analytics'); + return $ac->render($error.$output, 'File Pump'); } diff --git a/lib/WebGUI/i18n/English/FilePump.pm b/lib/WebGUI/i18n/English/FilePump.pm index d2285307a..2c9cb4a2b 100644 --- a/lib/WebGUI/i18n/English/FilePump.pm +++ b/lib/WebGUI/i18n/English/FilePump.pm @@ -21,6 +21,24 @@ our $I18N = { context => q|Hover help for bundle name.| }, + 'File Pump' => { + message => q|File Pump|, + lastUpdated => 1242439269, + context => q|File Pump is a system for pushing out lots of files at once.| + }, + + 'add a bundle' => { + message => q|Add a Bundle|, + lastUpdated => 1242439269, + context => q|Admin console label. Bundle is a loose set of similar, but not identical objects. Similar to pile.| + }, + + 'Edit Bundle' => { + message => q|Edit Bundle|, + lastUpdated => 1242439269, + context => q|Admin console label. Bundle is a loose set of similar, but not identical objects. Similar to pile.| + }, + }; 1;