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

lots of progress on i18n.

Browse source
This commit is contained in:
Matthew Wilson 2005-12-03 15:22:58 +00:00
parent 9e444905df
commit ba7d02f0d2
10 changed files with 644 additions and 131 deletions
Download patch file Download diff file Expand all files Collapse all files

47
lib/WebGUI/Asset/Field.pm
View file

@ -58,27 +58,25 @@ A hash reference passed in from a subclass definition.
sub definition {
my $class = shift;
my $definition = shift;
my $fieldName;
unless ($session{form}{isUserPref} eq '1') {
$fieldName = 'The unique name of the field in the asset that you are overriding.'; } else { $fieldName = 'The unique name of a user preference parameter you are inventing.';}
my $i18n = WebGUI::International->new("Asset_Shortcut");
my %properties;
tie %properties, 'Tie::IxHash';
%properties = (
# formTemplateId=>{fieldType=>'template',defaultValue=>''},
# valueTemplateId=>{fieldType=>'template',defaultValue=>''},
# isUserPref=>{fieldType=>'hidden',defaultValue=>$session{form}{isUserPref},label=>'Is This Field a User Preference?'},
fieldName=>{fieldType=>'text',defaultValue=>'',label=>$fieldName},
fieldLabel=>{fieldType=>'text',defaultValue=>'',label=>'Label for This Field.'},
fieldDescription=>{fieldType=>'HTMLArea',defaultValue=>'',label=>'Hover Help (Description) for this Field.'},
fieldType=>{fieldType=>'fieldType',defaultValue=>'',label=>'Type of Field',types=>['text','textarea','checkList','selectList']},
fieldName=>{fieldType=>'text',defaultValue=>'',label=>$i18n->get('The unique name of a user preference parameter you are inventing')},
fieldLabel=>{fieldType=>'text',defaultValue=>'',label=>$i18n->get('Label for This Field')},
fieldDescription=>{fieldType=>'HTMLArea',defaultValue=>'',label=>$i18n->get('Hover Help Description for this Field')},
fieldType=>{fieldType=>'fieldType',defaultValue=>'',label=>$i18n->get('Type of Field'),types=>['text','textarea','checkList','selectList']},
# overrideForm=>{fieldType=>'yesNo',defaultValue=>0},
# overrideValue=>{fieldType=>'yesNo',defaultValue=>0},
possibleValues=>{fieldType=>'textarea',defaultValue=>'',label=>'Possible values for this Field. Only applies to selectList and checkList.'},
defaultValue=>{fieldType=>'textarea',defaultValue=>'',label=>'Default Value for this field.'}
possibleValues=>{fieldType=>'textarea',defaultValue=>'',label=>$i18n->get('Possible values for this Field. Only applies to selectList and checkList.')},
defaultValue=>{fieldType=>'textarea',defaultValue=>'',label=>$i18n->get('Default Value for this field.')}
);
push(@{$definition}, {
assetName=>"Field",
assetName=>$i18n->get("Field"),
tableName=>'wgField',
autoGenerateForms=>1,
className=>'WebGUI::Asset::Field',
@ -124,29 +122,6 @@ sub getFieldName {
return $name;
}
#-------------------------------------------------------------------
#sub getFieldValue {
# my $self = shift;
# my $value;
# my $dashlet = $self->getParent;
# if (ref $dashlet eq 'WebGUI::Asset::Shortcut') {
# my @fellowFields = $dashlet->getUserPrefs;
# foreach my $field (@fellowFields) {
# my $id = $field->getId;
# my $fieldName = $field->getFieldName;
# my $fieldValue = $self->getUserPref($id);
# unless ($self->getId eq $id) {
# $value =~ s/\<tmpl_var\sshortcut\.field\.${fieldName}\.value\>/$fieldValue/g;
# #prevent macro loops. A Field cannot be self referential.
# } else {
# $value =~ s/\<tmpl_var\sshortcut\.field\.${fieldName}\.value\>//g;
# }
# }
# }
# $value = WebGUI::Asset::Template->processRaw($value);
# return $value;
#}
#-------------------------------------------------------------------
sub getUserPref {
#This is a class method. Can be called from the getDashletUserPref macro
@ -187,9 +162,8 @@ sub setUserPref {
my $valueToSet = shift;
return 0 unless $valueToSet;
my $userId = shift || 'autoDerive';
my $field;
my $field = WebGUI::Asset->newByDynamicClass($fieldId);
if ($userId eq 'autoDerive') {
$field = WebGUI::Asset->newByDynamicClass($fieldId);
$userId = ($field->canManage && WebGUI::Session::isAdminOn()) ? '1' : $session{user}{userId};
}
my $returnDataType = shift || 'string';
@ -198,6 +172,7 @@ sub setUserPref {
WebGUI::SQL->write($sql);
my $sql2 = "insert into wgFieldUserData values (".quote($fieldId).",".quote($userId).",".quote($valueToSet).")";
# WebGUI::ErrorHandler::warn($sql2);
$field->getParent->uncacheOverrides;
return WebGUI::SQL->write($sql2);
}
@ -206,7 +181,7 @@ sub www_edit {
my $self = shift;
return WebGUI::Privilege::insufficient() unless $self->canManage;
$self->getAdminConsole->setHelp("field add/edit","Asset_Shortcut");
return $self->getAdminConsole->render($self->getEditForm->print,WebGUI::International::get(2,"Asset_Shortcut"));
return $self->getAdminConsole->render($self->getEditForm->print,WebGUI::International::get('Edit User Preference Field',"Asset_Shortcut"));
}
#-------------------------------------------------------------------

23
lib/WebGUI/Asset/Wobject/MultiSearch.pm
View file

@ -43,28 +43,29 @@ defines wobject properties for MultiSearch instances
sub definition {
my $class = shift;
my $definition = shift;
my $i18n = WebGUI::International->new("Asset_MultiSearch");
my $properties = {
templateId =>{
fieldType=>"template",
tab=>"display",
defaultValue=>'MultiSearchTmpl0000001',
namespace=>"MultiSearch",
hoverHelp=>WebGUI::International::get('article template description','Asset_Article'),
label=>WebGUI::International::get(72,"Asset_Article")
},
predefinedSearches=>{
fieldType=>"textarea",
defaultValue=>"WebGUI",
tab=>"properties",
hoverHelp=>WebGUI::International::get('article template description','Asset_Article'),
label=>WebGUI::International::get(72,"Asset_Article")
hoverHelp=>$i18n->get('MultiSearch Template'),
label=>$i18n->get('MultiSearch Template')
},
# predefinedSearches=>{
# fieldType=>"textarea",
# defaultValue=>"WebGUI",
# tab=>"properties",
# hoverHelp=>WebGUI::International::get('article template description','Asset_Article'),
# label=>WebGUI::International::get(72,"Asset_Article")
# },
};
push(@{$definition}, {
tableName=>'MultiSearch',
className=>'WebGUI::Asset::Wobject::MultiSearch',
assetName=>'MultiSearch',
# icon=>'MultiSearch.gif',
assetName=>$i18n->get('MultiSearch'),
icon=>'MultiSearch.gif',
autoGenerateForms=>1,
properties=>$properties
});