Added 'Allow access from Macro's' setting to Database Links

docs/changelog/7.x.x.txt

@@ -77,6 +77,7 @@
     http://www.webgui.org/bugs/tracker/macro-not-working-i-httpproxy
  - fix: navigation shows toolbar for users who can't edit it
     http://www.webgui.org/bugs/tracker/navigation-shows-edit-button-to-users-without-permission
+ - add: Database Links now have a 'Allow access from macro's' setting
 
 7.3.21
  - fix: Self-deactivation doesn't show login screen after success

docs/upgrades/upgrade_7.3.21-7.4.0.pl

@@ -33,11 +33,23 @@ addNewsletter($session);
 addHttpProxyUrlPatternFilter($session);
 addCanStartThreadToCS($session);
 addPostCaptchaToCS($session);
+addMacroAccessToDatabaseLinks($session);
 
 finish($session); # this line required
 
 #-------------------------------------------------
 
+sub addMacroAccessToDatabaseLinks {
+    my $session = shift;
+    print "\tAdding allowMacroAccess setting to Database Links..." unless ($quiet);
+    
+    $session->db->write("ALTER TABLE databaseLink add column allowMacroAccess integer NOT NULL default 0");
+    
+    print "OK\n";
+    return;
+}
+#-------------------------------------------------
+
 sub addPostCaptchaToCS {
     my $session = shift;
     print "\tAdding useCaptcha setting to Collaboration Systems..." unless ($quiet);

lib/WebGUI/Operation/DatabaseLink.pm

@@ -202,7 +202,13 @@ sub www_editDatabaseLink {
 		-hoverHelp => $i18n->get('allowed keywords description'),
 		-value => $db{allowedKeywords},
 	);
-        $f->submit;
+        $f->yesNo(
+		-name => "allowMacroAccess",
+		-label => $i18n->get('allow access from macros'),
+                -defaultValue=>0,
+		-value => $db{allowMacroAccess},
+	);
+	$f->submit;
 	$output .= $f->print;
         return _submenu($session,$output,"990","database link add/edit");
 }
@@ -230,6 +236,7 @@ sub www_editDatabaseLinkSave {
 		identifier=>$session->form->process("dbidentifier"),
 		DSN=>$session->form->process("DSN"),
 		allowedKeywords=>$allowedKeywords,
+		allowMacroAccess=>$session->form->process("allowMacroAccess"),
 		};
 	if ($session->form->process("dlid") eq "new") {
 		WebGUI::DatabaseLink->create($session,$params);

lib/WebGUI/i18n/English/WebGUI.pm

@@ -3315,6 +3315,11 @@ a user.|,
 		lastUpdated => 1165511447,
 	},
 
+	'allow access from macros' => {
+                message => q|Allow access from Macro's|,
+                lastUpdated => 0,
+        },
+
 	'preview' => {
 		message => q|Preview|,
 		context => q|alternate image text displayed when a thumbnail cannot be found for an image.  The image is being previewed.|,