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

Use descriptive, internationalized labels for template form fields

Browse source
This commit is contained in:
Colin Kuskie 2005-06-07 03:43:57 +00:00
parent 8cf3d889b8
commit d70a12f09a
12 changed files with 16 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Asset/Wobject/Article.pm
View file

@ -60,7 +60,8 @@ sub getEditForm {
my $tabform = $self->SUPER::getEditForm(); my $tabform = $self->SUPER::getEditForm();
$tabform->getTab("display")->template( $tabform->getTab("display")->template(
-value=>$self->getValue('templateId'), -value=>$self->getValue('templateId'),
-namespace=>"Article" -namespace=>"Article",
-label=>WebGUI::International::get(72,"Asset_Article"),
); );
$tabform->getTab("properties")->text( $tabform->getTab("properties")->text(
-name=>"linkTitle", -name=>"linkTitle",

1
lib/WebGUI/Asset/Wobject/DataForm.pm
View file

@ -207,6 +207,7 @@ sub getEditForm {
-name=>"templateId", -name=>"templateId",
-value=>$self->getValue("templateId"), -value=>$self->getValue("templateId"),
-namespace=>"DataForm", -namespace=>"DataForm",
-label=>WebGUI::International::get(82,"Asset_DataForm"),
-afterEdit=>'func=edit', -afterEdit=>'func=edit',
-defaultValue=>"PBtmpl0000000000000141" -defaultValue=>"PBtmpl0000000000000141"
); );

1
lib/WebGUI/Asset/Wobject/Folder.pm
View file

@ -86,6 +86,7 @@ sub getEditForm {
my $tabform = $self->SUPER::getEditForm(); my $tabform = $self->SUPER::getEditForm();
$tabform->getTab("display")->template( $tabform->getTab("display")->template(
-value=>$self->getValue('templateId'), -value=>$self->getValue('templateId'),
-label=>WebGUI::International::get('folder template title', "Asset_Folder"),
-namespace=>"Folder" -namespace=>"Folder"
); );
if ($self->get("assetId") eq "new") { if ($self->get("assetId") eq "new") {

1
lib/WebGUI/Asset/Wobject/HttpProxy.pm
View file

@ -100,6 +100,7 @@ sub getEditForm {
my $tabform = $self->SUPER::getEditForm(); my $tabform = $self->SUPER::getEditForm();
$tabform->getTab("display")->template( $tabform->getTab("display")->template(
-value=>$self->getValue('templateId'), -value=>$self->getValue('templateId'),
-label=>WebGUI::International::get('http proxy template title',"Asset_DataForm"),
-namespace=>"HttpProxy" -namespace=>"HttpProxy"
); );
my %hash; my %hash;

1
lib/WebGUI/Asset/Wobject/Layout.pm
View file

@ -95,6 +95,7 @@ sub getEditForm {
my $tabform = $self->SUPER::getEditForm(); my $tabform = $self->SUPER::getEditForm();
$tabform->getTab("display")->template( $tabform->getTab("display")->template(
-value=>$self->getValue('templateId'), -value=>$self->getValue('templateId'),
-label=>WebGUI::International::get('layout template title', 'Asset_Layout'),
-namespace=>"Layout" -namespace=>"Layout"
); );
if ($self->get("assetId") eq "new") { if ($self->get("assetId") eq "new") {

3
lib/WebGUI/Asset/Wobject/MessageBoard.pm
View file

@ -44,7 +44,8 @@ sub getEditForm {
my $tabform = $self->SUPER::getEditForm(); my $tabform = $self->SUPER::getEditForm();
$tabform->getTab("display")->template( $tabform->getTab("display")->template(
-value=>$self->getValue('templateId'), -value=>$self->getValue('templateId'),
-namespace=>"MessageBoard" -namespace=>"MessageBoard",
-label=>WebGUI::International::get(73,"Asset_MessageBoard");
); );
return $tabform; return $tabform;
} }

5
lib/WebGUI/Asset/Wobject/Navigation.pm
View file

@ -81,9 +81,11 @@ sub definition {
sub getEditForm { sub getEditForm {
my $self = shift; my $self = shift;
my $tabform = $self->SUPER::getEditForm; my $tabform = $self->SUPER::getEditForm;
my $i18n = WebGUI::International->new("Asset_Navigation");
$tabform->getTab("display")->template( $tabform->getTab("display")->template(
-value=>$self->getValue('templateId'), -value=>$self->getValue('templateId'),
-namespace=>"Navigation" -namespace=>"Navigation",
-label=>$i18n->get(1096),
); );
$tabform->hidden({ $tabform->hidden({
name=>"returnUrl", name=>"returnUrl",
@ -106,7 +108,6 @@ sub getEditForm {
$pedigreeChecked = 1; $pedigreeChecked = 1;
} }
} }
my $i18n = WebGUI::International->new("Asset_Navigation");
$tabform->getTab("properties")->selectList( $tabform->getTab("properties")->selectList(
-name=>"startType", -name=>"startType",
-options=>{ -options=>{

1
lib/WebGUI/Asset/Wobject/Poll.pm
View file

@ -172,6 +172,7 @@ sub getEditForm {
$tabform->getTab("display")->template( $tabform->getTab("display")->template(
-value=>$self->getValue('templateId'), -value=>$self->getValue('templateId'),
-namespace=>"Poll" -namespace=>"Poll"
-label=>WebGUI::International::get(73,"Asset_Poll"),
); );
my ($i, $answers); my ($i, $answers);
for ($i=1; $i<=20; $i++) { for ($i=1; $i<=20; $i++) {

1
lib/WebGUI/Asset/Wobject/Product.pm
View file

@ -204,6 +204,7 @@ sub getEditForm {
$tabform->getTab("display")->template( $tabform->getTab("display")->template(
-value=>$self->getValue('templateId'), -value=>$self->getValue('templateId'),
-namespace=>"Product" -namespace=>"Product"
-label=>WebGUI::International::get(62,"Asset_Product"),
); );
$tabform->getTab("properties")->text( $tabform->getTab("properties")->text(
-name=>"price", -name=>"price",

1
lib/WebGUI/Asset/Wobject/SQLReport.pm
View file

@ -138,6 +138,7 @@ sub getEditForm {
my $tabform = $self->SUPER::getEditForm(); my $tabform = $self->SUPER::getEditForm();
$tabform->getTab("display")->template( $tabform->getTab("display")->template(
-value=>$self->getValue('templateId'), -value=>$self->getValue('templateId'),
-label=>WebGUI::International::get(72,"Asset_SQLReport"),
-namespace=>"SQLReport" -namespace=>"SQLReport"
); );
$tabform->getTab("properties")->yesNo( $tabform->getTab("properties")->yesNo(

1
lib/WebGUI/Asset/Wobject/SyndicatedContent.pm
View file

@ -84,6 +84,7 @@ sub getEditForm {
$tabform->getTab("display")->template( $tabform->getTab("display")->template(
-value=>$self->getValue('templateId'), -value=>$self->getValue('templateId'),
-namespace=>"SyndicatedContent" -namespace=>"SyndicatedContent"
-label=>WebGUI::International::get(72,"Asset_SyndicatedContent"),
); );
$tabform->getTab("properties")->url( $tabform->getTab("properties")->url(
-name=>"rssUrl", -name=>"rssUrl",

1
lib/WebGUI/Asset/Wobject/WSClient.pm
View file

@ -157,6 +157,7 @@ sub getEditForm {
-name => 'templateId', -name => 'templateId',
-value => $self->getValue('templateId'), -value => $self->getValue('templateId'),
-namespace => "WSClient" -namespace => "WSClient"
-label => WebGUI::International::get(72, "Asset_WSClient"),
); );
$tabform->getTab("display")->yesNo ( $tabform->getTab("display")->yesNo (
-name => 'preprocessMacros', -name => 'preprocessMacros',