Changeset 203

Timestamp:

12/16/11 16:00:26 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Set all individual permission flags on any failure to retrieve group
permissions. Case discovered was group 1 missing its group_permissions
entry, causing a Perl error since a SELECT with no rows does not result
in a DBI error in fetchrow_hashref()

File:

• trunk/vega-import.pl (modified) (2 diffs)

trunk/vega-import.pl

@@ -182 +182 @@
 
   $grppget->execute($grpid) or warn $grppget->errstr;
-  my $oldp = $grppget->fetchrow_hashref() or warn $grppget->errstr;
+  my $oldp;
+  unless ($oldp = $grppget->fetchrow_hashref()) {
+    foreach my $permtype ('self_edit', 'group_create', 'group_edit', 'group_delete', 'user_create',
+        'user_edit', 'user_delete', 'domain_create', 'domain_edit', 'domain_delete', 'record_create',
+        'record_edit', 'record_delete') { $oldp->{$permtype} = 't'; }
+  }
 
   # de-nullify
@@ -287 +292 @@
 
   $grppget->execute($oldgrpid) or warn $grppget->errstr;
-  my $oldp = $grppget->fetchrow_hashref() or warn $grppget->errstr;
+  my $oldp;
+  unless ($oldp = $grppget->fetchrow_hashref()) {
+    foreach my $permtype ('self_edit', 'group_create', 'group_edit', 'group_delete', 'user_create',
+        'user_edit', 'user_delete', 'domain_create', 'domain_edit', 'domain_delete', 'record_create',
+        'record_edit', 'record_delete') { $oldp->{$permtype} = 't'; }
+  }
 
   # de-nullify