Changeset 17104 for gsdl/trunk/perllib/dbutil.pm

Timestamp:

2008-08-29T15:07:49+12:00 (16 years ago)

Author:

mdewsnip

Message:

Arrrgghhh, someone uglied up my nice tidy code...

File:

• gsdl/trunk/perllib/dbutil.pm (modified) (9 diffs)

gsdl/trunk/perllib/dbutil.pm

@@ -34 +34 @@
     my $infodb_file_path = shift(@_);
 
-    if ($infodb_type eq "sqlite") {
+    if ($infodb_type eq "sqlite")
+    {
     return &open_infodb_write_handle_sqlite($infodb_file_path);
     }
-    elsif ($infodb_type eq "gdbm") {
+    elsif ($infodb_type eq "gdbm")
+    {
     return &open_infodb_write_handle_gdbm($infodb_file_path);
     }
 
-    # Use text (gzipped) version ready for convertion to GDBM 
+    # Use text (gzipped) version ready for conversion to GDBM 
     # if the infodb type is empty or not one of the values above
     return &open_infodb_write_handle_gdbm_txtgz($infodb_file_path);
@@ -52 +54 @@
     my $infodb_handle = shift(@_);
 
-    if ($infodb_type eq "sqlite") {
+    if ($infodb_type eq "sqlite")
+    {
     return &close_infodb_write_handle_sqlite($infodb_handle);
     }
-    elsif ($infodb_type eq "gdbm") {
+    elsif ($infodb_type eq "gdbm")
+    {
     return &close_infodb_write_handle_gdbm($infodb_handle);
     }
 
-    # Use text (gzipped) version ready for convertion to GDBM 
+    # Use text (gzipped) version ready for conversion to GDBM 
     # if the infodb type is empty or not one of the values above return
-
-    &close_infodb_write_handle_gdbm_txtgz($infodb_handle); }
+    &close_infodb_write_handle_gdbm_txtgz($infodb_handle);
+}
 
 
@@ -81 +85 @@
     return &get_infodb_file_path_sqlite($collection_name, $infodb_directory_path);
     }
-    elsif ($infodb_type eq "gdbm") {
+    elsif ($infodb_type eq "gdbm")
+    {
     return &get_infodb_file_path_gdbm($collection_name, $infodb_directory_path);
     }
 
-    # Use text (gzipped) version ready for convertion to GDBM 
+    # Use text (gzipped) version ready for conversion to GDBM 
     # if the infodb type is empty or not one of the values above return
-
     return &get_infodb_file_path_gdbm_txtgz($collection_name, $infodb_directory_path);
 }
 
 
-
-
 sub read_infodb_file
 {
@@ -104 +106 @@
     return &read_infodb_file_sqlite($infodb_file_path, $infodb_map);
     }
-    elsif ($infodb_type eq "gdbm") {
+    elsif ($infodb_type eq "gdbm")
+    {
     return &read_infodb_file_gdbm($infodb_file_path, $infodb_map);
     }
 
-    # Use text (gzipped) version ready for convertion to GDBM 
+    # Use text (gzipped) version ready for conversion to GDBM 
     # if the infodb type is empty or not one of the values above return
-
     return &read_infodb_file_gdbm_txtgz($infodb_file_path, $infodb_map);
 }
@@ -126 +128 @@
     return &write_infodb_entry_sqlite($infodb_handle, $infodb_key, $infodb_map);
     }
-    elsif ($infodb_type eq "gdbm") {
+    elsif ($infodb_type eq "gdbm")
+    {
     return &write_infodb_entry_gdbm($infodb_handle, $infodb_key, $infodb_map);
     }
 
-    # Use text (gzipped) version ready for convertion to GDBM 
+    # Use text (gzipped) version ready for conversion to GDBM 
     # if the infodb type is empty or not one of the values above return
     return &write_infodb_entry_gdbm_txtgz($infodb_handle, $infodb_key, $infodb_map);
@@ -165 +168 @@
 }
 
+
 sub close_infodb_write_handle_gdbm_txtgz
 {
@@ -281 +285 @@
 
 
-
-
 sub read_infodb_file_gdbm
 {
@@ -350 +352 @@
 
 
-
 sub close_infodb_write_handle_sqlite
 {
@@ -374 +375 @@
     return &util::filename_cat($infodb_directory_path, $infodb_file_name);
 }
-