diff --git a/docs/changelog/6.x.x.txt b/docs/changelog/6.x.x.txt index b4a82863d..2f3d711bb 100644 --- a/docs/changelog/6.x.x.txt +++ b/docs/changelog/6.x.x.txt @@ -1,6 +1,8 @@ 6.7.0 - fix [ 1221284 ] Operation\user.pm i18n {internationalize labels} - All form field labels have been internationalized. + - Added hover help. (Special thanks to Colin Kuskie for all his help with + this.) 6.6.3 - Fixed a recurring transaction commerce bug. diff --git a/docs/migration.txt b/docs/migration.txt index dd19db0b4..863594cfa 100644 --- a/docs/migration.txt +++ b/docs/migration.txt @@ -64,8 +64,8 @@ The following tips should also help make your migration easer: EXAMPLE: WebGUI::Form::formHeader({action=>$self->getUrl}); - :%s/WebGUI::URL::page/$self->getURL/gc - :%s/WebGUI::URL::page/$_[0]->getURL/gc + :%s/WebGUI::URL::page/$self->getUrl/gc + :%s/WebGUI::URL::page/$_[0]->getUrl/gc :%s/WebGUI::HTMLForm->new\(();\|;\)/WebGUI::HTMLForm->new(-action=>$self->getUrl);/gc :%s/WebGUI::Form::formHeader\(();\|;\)/WebGUI::Form::formHeader({-action=>$self->getUrl});/gc @@ -112,12 +112,10 @@ The following tips should also help make your migration easer: 1.2.11 Rename your name() method to getName(). 1.2.12 If your wobject used the forum system, then check out the new - lib/WebGUI/Asset/Wobject/Forum.pm system. + lib/WebGUI/Asset/Wobject/Collaboration.pm system. - 1.2.13 If your wobject used attachments, then at bare minimum check - lib/WebGUI/Storage.pm, but also consider using loose coupling with - lib/WebGUI/Asset/File.pm or lib/WebGUI/Asset/File/Image.pm the same - way that the Article wobject does. + 1.2.13 If your wobject used attachments, then check lib/WebGUI/Storage.pm and + lib/WebGUI/Storage/Image.pm 1.2.14 The parameters for the wobject processTemplate() method have changed. diff --git a/lib/WebGUI/Asset/Wobject/Article.pm b/lib/WebGUI/Asset/Wobject/Article.pm index 675ab8c51..8319de7c1 100644 --- a/lib/WebGUI/Asset/Wobject/Article.pm +++ b/lib/WebGUI/Asset/Wobject/Article.pm @@ -59,18 +59,21 @@ sub getEditForm { $tabform->getTab("display")->template( -value=>$self->getValue('templateId'), -namespace=>"Article", + -hoverHelp=>WebGUI::International::get('article template description','Asset_Article'), -label=>WebGUI::International::get(72,"Asset_Article"), ); $tabform->getTab("properties")->text( -name=>"linkTitle", -label=>WebGUI::International::get(7,"Asset_Article"), -value=>$self->getValue("linkTitle"), + -hoverHelp=>WebGUI::International::get('link title description','Asset_Article'), -uiLevel=>3 ); $tabform->getTab("properties")->url( -name=>"linkURL", -label=>WebGUI::International::get(8,"Asset_Article"), -value=>$self->getValue("linkURL"), + -hoverHelp=>WebGUI::International::get('link url description','Asset_Article'), -uiLevel=>3 ); $tabform->getTab("display")->yesNo( @@ -78,6 +81,7 @@ sub getEditForm { -label=>WebGUI::International::get(10,"Asset_Article"), -value=>$self->getValue("convertCarriageReturns"), -subtext=>' '.WebGUI::International::get(11,"Asset_Article").'', + -hoverHelp=>WebGUI::International::get('carriage return description','Asset_Article'), -uiLevel=>5, -defaultValue=>0 ); diff --git a/lib/WebGUI/HTMLForm.pm b/lib/WebGUI/HTMLForm.pm index 8a40aee8b..692d7e3b4 100644 --- a/lib/WebGUI/HTMLForm.pm +++ b/lib/WebGUI/HTMLForm.pm @@ -218,12 +218,28 @@ sub _subtext { #------------------------------------------------------------------- sub _tableFormRow { - unless ($_[0]->{_noTable}) { - my $class = $_[0]->{_class}; + my $self = shift; + my $label = shift; + my $formControl = shift; + my $hoverHelp = shift; + unless ($self->{_noTable}) { + my $class = $self->{_class}; $class = qq| class="$class" | if($class); - return '
' +
+ (tt_n4? ' ' : '')+t_tit+'<\/b><\/font><\/td><\/tr>';
+ }
+ t_y += '
|