8.8.9 jp

DocDB/cgi/AddFiles

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: AddFiles
 # Description: Adds downloaded files to the database and filesystem

DocDB/cgi/AddFilesForm

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: AddFilesForm
 # Description: An entry form to add files to an existing document

DocDB/cgi/AdministerElements.pm

@@ -29,17 +29,14 @@ 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";
   }
   print FormElementTitle(-helplink => "admaction", -helptext => "Action");
   print $query -> radio_group(-name => "admaction",
-                              -values => \%Action, -default => "-",
+                              -values => \@Action, -default => "-",
                               -onclick => "disabler_$Form();");
 };
 

DocDB/cgi/AdministerForm

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: AdministerForm
 # Description: This single form provides a number of interfaces to admin

DocDB/cgi/AdministerHome

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #        Name: $RCSfile$
 # Description: Group administrative actions into one page
 #

DocDB/cgi/AuthorAdd

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: AuthorAdd
 # Description: Adds an author into the DB list of authors.

DocDB/cgi/AuthorAddForm

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 # Description: A simple script to allow new author addition (no changes possible)
 #

DocDB/cgi/AuthorAdminister

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 # Description: This script is called by AdministerForm and does administration
 #              on Authors in the DB. AddAuthor is simpler and can only add

DocDB/cgi/BulkCertificateInsert

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 # Description: Allows an administrator to create entries for certificate users in EmailUser
 #

DocDB/cgi/CertificateApplyForm

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 # Author Eric Vaandering ([email protected])
 

DocDB/cgi/ConfirmTalkHint

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 # Description: Script to confirm a match between a talk entered in the agenda
 #              and a document

DocDB/cgi/CustomListForm

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: CustomListForm
 # Description: Allow users, admins, and meeting organizers to change how various

DocDB/cgi/DeleteConfirm

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #        Name: $RCSfile$
 # Description: Displays the document (or document and version)
 #              to be deleted and requests the admin password.

DocDB/cgi/DeleteDocument

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #        Name: $RCSfile$
 # Description: This script is called by DeleteConfirm to actually delete
 #              the requested document, all associated entries in the DB,

DocDB/cgi/DisplayMeeting

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: DisplayMeeting
 # Description: Displays talks for a meeting or just a session of a meeting

DocDB/cgi/DocDBHelp

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: DocDBHelp
 # Description: Usually called as a pop-up, this looks up in docdb.hlp
@@ -54,15 +57,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

DocDB/cgi/DocDBInstructions

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 # Description: The instructions for DocDB. This is mostly HTML, but making
 #              it a script allows us to eliminate parts of it that we don't want

DocDB/cgi/DocTypeAdminister

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: DocTypeAdminister
 # Description: This script is called by AdministerForm and does administration

DocDB/cgi/DocumentAddForm

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: DocumentAddForm
 # Description: The main form to add or modify documents or metadata
@@ -519,6 +522,7 @@ SecurityScroll(-addpublic => 'true',
                -helplink  => 'security',
                -helptext  => $SecurityText,
                -multiple  => $TRUE,
+               -permission=> 'CanView',
                -default   => \@SecurityDefaults);
 print "</td>\n";
 if ($EnhancedSecurity) {
@@ -527,6 +531,7 @@ if ($EnhancedSecurity) {
                  -helplink  => 'modifygroups',
                  -helptext  => 'Can Modify',
                  -multiple  => $TRUE,
+                 -permission=> 'CanCreate',
                  -default   => \@ModifyDefaults);
   print "</td>\n";
 }

DocDB/cgi/DocumentDatabase

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: DocumentDatabase
 # Description: The Document Database homepage. Give the user various ways to

DocDB/cgi/EditTalkInfo

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: ShowTalkNote
 # Description: Usually called as a pop-up, this will look up the note for a talk

DocDB/cgi/EmailAdminister

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: EmailAdminister
 # Description: This script is called by EmailAdministerForm and does

DocDB/cgi/EmailAdministerForm

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: EmailAdministerForm
 # Description: This script provides a form to administer users receiving

DocDB/cgi/EmailLogin

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 # Description: The login form to a users e-mail notification account
 #

DocDB/cgi/EventAdministerForm

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: EventAdministerForm
 # Description: This single form provides interfaces to admin tools for

DocDB/cgi/ExternalDocDBAdministerForm

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: ExternalDocDBAdministerForm
 # Description: Allows the administrator to add knowledge of other DocDBs.

DocDB/cgi/GroupAdminister

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: GroupAdminister
 # Description: This script is called by GroupAdministerForm and does
@@ -64,10 +67,15 @@ my $NoPerm = $Untaint -> extract(-as_printable => "remove") || "";
 my $RemoveChildren = $Untaint -> extract(-as_printable => "removesubs") || "";
 
 if ($View)           {$View   = 1;} # Make sure they are in format MySQL is expecting
+else                 {$View   = 0;}
 if ($Create)         {$Create = 1;}
+else                 {$Create = 0;}
 if ($Admin)          {$Admin  = 1;}
+else                 {$Admin  = 0;}
 if ($NoPerm)         {$NoPerm = 1;}
+else                 {$NoPerm = 0;}
 if ($RemoveChildren) {$RemoveChildren = 1;}
+else                 {$RemoveChildren = 0;}
 
 $dbh   = DBI->connect('DBI:mysql:'.$db_name.':'.$db_host,$Username,$Password);
 
@@ -241,8 +249,8 @@ if      ($Action eq "Delete") { # Delete group
 } elsif ($Action eq "New") { # Create new groups
   push @ActionStack,"Adding a new group.";
   my $GroupInsert = $dbh->prepare(
-   "insert into SecurityGroup (GroupID,Name,Description,CanCreate,CanAdminister,CanView,CanConfig) ".
-                      "values (0,?,?,?,?,?,0)");
+   "insert into SecurityGroup (Name,Description,CanCreate,CanAdminister,CanView,CanConfig) ".
+                      "values (?,?,?,?,?,0)");
 
   $GroupInsert -> execute($Name,$Description,$Create,$Admin,$View);
   $ParentID = $GroupInsert -> {mysql_insertid}; # Works with MySQL only

DocDB/cgi/GroupAdministerForm

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 # Description: This script provides a form to administer groups in
 #              the DocDB and shows the relationships between groups.

DocDB/cgi/InstitutionAdminister

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 # Description: This script is called by AdministerForm and does administration
 #              on Institutions in the DB. This script adds, modifies and deletes

DocDB/cgi/JournalAdminister

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 # Description: This script is called by AdministerForm and does administration
 #              on journals in the DB. This script adds, modifies and deletes

DocDB/cgi/KeywordAdministerForm

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 # Description: Add keywords or keyword groups to the keyword list
 #              The keyword list is used indirectly to lookup approved keywords

DocDB/cgi/KeywordGroupAdminister

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 # Description: This script is called by KeywordAdministerForm and does administration
 #              on Keyword Groups in the DB. This script adds, modifies and deletes

DocDB/cgi/KeywordListAdminister

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 # Description: This script is called by KeywordAdministerForm and does administration
 #              on the Keyword table in the DB.

DocDB/cgi/ListAllMeetings

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: ListAllMeetings
 # Description: Generates a nice table of all meetings, either for viewing or modification

DocDB/cgi/ListAuthors

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 # Author Eric Vaandering ([email protected])
 

DocDB/cgi/ListBy

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: $RCSfile$
 # Description: Generate tables of document for various input parameters

DocDB/cgi/ListEventsBy

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: ListEventsBy
 # Description: This script lists events and sessions based on the topic(s) or

DocDB/cgi/ListGroupUsers

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: EmailAdministerForm
 # Description: This script provides a form to administer users receiving

DocDB/cgi/ListGroups

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 # Author Eric Vaandering ([email protected])
 

DocDB/cgi/ListKeywords

@@ -1,4 +1,7 @@
 #! /usr/bin/env perl
+
+use lib ".";
+
 #
 #        Name: ListKeywords
 # Description: Lists the managed keywords.