| 
      
            Lines 5213-5464
          if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
      
      
        Link Here
      
     | 
  
        
          | 5213 | 
              SetVersion($DBversion);  | 
          5213 | 
              SetVersion($DBversion);  | 
        
        
          | 5214 | 
          }  | 
          5214 | 
          }  | 
        
        
          | 5215 | 
           | 
          5215 | 
           | 
        
            
              | 5216 | 
              $DBversion = "3.09.00.001";  | 
               | 
               | 
            
            
              | 5217 | 
              if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { | 
            
            
              | 5218 | 
                  $dbh->do("ALTER TABLE borrower_attribute_types MODIFY category_code VARCHAR( 1 ) NULL DEFAULT NULL"); | 
            
            
              | 5219 | 
                  print "Upgrade to $DBversion done. (Bug 8002: Update patron attribute types table to allow NULL category_code)\n";  | 
            
            
              | 5220 | 
                  SetVersion($DBversion);  | 
            
            
              | 5221 | 
              }  | 
            
            
              | 5222 | 
               | 
            
            
              | 5223 | 
              $DBversion = "3.09.00.002";  | 
            
            
              | 5224 | 
              if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { | 
            
            
              | 5225 | 
                  $dbh->do("ALTER TABLE saved_sql | 
            
            
              | 5226 | 
                      ADD (  | 
            
            
              | 5227 | 
                          cache_expiry INT NOT NULL DEFAULT 300,  | 
            
            
              | 5228 | 
                          public BOOLEAN NOT NULL DEFAULT FALSE  | 
            
            
              | 5229 | 
                      );  | 
            
            
              | 5230 | 
                  ");  | 
            
            
              | 5231 | 
                  print "Upgrade to $DBversion done (Added cache_expiry and public fields in  | 
            
            
              | 5232 | 
              saved_reports table.)\n";  | 
            
            
              | 5233 | 
                  SetVersion($DBversion);  | 
            
            
              | 5234 | 
              }  | 
            
            
              | 5235 | 
               | 
            
            
              | 5236 | 
              $DBversion = "3.09.00.003";  | 
            
            
              | 5237 | 
              if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { | 
            
            
              | 5238 | 
                  $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SvcMaxReportRows','10','Maximum number of rows to return via the report web service.',NULL,'Integer');"); | 
            
            
              | 5239 | 
                  print "Upgrade to $DBversion done (Added SvcMaxReportRows syspref)\n";  | 
            
            
              | 5240 | 
                  SetVersion($DBversion);  | 
            
            
              | 5241 | 
              }  | 
            
            
              | 5242 | 
               | 
            
            
              | 5243 | 
              $DBversion = "3.09.00.004";  | 
            
            
              | 5244 | 
              if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { | 
            
            
              | 5245 | 
                  $dbh->do("INSERT IGNORE INTO permissions (module_bit, code, description) VALUES('13', 'edit_patrons', 'Perform batch modifivation of patrons')"); | 
            
            
              | 5246 | 
                  print "Upgrade to $DBversion done (Adds permissions flag for access to the patron modifications tool)\n";  | 
            
            
              | 5247 | 
                  SetVersion($DBversion);  | 
            
            
              | 5248 | 
              }  | 
            
            
              | 5249 | 
               | 
            
            
              | 5250 | 
              $DBversion = "3.09.00.005";  | 
            
            
              | 5251 | 
              if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { | 
            
            
              | 5252 | 
                  unless (TableExists('quotes')) { | 
            
            
              | 5253 | 
                      $dbh->do( qq{ | 
            
            
              | 5254 | 
                          CREATE TABLE `quotes` (  | 
            
            
              | 5255 | 
                            `id` int(11) NOT NULL AUTO_INCREMENT,  | 
            
            
              | 5256 | 
                            `source` text DEFAULT NULL,  | 
            
            
              | 5257 | 
                            `text` mediumtext NOT NULL,  | 
            
            
              | 5258 | 
                            `timestamp` datetime NOT NULL,  | 
            
            
              | 5259 | 
                            PRIMARY KEY (`id`)  | 
            
            
              | 5260 | 
                          ) ENGINE=InnoDB DEFAULT CHARSET=utf8  | 
            
            
              | 5261 | 
                      });  | 
            
            
              | 5262 | 
                  }  | 
            
            
              | 5263 | 
                  $dbh->do( qq{ | 
            
            
              | 5264 | 
                      INSERT IGNORE INTO permissions VALUES (13, "edit_quotes","Edit quotes for quote-of-the-day feature");  | 
            
            
              | 5265 | 
                  });  | 
            
            
              | 5266 | 
                  $dbh->do( qq{ | 
            
            
              | 5267 | 
                      INSERT IGNORE INTO `systempreferences` (variable,value,explanation,options,type) VALUES('QuoteOfTheDay',0,'Enable or disable display of Quote of the Day on the OPAC home page',NULL,'YesNo'); | 
            
            
              | 5268 | 
                  });  | 
            
            
              | 5269 | 
                  print "Upgrade to $DBversion done (Adding Quote of the Day Option.)\n";  | 
            
            
              | 5270 | 
                  SetVersion($DBversion);  | 
            
            
              | 5271 | 
              }  | 
            
            
              | 5272 | 
               | 
            
            
              | 5273 | 
              $DBversion = "3.09.00.006";  | 
            
            
              | 5274 | 
              if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { | 
            
            
              | 5275 | 
                  $dbh->do("UPDATE systempreferences SET | 
            
            
              | 5276 | 
                              variable = 'OPACShowHoldQueueDetails',  | 
            
            
              | 5277 | 
                              value = CASE value WHEN '1' THEN 'priority' ELSE 'none' END,  | 
            
            
              | 5278 | 
                              options = 'none|priority|holds|holds_priority',  | 
            
            
              | 5279 | 
                              explanation = 'Show holds details in OPAC',  | 
            
            
              | 5280 | 
                              type = 'Choice'  | 
            
            
              | 5281 | 
                            WHERE variable = 'OPACDisplayRequestPriority'");  | 
            
            
              | 5282 | 
                  print "Upgrade to $DBversion done (Changed system preference OPACDisplayRequestPriority -> OPACShowHoldQueueDetails)\n";  | 
            
            
              | 5283 | 
                  SetVersion($DBversion);  | 
            
            
              | 5284 | 
              }  | 
            
            
              | 5285 | 
               | 
            
            
              | 5286 | 
              $DBversion = "3.09.00.007";  | 
            
            
              | 5287 | 
              if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { | 
            
            
              | 5288 | 
                  unless(C4::Context->preference('ReservesControlBranch')){ | 
            
            
              | 5289 | 
                      $dbh->do("INSERT INTO `systempreferences` (variable,value,options,explanation,type) VALUES ('ReservesControlBranch','PatronLibrary','ItemHomeLibrary|PatronLibrary','Branch checked for members reservations rights.','Choice')"); | 
            
            
              | 5290 | 
                  }  | 
            
            
              | 5291 | 
                  print "Upgrade to $DBversion done (Insert ReservesControlBranch systempreference into systempreferences table )\n";  | 
            
            
              | 5292 | 
                  SetVersion($DBversion);  | 
            
            
              | 5293 | 
              }  | 
            
            
              | 5294 | 
               | 
            
            
              | 5295 | 
              $DBversion = "3.09.00.008";  | 
            
            
              | 5296 | 
              if (C4::Context->preference("Version") < TransformToNum($DBversion)) { | 
            
            
              | 5297 | 
                  $dbh->do("ALTER TABLE sessions ADD PRIMARY KEY (id);"); | 
            
            
              | 5298 | 
                  $dbh->do("ALTER TABLE sessions DROP INDEX `id`;"); | 
            
            
              | 5299 | 
                  print "Upgrade to $DBversion done (redefine the field id as PRIMARY KEY of sessions)\n";  | 
            
            
              | 5300 | 
                  SetVersion($DBversion);  | 
            
            
              | 5301 | 
              }  | 
            
            
              | 5302 | 
               | 
            
            
              | 5303 | 
              $DBversion = "3.09.00.009";  | 
            
            
              | 5304 | 
              if (C4::Context->preference("Version") < TransformToNum($DBversion)) { | 
            
            
              | 5305 | 
                  $dbh->do("ALTER TABLE branches ADD PRIMARY KEY (branchcode);"); | 
            
            
              | 5306 | 
                  $dbh->do("ALTER TABLE branches DROP INDEX branchcode;"); | 
            
            
              | 5307 | 
                  print "Upgrade to $DBversion done (redefine the field branchcode as PRIMARY KEY of branches)\n";  | 
            
            
              | 5308 | 
                  SetVersion ($DBversion);  | 
            
            
              | 5309 | 
              }  | 
            
            
              | 5310 | 
               | 
            
            
              | 5311 | 
              $DBversion = "3.09.00.010";  | 
            
            
              | 5312 | 
              if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { | 
            
            
              | 5313 | 
                  $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('IssueLostItem', 'alert', 'alert|confirm|nothing', 'Defines what should be done when an attempt is made to issue an item that has been marked as lost.', 'Choice')"); | 
            
            
              | 5314 | 
                  print "Upgrade to $DBversion done (Add system preference issuelostitem ))\n";  | 
            
            
              | 5315 | 
                  SetVersion($DBversion);  | 
            
            
              | 5316 | 
              }  | 
            
            
              | 5317 | 
               | 
            
            
              | 5318 | 
              $DBversion = "3.09.00.011";  | 
            
            
              | 5319 | 
              if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { | 
            
            
              | 5320 | 
                  $dbh->do("ALTER TABLE `biblioitems` ADD `ean` VARCHAR( 13 ) NULL AFTER issn"); | 
            
            
              | 5321 | 
                  $dbh->do("CREATE INDEX `ean` ON biblioitems (`ean`) "); | 
            
            
              | 5322 | 
                  $dbh->do("ALTER TABLE `deletedbiblioitems` ADD `ean` VARCHAR( 13 ) NULL AFTER issn"); | 
            
            
              | 5323 | 
                  if (C4::Context->preference("marcflavour") eq 'UNIMARC') { | 
            
            
              | 5324 | 
                       $dbh->do("UPDATE marc_subfield_structure SET kohafield='biblioitems.ean' WHERE tagfield='073' and tagsubfield='a'"); | 
            
            
              | 5325 | 
                  }  | 
            
            
              | 5326 | 
                  print "Upgrade to $DBversion done (Adding ean in biblioitems and deletedbiblioitems)\n";  | 
            
            
              | 5327 | 
                  print "If you have records with ean, please run misc/batchRebuildBiblioTables.pl to populate bibliotems.ean\n" if (C4::Context->preference("marcflavour") eq 'UNIMARC'); | 
            
            
              | 5328 | 
                  SetVersion($DBversion);  | 
            
            
              | 5329 | 
              }  | 
            
            
              | 5330 | 
               | 
            
            
              | 5331 | 
              $DBversion = "3.09.00.012";  | 
            
            
              | 5332 | 
              if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { | 
            
            
              | 5333 | 
                  $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SuspendHoldsIntranet', '1', NULL , 'Allow holds to be suspended from the intranet.', 'YesNo')"); | 
            
            
              | 5334 | 
                  $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SuspendHoldsOpac', '1', NULL , 'Allow holds to be suspended from the OPAC.', 'YesNo')"); | 
            
            
              | 5335 | 
                  print "Upgrade to $DBversion done (Add system preference OpacBrowseResults ))\n";  | 
            
            
              | 5336 | 
                  SetVersion($DBversion);  | 
            
            
              | 5337 | 
              }  | 
            
            
              | 5338 | 
               | 
            
            
              | 5339 | 
              $DBversion ="3.09.00.013";  | 
            
            
              | 5340 | 
              if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { | 
            
            
              | 5341 | 
                  $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('DefaultLanguageField008','','Fill in the default language for field 008 Range 35-37 (e.g. eng, nor, ger, see www.loc.gov/marc/languages/language_code.html)','','Free');"); | 
            
            
              | 5342 | 
                  print "Upgrade to $DBversion done (Add system preference DefaultLanguageField008))\n";  | 
            
            
              | 5343 | 
                  SetVersion($DBversion);  | 
            
            
              | 5344 | 
              }  | 
            
            
              | 5345 | 
               | 
            
            
              | 5346 | 
              $DBversion ="3.09.00.014";  | 
            
            
              | 5347 | 
              if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { | 
            
            
              | 5348 | 
                  # add phone message transport type  | 
            
            
              | 5349 | 
                  $dbh->do("INSERT INTO message_transport_types (message_transport_type) VALUES ('phone')"); | 
            
            
              | 5350 | 
                    | 
            
            
              | 5351 | 
                  # adds HOLD_PHONE and PREDUE_PHONE letters (as placeholders)  | 
            
            
              | 5352 | 
                  $dbh->do("INSERT INTO letter (module, code, name, title, content) VALUES | 
            
            
              | 5353 | 
                            ('reserves', 'HOLD_PHONE', 'Item Available for Pick-up (phone notice)', 'Item Available for Pick-up (phone notice)', 'Your item is available for pickup'), | 
            
            
              | 5354 | 
                            ('circulation', 'PREDUE_PHONE', 'Advance Notice of Item Due (phone notice)', 'Advance Notice of Item Due (phone notice)', 'Your item is due soon'), | 
            
            
              | 5355 | 
                            ('circulation', 'OVERDUE_PHONE', 'Overdue Notice (phone notice)', 'Overdue Notice (phone notice)', 'Your item is overdue') | 
            
            
              | 5356 | 
                            ");  | 
            
            
              | 5357 | 
                    | 
            
            
              | 5358 | 
                  # add phone notifications to patron message preferences options  | 
            
            
              | 5359 | 
                  $dbh->do("INSERT INTO message_transports | 
            
            
              | 5360 | 
                           (message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) VALUES  | 
            
            
              | 5361 | 
                           (4, 'phone', 0, 'reserves', 'HOLD_PHONE'),  | 
            
            
              | 5362 | 
                           (2, 'phone', 0, 'circulation', 'PREDUE_PHONE')  | 
            
            
              | 5363 | 
                           ");  | 
            
            
              | 5364 | 
                    | 
            
            
              | 5365 | 
                  # add TalkingTechItivaPhoneNotification syspref  | 
            
            
              | 5366 | 
                  $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('TalkingTechItivaPhoneNotification',0,'If ON, enables Talking Tech I-tiva phone notifications',NULL,'YesNo');"); | 
            
            
              | 5367 | 
                    | 
            
            
              | 5368 | 
                  print "Upgrade done (Support for Talking Tech i-tiva phone notification system)\n";  | 
            
            
              | 5369 | 
                  SetVersion($DBversion);  | 
            
            
              | 5370 | 
              }  | 
            
            
              | 5371 | 
               | 
            
            
              | 5372 | 
              $DBversion = "3.09.00.015";  | 
            
            
              | 5373 | 
              if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { | 
            
            
              | 5374 | 
                  $dbh->do(qq{ | 
            
            
              | 5375 | 
                      INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('StatisticsFields','location|itype|ccode','Define Fields (from the items table) used for statistics members','location|itype|ccode','free') | 
            
            
              | 5376 | 
                  });  | 
            
            
              | 5377 | 
                  print "Upgrade to $DBversion done (Add System preference StatisticsFields)\n";  | 
            
            
              | 5378 | 
                  SetVersion($DBversion);  | 
            
            
              | 5379 | 
              }  | 
            
            
              | 5380 | 
               | 
            
            
              | 5381 | 
              $DBversion = "3.09.00.016";  | 
            
            
              | 5382 | 
              if (C4::Context->preference("Version") < TransformToNum($DBversion)) { | 
            
            
              | 5383 | 
                  $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACShowBarcode','0','Show items barcode in holding tab','','YesNo')"); | 
            
            
              | 5384 | 
                  print "Upgrade to $DBversion done (Add syspref OPACShowBarcode)\n";  | 
            
            
              | 5385 | 
                  SetVersion ($DBversion);  | 
            
            
              | 5386 | 
              }  | 
            
            
              | 5387 | 
               | 
            
            
              | 5388 | 
              $DBversion = "3.09.00.017";  | 
            
            
              | 5389 | 
              if (C4::Context->preference("Version") < TransformToNum($DBversion)) { | 
            
            
              | 5390 | 
                  $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('OpacNavRight', '', '70|10', 'Show the following HTML in the right hand column of the main page under the main login form', 'Textarea');"); | 
            
            
              | 5391 | 
                  print "Upgrade to $DBversion done (Add customizable OpacNavRight region to the OPAC main page)\n";  | 
            
            
              | 5392 | 
                  SetVersion ($DBversion);  | 
            
            
              | 5393 | 
              }  | 
            
            
              | 5394 | 
               | 
            
            
              | 5395 | 
              $DBversion = "3.09.00.018";  | 
            
            
              | 5396 | 
              if (C4::Context->preference("Version") < TransformToNum($DBversion)) { | 
            
            
              | 5397 | 
                  $dbh->do("DROP TABLE IF EXISTS aqbudgetborrowers"); | 
            
            
              | 5398 | 
                  $dbh->do(" | 
            
            
              | 5399 | 
                      CREATE TABLE aqbudgetborrowers (  | 
            
            
              | 5400 | 
                        budget_id int(11) NOT NULL,  | 
            
            
              | 5401 | 
                        borrowernumber int(11) NOT NULL,  | 
            
            
              | 5402 | 
                        PRIMARY KEY (budget_id, borrowernumber),  | 
            
            
              | 5403 | 
                        CONSTRAINT aqbudgetborrowers_ibfk_1 FOREIGN KEY (budget_id)  | 
            
            
              | 5404 | 
                          REFERENCES aqbudgets (budget_id)  | 
            
            
              | 5405 | 
                          ON DELETE CASCADE ON UPDATE CASCADE,  | 
            
            
              | 5406 | 
                        CONSTRAINT aqbudgetborrowers_ibfk_2 FOREIGN KEY (borrowernumber)  | 
            
            
              | 5407 | 
                          REFERENCES borrowers (borrowernumber)  | 
            
            
              | 5408 | 
                          ON DELETE CASCADE ON UPDATE CASCADE  | 
            
            
              | 5409 | 
                      ) ENGINE=InnoDB DEFAULT CHARSET=utf8;  | 
            
            
              | 5410 | 
                  ");  | 
            
            
              | 5411 | 
                  $dbh->do(" | 
            
            
              | 5412 | 
                      INSERT INTO permissions (module_bit, code, description)  | 
            
            
              | 5413 | 
                      VALUES (11, 'budget_manage_all', 'Manage all budgets')  | 
            
            
              | 5414 | 
                  ");  | 
            
            
              | 5415 | 
                  print "Upgrade to $DBversion done (Add aqbudgetborrowers table)\n";  | 
            
            
              | 5416 | 
                  SetVersion($DBversion);  | 
            
            
              | 5417 | 
              }  | 
            
            
              | 5418 | 
               | 
            
            
              | 5419 | 
              $DBversion = "3.09.00.019";  | 
            
            
              | 5420 | 
              if (C4::Context->preference("Version") < TransformToNum($DBversion)) { | 
            
            
              | 5421 | 
                  $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('OPACShowUnusedAuthorities','1','','Show authorities that are not being used in the OPAC.','YesNo')"); | 
            
            
              | 5422 | 
                  print "Upgrade to $DBversion done (Add OPACShowUnusedAuthorities system preference)\n";  | 
            
            
              | 5423 | 
                  SetVersion ($DBversion);  | 
            
            
              | 5424 | 
              }  | 
            
            
              | 5425 | 
               | 
            
            
              | 5426 | 
              $DBversion = "3.09.00.020";  | 
            
            
              | 5427 | 
              if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { | 
            
            
              | 5428 | 
                  $dbh->do("INSERT INTO systempreferences (variable,value,explanation,type) VALUES('EnableBorrowerFiles','0','If enabled, allows librarians to upload and attach arbitrary files to a borrower record.','YesNo')"); | 
            
            
              | 5429 | 
                  $dbh->do(" | 
            
            
              | 5430 | 
              CREATE TABLE IF NOT EXISTS borrower_files (  | 
            
            
              | 5431 | 
                file_id int(11) NOT NULL AUTO_INCREMENT,  | 
            
            
              | 5432 | 
                borrowernumber int(11) NOT NULL,  | 
            
            
              | 5433 | 
                file_name varchar(255) NOT NULL,  | 
            
            
              | 5434 | 
                file_type varchar(255) NOT NULL,  | 
            
            
              | 5435 | 
                file_description varchar(255) DEFAULT NULL,  | 
            
            
              | 5436 | 
                file_content longblob NOT NULL,  | 
            
            
              | 5437 | 
                date_uploaded timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,  | 
            
            
              | 5438 | 
                PRIMARY KEY (file_id),  | 
            
            
              | 5439 | 
                KEY borrowernumber (borrowernumber)  | 
            
            
              | 5440 | 
              ) ENGINE=InnoDB  DEFAULT CHARSET=utf8;  | 
            
            
              | 5441 | 
                  ");  | 
            
            
              | 5442 | 
                  $dbh->do("ALTER TABLE borrower_files ADD CONSTRAINT borrower_files_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE"); | 
            
            
              | 5443 | 
               | 
            
            
              | 5444 | 
                  print "Upgrade to $DBversion done (Added borrow_files table, EnableBorrowerFiles syspref)\n";  | 
            
            
              | 5445 | 
                  SetVersion($DBversion);  | 
            
            
              | 5446 | 
              }  | 
            
            
              | 5447 | 
               | 
            
            
              | 5448 | 
              $DBversion = "3.09.00.021";  | 
            
            
              | 5449 | 
              if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { | 
            
            
              | 5450 | 
                  $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UpdateTotalIssuesOnCirc','0','Whether to update the totalissues field in the biblio on each circ.',NULL,'YesNo');"); | 
            
            
              | 5451 | 
                  print "Upgrade to $DBversion done (Add syspref UpdateTotalIssuesOnCirc)\n";  | 
            
            
              | 5452 | 
                  SetVersion($DBversion);  | 
            
            
              | 5453 | 
              }  | 
            
            
              | 5454 | 
               | 
            
            
              | 5455 | 
              $DBversion = "3.09.00.022";  | 
            
            
              | 5456 | 
              if (C4::Context->preference("Version") < TransformToNum($DBversion)) { | 
            
            
              | 5457 | 
                  $dbh->do("ALTER TABLE search_history MODIFY COLUMN query_cgi text NOT NULL"); | 
            
            
              | 5458 | 
                  print "Upgrade to $DBversion done (Change search_history.query_cgi type to text. bug 5981)\n";  | 
            
            
              | 5459 | 
                  SetVersion($DBversion);  | 
            
            
              | 5460 | 
              }  | 
            
            
              | 5461 | 
               | 
            
        
          | 5462 | 
          =head1 FUNCTIONS  | 
          5216 | 
          =head1 FUNCTIONS  | 
        
        
          | 5463 | 
           | 
          5217 | 
           | 
        
        
          | 5464 | 
          =head2 TableExists($table)  | 
          5218 | 
          =head2 TableExists($table)  |