Changeset 21546 for main/trunk/greenstone2
- Timestamp:
- 2010-01-20T16:53:47+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/dbutil.pm
r21544 r21546 37 37 { 38 38 require dbutil::sqlite; 39 return &dbutil::sqlite::open_infodb_write_handle($infodb_file_path );39 return &dbutil::sqlite::open_infodb_write_handle($infodb_file_path, @_); 40 40 } 41 41 elsif ($infodb_type eq "gdbm-txtgz") 42 42 { 43 43 require dbutil::gdbmtxtgz; 44 return &dbutil::gdbmtxtgz::open_infodb_write_handle($infodb_file_path );44 return &dbutil::gdbmtxtgz::open_infodb_write_handle($infodb_file_path, @_); 45 45 } 46 46 elsif ($infodb_type eq "jdbm") 47 47 { 48 48 require dbutil::jdbm; 49 return &dbutil::jdbm::open_infodb_write_handle($infodb_file_path );49 return &dbutil::jdbm::open_infodb_write_handle($infodb_file_path, @_); 50 50 } 51 51 elsif ($infodb_type eq "mssql") 52 52 { 53 53 require dbutil::mssql; 54 return &dbutil::mssql::open_infodb_write_handle($infodb_file_path );55 } 56 57 # Use GDBM if the infodb type is empty or not one of the values above 58 require dbutil::gdbm; 59 return &dbutil::gdbm::open_infodb_write_handle($infodb_file_path );54 return &dbutil::mssql::open_infodb_write_handle($infodb_file_path, @_); 55 } 56 57 # Use GDBM if the infodb type is empty or not one of the values above 58 require dbutil::gdbm; 59 return &dbutil::gdbm::open_infodb_write_handle($infodb_file_path, @_); 60 60 } 61 61 … … 69 69 { 70 70 require dbutil::sqlite; 71 return &dbutil::sqlite::close_infodb_write_handle($infodb_handle );72 } 73 elsif ($infodb_type eq "gdbm-txtgz") 74 { 75 require dbutil::gdbmtxtgz; 76 return &dbutil::gdbmtxtgz::close_infodb_write_handle($infodb_handle );77 } 78 elsif ($infodb_type eq "jdbm") 79 { 80 require dbutil::jdbm; 81 return &dbutil::jdbm::close_infodb_write_handle($infodb_handle );82 } 83 elsif ($infodb_type eq "mssql") 84 { 85 require dbutil::mssql; 86 return &dbutil::mssql::close_infodb_write_handle($infodb_handle );71 return &dbutil::sqlite::close_infodb_write_handle($infodb_handle, @_); 72 } 73 elsif ($infodb_type eq "gdbm-txtgz") 74 { 75 require dbutil::gdbmtxtgz; 76 return &dbutil::gdbmtxtgz::close_infodb_write_handle($infodb_handle, @_); 77 } 78 elsif ($infodb_type eq "jdbm") 79 { 80 require dbutil::jdbm; 81 return &dbutil::jdbm::close_infodb_write_handle($infodb_handle, @_); 82 } 83 elsif ($infodb_type eq "mssql") 84 { 85 require dbutil::mssql; 86 return &dbutil::mssql::close_infodb_write_handle($infodb_handle, @_); 87 87 } 88 88 89 89 # Use GDBM if the infodb type is empty or not one of the values above 90 90 require dbutil::gdbm; 91 return &dbutil::gdbm::close_infodb_write_handle($infodb_handle );91 return &dbutil::gdbm::close_infodb_write_handle($infodb_handle, @_); 92 92 } 93 93 … … 110 110 { 111 111 require dbutil::sqlite; 112 return &dbutil::sqlite::get_infodb_file_path($collection_name, $infodb_directory_path );113 } 114 elsif ($infodb_type eq "gdbm-txtgz") 115 { 116 require dbutil::gdbmtxtgz; 117 return &dbutil::gdbmtxtgz::get_infodb_file_path($collection_name, $infodb_directory_path );118 } 119 elsif ($infodb_type eq "jdbm") 120 { 121 require dbutil::jdbm; 122 return &dbutil::jdbm::get_infodb_file_path($collection_name, $infodb_directory_path );112 return &dbutil::sqlite::get_infodb_file_path($collection_name, $infodb_directory_path, @_); 113 } 114 elsif ($infodb_type eq "gdbm-txtgz") 115 { 116 require dbutil::gdbmtxtgz; 117 return &dbutil::gdbmtxtgz::get_infodb_file_path($collection_name, $infodb_directory_path, @_); 118 } 119 elsif ($infodb_type eq "jdbm") 120 { 121 require dbutil::jdbm; 122 return &dbutil::jdbm::get_infodb_file_path($collection_name, $infodb_directory_path, @_); 123 123 } 124 124 elsif ($infodb_type eq "mssql") … … 136 136 #==================================================================================================# 137 137 require dbutil::mssql; 138 return &dbutil::mssql::get_infodb_file_path($collection_name, $infodb_directory_path );138 return &dbutil::mssql::get_infodb_file_path($collection_name, $infodb_directory_path, @_); 139 139 } 140 140 141 141 # Use GDBM if the infodb type is empty or not one of the values above 142 142 require dbutil::gdbm; 143 return &dbutil::gdbm::get_infodb_file_path($collection_name, $infodb_directory_path );143 return &dbutil::gdbm::get_infodb_file_path($collection_name, $infodb_directory_path, @_); 144 144 } 145 145 … … 154 154 { 155 155 require dbutil::sqlite; 156 return &dbutil::sqlite::read_infodb_file($infodb_file_path, $infodb_map );157 } 158 elsif ($infodb_type eq "gdbm-txtgz") 159 { 160 require dbutil::gdbmtxtgz; 161 return &dbutil::gdbmtxtgz::read_infodb_file($infodb_file_path, $infodb_map );162 } 163 elsif ($infodb_type eq "jdbm") 164 { 165 require dbutil::jdbm; 166 return &dbutil::jdbm::read_infodb_file($infodb_file_path, $infodb_map );167 } 168 elsif ($infodb_type eq "mssql") 169 { 170 require dbutil::mssql; 171 return &dbutil::mssql::read_infodb_file($infodb_file_path, $infodb_map );156 return &dbutil::sqlite::read_infodb_file($infodb_file_path, $infodb_map, @_); 157 } 158 elsif ($infodb_type eq "gdbm-txtgz") 159 { 160 require dbutil::gdbmtxtgz; 161 return &dbutil::gdbmtxtgz::read_infodb_file($infodb_file_path, $infodb_map, @_); 162 } 163 elsif ($infodb_type eq "jdbm") 164 { 165 require dbutil::jdbm; 166 return &dbutil::jdbm::read_infodb_file($infodb_file_path, $infodb_map, @_); 167 } 168 elsif ($infodb_type eq "mssql") 169 { 170 require dbutil::mssql; 171 return &dbutil::mssql::read_infodb_file($infodb_file_path, $infodb_map, @_); 172 172 } 173 173 174 174 # Use GDBM if the infodb type is empty or not one of the values above 175 175 require dbutil::gdbm; 176 return &dbutil::gdbm::read_infodb_file($infodb_file_path, $infodb_map );176 return &dbutil::gdbm::read_infodb_file($infodb_file_path, $infodb_map, @_); 177 177 } 178 178 … … 188 188 { 189 189 require dbutil::sqlite; 190 return &dbutil::sqlite::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map );191 } 192 elsif ($infodb_type eq "gdbm-txtgz") 193 { 194 require dbutil::gdbmtxtgz; 195 return &dbutil::gdbmtxtgz::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map );196 } 197 elsif ($infodb_type eq "jdbm") 198 { 199 require dbutil::jdbm; 200 return &dbutil::jdbm::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map );201 } 202 elsif ($infodb_type eq "mssql") 203 { 204 require dbutil::mssql; 205 return &dbutil::mssql::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map );206 } 207 208 # Use GDBM if the infodb type is empty or not one of the values above 209 require dbutil::gdbm; 210 return &dbutil::gdbm::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map );190 return &dbutil::sqlite::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map, @_); 191 } 192 elsif ($infodb_type eq "gdbm-txtgz") 193 { 194 require dbutil::gdbmtxtgz; 195 return &dbutil::gdbmtxtgz::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map, @_); 196 } 197 elsif ($infodb_type eq "jdbm") 198 { 199 require dbutil::jdbm; 200 return &dbutil::jdbm::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map, @_); 201 } 202 elsif ($infodb_type eq "mssql") 203 { 204 require dbutil::mssql; 205 return &dbutil::mssql::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map, @_); 206 } 207 208 # Use GDBM if the infodb type is empty or not one of the values above 209 require dbutil::gdbm; 210 return &dbutil::gdbm::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map, @_); 211 211 } 212 212 … … 221 221 { 222 222 require dbutil::sqlite; 223 return &dbutil::sqlite::delete_infodb_entry($infodb_handle, $infodb_key );224 } 225 elsif ($infodb_type eq "gdbm-txtgz") 226 { 227 require dbutil::gdbmtxtgz; 228 return &dbutil::gdbmtxtgz::delete_infodb_entry($infodb_handle, $infodb_key );229 } 230 elsif ($infodb_type eq "jdbm") 231 { 232 require dbutil::jdbm; 233 return &dbutil::jdbm::delete_infodb_entry($infodb_handle, $infodb_key );234 } 235 elsif ($infodb_type eq "mssql") 236 { 237 require dbutil::mssql; 238 return &dbutil::mssql::delete_infodb_entry($infodb_handle, $infodb_key );239 } 240 241 # Use GDBM if the infodb type is empty or not one of the values above 242 require dbutil::gdbm; 243 return &dbutil::gdbm::delete_infodb_entry($infodb_handle, $infodb_key );223 return &dbutil::sqlite::delete_infodb_entry($infodb_handle, $infodb_key, @_); 224 } 225 elsif ($infodb_type eq "gdbm-txtgz") 226 { 227 require dbutil::gdbmtxtgz; 228 return &dbutil::gdbmtxtgz::delete_infodb_entry($infodb_handle, $infodb_key, @_); 229 } 230 elsif ($infodb_type eq "jdbm") 231 { 232 require dbutil::jdbm; 233 return &dbutil::jdbm::delete_infodb_entry($infodb_handle, $infodb_key, @_); 234 } 235 elsif ($infodb_type eq "mssql") 236 { 237 require dbutil::mssql; 238 return &dbutil::mssql::delete_infodb_entry($infodb_handle, $infodb_key, @_); 239 } 240 241 # Use GDBM if the infodb type is empty or not one of the values above 242 require dbutil::gdbm; 243 return &dbutil::gdbm::delete_infodb_entry($infodb_handle, $infodb_key, @_); 244 244 } 245 245
Note:
See TracChangeset
for help on using the changeset viewer.