diff --git a/lib/WebGUI/Help/WebGUI.pm b/lib/WebGUI/Help/WebGUI.pm index 739418c9d..3972680ec 100644 --- a/lib/WebGUI/Help/WebGUI.pm +++ b/lib/WebGUI/Help/WebGUI.pm @@ -624,6 +624,26 @@ our $HELP = { title => '998', body => '1001', fields => [ + { + title => '992', + description => '992 description', + namespace => 'WebGUI', + }, + { + title => '993', + description => '993 description', + namespace => 'WebGUI', + }, + { + title => '994', + description => '994 description', + namespace => 'WebGUI', + }, + { + title => '995', + description => '995 description', + namespace => 'WebGUI', + }, ], related => [ { diff --git a/lib/WebGUI/Operation/DatabaseLink.pm b/lib/WebGUI/Operation/DatabaseLink.pm index 48b0952c6..37ca51351 100644 --- a/lib/WebGUI/Operation/DatabaseLink.pm +++ b/lib/WebGUI/Operation/DatabaseLink.pm @@ -88,13 +88,43 @@ sub www_editDatabaseLink { $f = WebGUI::HTMLForm->new( -extras=>'autocomplete="off"' ); - $f->hidden("op","editDatabaseLinkSave"); - $f->hidden("dlid",$session{form}{dlid}); - $f->readOnly($session{form}{dlid},WebGUI::International::get(991)); - $f->text("title",WebGUI::International::get(992),$db{title}); - $f->text("DSN",WebGUI::International::get(993),$db{DSN}); - $f->text("username",WebGUI::International::get(994),$db{username}); - $f->password("identifier",WebGUI::International::get(995),$db{identifier}); + $f->hidden( + -name => "op", + -value => "editDatabaseLinkSave", + ); + $f->hidden( + -name => "dlid", + -value => $session{form}{dlid}, + ); + $f->readOnly( + -value => $session{form}{dlid}, + -label => WebGUI::International::get(991), + -hoverHelp => WebGUI::International::get('991 description'), + ); + $f->text( + -name => "title", + -label => WebGUI::International::get(992), + -hoverHelp => WebGUI::International::get('992 description'), + -value => $db{title}, + ); + $f->text( + -name => "DSN", + -label => WebGUI::International::get(993), + -hoverHelp => WebGUI::International::get('993 description'), + -value => $db{DSN}, + ); + $f->text( + -name => "username", + -label => WebGUI::International::get(994), + -hoverHelp => WebGUI::International::get('994 description'), + -value => $db{username}, + ); + $f->password( + -name => "identifier", + -label => WebGUI::International::get(995), + -hoverHelp => WebGUI::International::get('995 description'), + -value => $db{identifier}, + ); $f->submit; $output .= $f->print; return _submenu($output,"990","database link add/edit"); diff --git a/lib/WebGUI/i18n/English/WebGUI.pm b/lib/WebGUI/i18n/English/WebGUI.pm index 0fa13d3c8..04c1efc59 100644 --- a/lib/WebGUI/i18n/English/WebGUI.pm +++ b/lib/WebGUI/i18n/English/WebGUI.pm @@ -1067,24 +1067,17 @@ will be modified to make it unique.|, lastUpdated => 1031514049 }, - '1001' => { - message => q|
-The following fields make up a Database Link. -
+ '992 description' => {
+ message => q|A title for the database link.|,
+ lastUpdated => 1122070396,
+ },
-Title
-A title for the database link.
-
-
-DSN
-Data Source Name is the unique identifier that Perl uses to describe the location of your database. It takes the format of
+ '993 description' => {
+ message => q|Data Source Name is the unique identifier that Perl uses to describe the location of your database. It takes the format of
DBI:[driver]:[database name]:[host].
- - Example: DBI:mysql:WebGUI:localhost
-
Here are some examples for other databases.
-Database User
-The username you use to connect to the DSN.
-
+ '994 description' => {
+ message => q|The username you use to connect to the DSN.|,
+ lastUpdated => 1122070396,
+ },
+ '995 description' => {
+ message => q|The password you use to connect to the DSN.|,
+ lastUpdated => 1122070396,
+ },
-Database Password
-The password you use to connect to the DSN.
+ '1001' => {
+ message => q|
+The following fields make up a Database Link.
|, - lastUpdated => 1099536266 + lastUpdated => 1122070424 }, '556' => {