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();
$tabform->getTab("display")->template(
-value=>$self->getValue('templateId'),
-namespace=>"Article"
-namespace=>"Article",
-label=>WebGUI::International::get(72,"Asset_Article"),
);
$tabform->getTab("properties")->text(
-name=>"linkTitle",

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

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

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

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

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

@ -95,6 +95,7 @@ sub getEditForm {
my $tabform = $self->SUPER::getEditForm();
$tabform->getTab("display")->template(
-value=>$self->getValue('templateId'),
-label=>WebGUI::International::get('layout template title', 'Asset_Layout'),
-namespace=>"Layout"
);
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();
$tabform->getTab("display")->template(
-value=>$self->getValue('templateId'),
-namespace=>"MessageBoard"
-namespace=>"MessageBoard",
-label=>WebGUI::International::get(73,"Asset_MessageBoard");
);
return $tabform;
}

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

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

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

@ -172,6 +172,7 @@ sub getEditForm {
$tabform->getTab("display")->template(
-value=>$self->getValue('templateId'),
-namespace=>"Poll"
-label=>WebGUI::International::get(73,"Asset_Poll"),
);
my ($i, $answers);
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(
-value=>$self->getValue('templateId'),
-namespace=>"Product"
-label=>WebGUI::International::get(62,"Asset_Product"),
);
$tabform->getTab("properties")->text(
-name=>"price",

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

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

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

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

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

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