ericvaandering · marcmengel · Nov 27, 2023 · Nov 27, 2023 · Nov 27, 2023 · Nov 27, 2023
diff --git a/DocDB/cgi/AddFiles b/DocDB/cgi/AddFiles
@@ -30,6 +30,8 @@ use DBI;
 
 $StartTime = new Benchmark;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "ResponseElements.pm";
 require "SecuritySQL.pm";

diff --git a/DocDB/cgi/AddFilesForm b/DocDB/cgi/AddFilesForm
@@ -27,6 +27,8 @@ use CGI qw(-nosticky);
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "Messages.pm";
 

diff --git a/DocDB/cgi/AdministerElements.pm b/DocDB/cgi/AdministerElements.pm
@@ -29,13 +29,10 @@ sub AdministerActions (%) {
   my $Form = $Params{-form}  || "";
   my $AddTransfer = $Params{-addTransfer}  || $FALSE;
 
-  my %Action = ();
+  my @Action = ('New', 'Delete', 'Modify');
 
-  $Action{Delete}    = "Delete";
-  $Action{New}       = "New";
-  $Action{Modify}    = "Modify";
   if ($AddTransfer) {
-    $Action{Transfer}    = "Transfer";
+    unshift( @Action, "Transfer" );
   }
   print FormElementTitle(-helplink => "admaction", -helptext => "Action");
   print $query -> radio_group(-name => "admaction",

diff --git a/DocDB/cgi/AdministerForm b/DocDB/cgi/AdministerForm
@@ -26,6 +26,8 @@
 use CGI;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "AdministerElements.pm";
 require "FormElements.pm";

diff --git a/DocDB/cgi/AdministerHome b/DocDB/cgi/AdministerHome
@@ -31,6 +31,8 @@
 use CGI qw(-nosticky);
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "HTMLUtilities.pm";
 require "SecuritySQL.pm";

diff --git a/DocDB/cgi/AuthorAdd b/DocDB/cgi/AuthorAdd
@@ -29,6 +29,8 @@ use CGI;
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "ResponseElements.pm";
 require "SecuritySQL.pm";

diff --git a/DocDB/cgi/AuthorAddForm b/DocDB/cgi/AuthorAddForm
@@ -28,6 +28,8 @@
 use CGI qw(-nosticky);
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "FormElements.pm";
 require "Scripts.pm";

diff --git a/DocDB/cgi/AuthorAdminister b/DocDB/cgi/AuthorAdminister
@@ -31,6 +31,8 @@ use CGI;
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "ResponseElements.pm";
 require "Security.pm";

diff --git a/DocDB/cgi/BulkCertificateInsert b/DocDB/cgi/BulkCertificateInsert
@@ -26,6 +26,8 @@ use CGI qw(-nosticky);
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "AdministerElements.pm";
 require "ResponseElements.pm";

diff --git a/DocDB/cgi/CertificateApplyForm b/DocDB/cgi/CertificateApplyForm
@@ -25,6 +25,8 @@ use DBI;
 
 $StartTime = new Benchmark;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "Messages.pm";
 require "HTMLUtilities.pm";

diff --git a/DocDB/cgi/ConfirmTalkHint b/DocDB/cgi/ConfirmTalkHint
@@ -29,6 +29,8 @@ use CGI;
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "Messages.pm";
 

diff --git a/DocDB/cgi/CustomListForm b/DocDB/cgi/CustomListForm
@@ -31,6 +31,8 @@ use CGI qw(-nosticky);
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "AdministerElements.pm";
 require "ResponseElements.pm";

diff --git a/DocDB/cgi/DeleteConfirm b/DocDB/cgi/DeleteConfirm
@@ -30,6 +30,8 @@ use CGI;
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "ResponseElements.pm";
 require "Security.pm";

diff --git a/DocDB/cgi/DeleteDocument b/DocDB/cgi/DeleteDocument
@@ -30,6 +30,8 @@ use CGI;
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "ResponseElements.pm";
 require "Security.pm";

diff --git a/DocDB/cgi/DisplayMeeting b/DocDB/cgi/DisplayMeeting
@@ -32,6 +32,8 @@ use DBI;
 
 $StartTime = new Benchmark;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "Messages.pm";
 

diff --git a/DocDB/cgi/DocDBHelp b/DocDB/cgi/DocDBHelp
@@ -28,6 +28,8 @@ use CGI;
 use CGI::Untaint;
 use XML::Simple;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "HTMLUtilities.pm";
 require "UntaintInput.pm";
@@ -54,15 +56,15 @@ my ($DefaultText, $DefaultTitle, $ProjectText, $ProjectTitle, $Action);
 
 my $HelpXML = XMLin("DocDBHelp.xml");
 
-$DefaultText = %{$HelpXML->{entry}{$helpterm}}->{text};
-$DefaultTitle = %{$HelpXML->{entry}{$helpterm}}->{title};
+$DefaultText = %{$HelpXML->{entry}{$helpterm}}{text};
+$DefaultTitle = %{$HelpXML->{entry}{$helpterm}}{title};
 
 if ($ProjectHelp) {
   my $ProjectXML = XMLin("ProjectHelp.xml");
 
-  $ProjectText = %{$ProjectXML->{entry}{$helpterm}}->{text};
-  $ProjectTitle = %{$ProjectXML->{entry}{$helpterm}}->{title};
-  $Action = %{$ProjectXML->{entry}{$helpterm}}->{action};
+  $ProjectText = %{$ProjectXML->{entry}{$helpterm}}{text};
+  $ProjectTitle = %{$ProjectXML->{entry}{$helpterm}}{title};
+  $Action = %{$ProjectXML->{entry}{$helpterm}}{action};
 }
 
 # Remove line breaks and XML element tags

diff --git a/DocDB/cgi/DocDBInstructions b/DocDB/cgi/DocDBInstructions
@@ -29,6 +29,8 @@ use CGI;
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "HTMLUtilities.pm";
 require "UntaintInput.pm";

diff --git a/DocDB/cgi/DocTypeAdminister b/DocDB/cgi/DocTypeAdminister
@@ -29,6 +29,8 @@ use CGI;
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "ResponseElements.pm";
 require "Security.pm";

diff --git a/DocDB/cgi/DocumentAddForm b/DocDB/cgi/DocumentAddForm
@@ -27,6 +27,8 @@ use CGI qw(-nosticky);
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "Cookies.pm";
 require "Scripts.pm";

diff --git a/DocDB/cgi/DocumentDatabase b/DocDB/cgi/DocumentDatabase
@@ -32,6 +32,8 @@ use DBI;
 
 $StartTime = new Benchmark;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "HTMLUtilities.pm";
 require "ResponseElements.pm";

diff --git a/DocDB/cgi/EditTalkInfo b/DocDB/cgi/EditTalkInfo
@@ -30,6 +30,8 @@ use CGI qw(-nosticky);
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "Messages.pm";
 

diff --git a/DocDB/cgi/EmailAdminister b/DocDB/cgi/EmailAdminister
@@ -33,6 +33,8 @@ use CGI;
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "ResponseElements.pm";
 require "Security.pm";

diff --git a/DocDB/cgi/EmailAdministerForm b/DocDB/cgi/EmailAdministerForm
@@ -29,6 +29,8 @@ use CGI qw(-nosticky);
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "Scripts.pm";
 require "ResponseElements.pm";

diff --git a/DocDB/cgi/EmailLogin b/DocDB/cgi/EmailLogin
@@ -26,6 +26,8 @@
 use CGI;    
 use DBI;    
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "HTMLUtilities.pm";
 require "ResponseElements.pm";

diff --git a/DocDB/cgi/EventAdministerForm b/DocDB/cgi/EventAdministerForm
@@ -31,6 +31,8 @@ use CGI qw(-nosticky);
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "AdministerElements.pm";
 require "ResponseElements.pm";

diff --git a/DocDB/cgi/ExternalDocDBAdministerForm b/DocDB/cgi/ExternalDocDBAdministerForm
@@ -29,6 +29,8 @@ use CGI qw(-nosticky);
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "AdministerElements.pm";
 require "ResponseElements.pm";

diff --git a/DocDB/cgi/FNALSSOUtilities.pm b/DocDB/cgi/FNALSSOUtilities.pm
@@ -22,6 +22,8 @@
 #    along with DocDB; if not, write to the Free Software
 #    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 
 require "SecuritySQL.pm";

diff --git a/DocDB/cgi/GroupAdminister b/DocDB/cgi/GroupAdminister
@@ -30,6 +30,8 @@ use CGI;
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "ResponseElements.pm";
 require "Security.pm";

diff --git a/DocDB/cgi/GroupAdministerForm b/DocDB/cgi/GroupAdministerForm
@@ -26,6 +26,8 @@
 use CGI qw(-nosticky);
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "AdministerElements.pm";
 require "ResponseElements.pm";

diff --git a/DocDB/cgi/InstitutionAdminister b/DocDB/cgi/InstitutionAdminister
@@ -29,6 +29,8 @@ use CGI;
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "ResponseElements.pm";
 require "Security.pm";

diff --git a/DocDB/cgi/JournalAdminister b/DocDB/cgi/JournalAdminister
@@ -28,6 +28,8 @@ use CGI;
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "ResponseElements.pm";
 require "Security.pm";

diff --git a/DocDB/cgi/KeywordAdministerForm b/DocDB/cgi/KeywordAdministerForm
@@ -26,6 +26,8 @@
 use CGI;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "AdministerElements.pm";
 require "FormElements.pm";

diff --git a/DocDB/cgi/KeywordGroupAdminister b/DocDB/cgi/KeywordGroupAdminister
@@ -29,6 +29,8 @@ use CGI;
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "ResponseElements.pm";
 require "Security.pm";

diff --git a/DocDB/cgi/KeywordListAdminister b/DocDB/cgi/KeywordListAdminister
@@ -30,6 +30,8 @@ use CGI;
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "Sorts.pm";
 require "ResponseElements.pm";

diff --git a/DocDB/cgi/ListAllMeetings b/DocDB/cgi/ListAllMeetings
@@ -29,6 +29,8 @@ use CGI;
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "MeetingSQL.pm";
 require "MeetingHTML.pm";

diff --git a/DocDB/cgi/ListAuthors b/DocDB/cgi/ListAuthors
@@ -22,6 +22,8 @@
 use CGI;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "AuthorSQL.pm";
 require "ResponseElements.pm";

diff --git a/DocDB/cgi/ListBy b/DocDB/cgi/ListBy
@@ -32,6 +32,8 @@ use DBI;
 
 $StartTime = new Benchmark;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "DocumentHTML.pm";
 require "SecuritySQL.pm";

diff --git a/DocDB/cgi/ListEventsBy b/DocDB/cgi/ListEventsBy
@@ -30,6 +30,8 @@ use CGI qw(-nosticky);
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "MeetingSQL.pm";
 

diff --git a/DocDB/cgi/ListGroupUsers b/DocDB/cgi/ListGroupUsers
@@ -29,6 +29,8 @@
 use CGI qw(-nosticky);
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "ResponseElements.pm";
 require "Security.pm";

diff --git a/DocDB/cgi/ListGroups b/DocDB/cgi/ListGroups
@@ -22,6 +22,8 @@
 use CGI;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "SecuritySQL.pm";
 require "SecurityHTML.pm";

diff --git a/DocDB/cgi/ListKeywords b/DocDB/cgi/ListKeywords
@@ -30,6 +30,8 @@ use CGI;
 use CGI::Untaint;
 use DBI;
 
+use FindBin qw($Bin);
+use lib $Bin;
 require "DocDBGlobals.pm";
 require "KeywordSQL.pm";
 require "ResponseElements.pm";