library/adodb/drivers/adodb-mysql.inc.php

   1 <?php
   2 /*
   3 V4.20 22 Feb 2004  (c) 2000-2004 John Lim (jlim@natsoft.com.my). All rights reserved.
   4   Released under both BSD license and Lesser GPL library license.
   5   Whenever there is any discrepancy between the two licenses,
   6   the BSD license will take precedence.
   7   Set tabs to 8.
   8
   9   MySQL code that does not support transactions. Use mysqlt if you need transactions.
  10   Requires mysql client. Works on Windows and Unix.
  11
  12  28 Feb 2001: MetaColumns bug fix - suggested by  Freek Dijkstra (phpeverywhere@macfreek.com)
  13 */
  14
  15 if (! defined("_ADODB_MYSQL_LAYER")) {
  16  define("_ADODB_MYSQL_LAYER", 1 );
  17
  18 class ADODB_mysql extends ADOConnection {
  19         var $databaseType = 'mysql';
  20         var $dataProvider = 'mysql';
  21         var $hasInsertID = true;
  22         var $hasAffectedRows = true;
  23         var $metaTablesSQL = "SHOW TABLES";
  24         var $metaColumnsSQL = "SHOW COLUMNS FROM %s";
  25         var $fmtTimeStamp = "'Y-m-d H:i:s'";
  26         var $hasLimit = true;
  27         var $hasMoveFirst = true;
  28         var $hasGenID = true;
  29         var $upperCase = 'upper';
  30         var $isoDates = true; // accepts dates in ISO format
  31         var $sysDate = 'CURDATE()';
  32         var $sysTimeStamp = 'NOW()';
  33         var $hasTransactions = false;
  34         var $forceNewConnect = false;
  35         var $poorAffectedRows = true;
  36         var $clientFlags = 0;
  37         var $substr = "substring";
  38         var $nameQuote = '`';           /// string to use to quote identifiers and names
  39
  40         function ADODB_mysql()
  41         {
  42         }
  43
  44         function ServerInfo()
  45         {
  46                 $arr['description'] = ADOConnection::GetOne("select version()");
  47                 $arr['version'] = ADOConnection::_findvers($arr['description']);
  48                 return $arr;
  49         }
  50
  51         function IfNull( $field, $ifNull )
  52         {
  53                 return " IFNULL($field, $ifNull) "; // if MySQL
  54         }
  55
  56         function &MetaTables($ttype=false,$showSchema=false,$mask=false)
  57         {
  58                 if ($mask) {
  59                         $save = $this->metaTablesSQL;
  60                         $mask = $this->qstr($mask);
  61                         $this->metaTablesSQL .= " like $mask";
  62                 }
  63                 $ret =& ADOConnection::MetaTables($ttype,$showSchema);
  64
  65                 if ($mask) {
  66                         $this->metaTablesSQL = $save;
  67                 }
  68                 return $ret;
  69         }
  70
  71
  72         function &MetaIndexes ($table, $primary = FALSE, $owner=false)
  73         {
  74         // save old fetch mode
  75         global $ADODB_FETCH_MODE;
  76
  77         $save = $ADODB_FETCH_MODE;
  78         $ADODB_FETCH_MODE = ADODB_FETCH_NUM;
  79         if ($this->fetchMode !== FALSE) {
  80                $savem = $this->SetFetchMode(FALSE);
  81         }
  82
  83         // get index details
  84         $rs = $this->Execute(sprintf('SHOW INDEX FROM %s',$table));
  85
  86         // restore fetchmode
  87         if (isset($savem)) {
  88                 $this->SetFetchMode($savem);
  89         }
  90         $ADODB_FETCH_MODE = $save;
  91
  92         if (!is_object($rs)) {
  93                 return FALSE;
  94         }
  95
  96         $indexes = array ();
  97
  98         // parse index data into array
  99         while ($row = $rs->FetchRow()) {
 100                 if ($primary == FALSE AND $row[2] == 'PRIMARY') {
 101                         continue;
 102                 }
 103
 104                 if (!isset($indexes[$row[2]])) {
 105                         $indexes[$row[2]] = array(
 106                                 'unique' => ($row[1] == 0),
 107                                 'columns' => array()
 108                         );
 109                 }
 110
 111                 $indexes[$row[2]]['columns'][$row[3] - 1] = $row[4];
 112         }
 113
 114         // sort columns by order in the index
 115         foreach ( array_keys ($indexes) as $index )
 116         {
 117                 ksort ($indexes[$index]['columns']);
 118         }
 119
 120         return $indexes;
 121         }
 122
 123
 124         // if magic quotes disabled, use mysql_real_escape_string()
 125         function qstr($s,$magic_quotes=false)
 126         {
 127                 if (!$magic_quotes) {
 128
 129                         if (ADODB_PHPVER >= 0x4300) {
 130                                 if (is_resource($this->_connectionID))
 131                                         return "'".mysql_real_escape_string($s,$this->_connectionID)."'";
 132                         }
 133                         if ($this->replaceQuote[0] == '\\'){
 134                                 $s = adodb_str_replace(array('\\',"\0"),array('\\\\',"\\\0"),$s);
 135                         }
 136                         return  "'".str_replace("'",$this->replaceQuote,$s)."'";
 137                 }
 138
 139                 // undo magic quotes for "
 140                 $s = str_replace('\\"','"',$s);
 141                 return "'$s'";
 142         }
 143
 144         function _insertid()
 145         {
 146                 return mysql_insert_id($this->_connectionID);
 147         }
 148
 149         function GetOne($sql,$inputarr=false)
 150         {
 151                 $rs =& $this->SelectLimit($sql,1,-1,$inputarr);
 152                 if ($rs) {
 153                         $rs->Close();
 154                         if ($rs->EOF) return false;
 155                         return reset($rs->fields);
 156                 }
 157
 158                 return false;
 159         }
 160
 161         function _affectedrows()
 162         {
 163                         return mysql_affected_rows($this->_connectionID);
 164         }
 165
 166         // See http://www.mysql.com/doc/M/i/Miscellaneous_functions.html
 167         // Reference on Last_Insert_ID on the recommended way to simulate sequences
 168         var $_genIDSQL = "update %s set id=LAST_INSERT_ID(id+1);";
 169         var $_genSeqSQL = "create table %s (id int not null)";
 170         var $_genSeq2SQL = "insert into %s values (%s)";
 171         var $_dropSeqSQL = "drop table %s";
 172
 173         function CreateSequence($seqname='adodbseq',$startID=1)
 174         {
 175                 if (empty($this->_genSeqSQL)) return false;
 176                 $u = strtoupper($seqname);
 177
 178                 $ok = $this->Execute(sprintf($this->_genSeqSQL,$seqname));
 179                 if (!$ok) return false;
 180                 return $this->Execute(sprintf($this->_genSeq2SQL,$seqname,$startID-1));
 181         }
 182
 183
 184         function GenID($seqname='adodbseq',$startID=1)
 185         {
 186                 // post-nuke sets hasGenID to false
 187                 if (!$this->hasGenID) return false;
 188
 189                 $savelog = $this->_logsql;
 190                 $this->_logsql = false;
 191                 $getnext = sprintf($this->_genIDSQL,$seqname);
 192                 $holdtransOK = $this->_transOK; // save the current status
 193                 $rs = @$this->Execute($getnext);
 194                 if (!$rs) {
 195                         if ($holdtransOK) $this->_transOK = true; //if the status was ok before reset
 196                         $u = strtoupper($seqname);
 197                         $this->Execute(sprintf($this->_genSeqSQL,$seqname));
 198                         $this->Execute(sprintf($this->_genSeq2SQL,$seqname,$startID-1));
 199                         $rs = $this->Execute($getnext);
 200                 }
 201                 $this->genID = mysql_insert_id($this->_connectionID);
 202
 203                 if ($rs) $rs->Close();
 204
 205                 $this->_logsql = $savelog;
 206
 207                 // ViSolve : Sep 24,2010
 208                 // Instead of returning the generated LAST_INSERT_ID, the manipulated value
 209                 // from the $GLOBALS['lastidado'] is returned.
 210                 if($GLOBALS['lastidado'])
 211                  return $GLOBALS['lastidado'];
 212                 else
 213                  return $this->genID;
 214         }
 215
 216         function &MetaDatabases()
 217         {
 218                 $qid = mysql_list_dbs($this->_connectionID);
 219                 $arr = array();
 220                 $i = 0;
 221                 $max = mysql_num_rows($qid);
 222                 while ($i < $max) {
 223                         $db = mysql_tablename($qid,$i);
 224                         if ($db != 'mysql') $arr[] = $db;
 225                         $i += 1;
 226                 }
 227                 return $arr;
 228         }
 229
 230
 231         // Format date column in sql string given an input format that understands Y M D
 232         function SQLDate($fmt, $col=false)
 233         {
 234                 if (!$col) $col = $this->sysTimeStamp;
 235                 $s = 'DATE_FORMAT('.$col.",'";
 236                 $concat = false;
 237                 $len = strlen($fmt);
 238                 for ($i=0; $i < $len; $i++) {
 239                         $ch = $fmt[$i];
 240                         switch($ch) {
 241                         case 'Y':
 242                         case 'y':
 243                                 $s .= '%Y';
 244                                 break;
 245                         case 'Q':
 246                         case 'q':
 247                                 $s .= "'),Quarter($col)";
 248
 249                                 if ($len > $i+1) $s .= ",DATE_FORMAT($col,'";
 250                                 else $s .= ",('";
 251                                 $concat = true;
 252                                 break;
 253                         case 'M':
 254                                 $s .= '%b';
 255                                 break;
 256
 257                         case 'm':
 258                                 $s .= '%m';
 259                                 break;
 260                         case 'D':
 261                         case 'd':
 262                                 $s .= '%d';
 263                                 break;
 264
 265                         case 'H':
 266                                 $s .= '%H';
 267                                 break;
 268
 269                         case 'h':
 270                                 $s .= '%I';
 271                                 break;
 272
 273                         case 'i':
 274                                 $s .= '%i';
 275                                 break;
 276
 277                         case 's':
 278                                 $s .= '%s';
 279                                 break;
 280
 281                         case 'a':
 282                         case 'A':
 283                                 $s .= '%p';
 284                                 break;
 285
 286                         default:
 287
 288                                 if ($ch == '\\') {
 289                                         $i++;
 290                                         $ch = substr($fmt,$i,1);
 291                                 }
 292                                 $s .= $ch;
 293                                 break;
 294                         }
 295                 }
 296                 $s.="')";
 297                 if ($concat) $s = "CONCAT($s)";
 298                 return $s;
 299         }
 300
 301
 302         // returns concatenated string
 303         // much easier to run "mysqld --ansi" or "mysqld --sql-mode=PIPES_AS_CONCAT" and use || operator
 304         function Concat()
 305         {
 306                 $s = "";
 307                 $arr = func_get_args();
 308
 309                 // suggestion by andrew005@mnogo.ru
 310                 $s = implode(',',$arr);
 311                 if (strlen($s) > 0) return "CONCAT($s)";
 312                 else return '';
 313         }
 314
 315         function OffsetDate($dayFraction,$date=false)
 316         {
 317                 if (!$date) $date = $this->sysDate;
 318                 return "from_unixtime(unix_timestamp($date)+($dayFraction)*24*3600)";
 319         }
 320
 321         // returns true or false
 322         function _connect($argHostname, $argUsername, $argPassword, $argDatabasename)
 323         {
 324                 if (ADODB_PHPVER >= 0x4300)
 325                         $this->_connectionID = mysql_connect($argHostname,$argUsername,$argPassword,
 326                                                                                                 $this->forceNewConnect,$this->clientFlags);
 327                 else if (ADODB_PHPVER >= 0x4200)
 328                         $this->_connectionID = mysql_connect($argHostname,$argUsername,$argPassword,
 329                                                                                                 $this->forceNewConnect);
 330                 else
 331                         $this->_connectionID = mysql_connect($argHostname,$argUsername,$argPassword);
 332
 333                 if ($this->_connectionID === false) return false;
 334                 if ($argDatabasename) return $this->SelectDB($argDatabasename);
 335                 return true;
 336         }
 337
 338         // returns true or false
 339         function _pconnect($argHostname, $argUsername, $argPassword, $argDatabasename)
 340         {
 341                 if (ADODB_PHPVER >= 0x4300)
 342                         $this->_connectionID = mysql_pconnect($argHostname,$argUsername,$argPassword,$this->clientFlags);
 343                 else
 344                         $this->_connectionID = mysql_pconnect($argHostname,$argUsername,$argPassword);
 345                 if ($this->_connectionID === false) return false;
 346                 if ($this->autoRollback) $this->RollbackTrans();
 347                 if ($argDatabasename) return $this->SelectDB($argDatabasename);
 348                 return true;
 349         }
 350
 351         function _nconnect($argHostname, $argUsername, $argPassword, $argDatabasename)
 352         {
 353                 $this->forceNewConnect = true;
 354                 return $this->_connect($argHostname, $argUsername, $argPassword, $argDatabasename);
 355         }
 356
 357         function &MetaColumns($table)
 358         {
 359
 360                 if ($this->metaColumnsSQL) {
 361                 global $ADODB_FETCH_MODE;
 362
 363                         $save = $ADODB_FETCH_MODE;
 364                         $ADODB_FETCH_MODE = ADODB_FETCH_NUM;
 365                         if ($this->fetchMode !== false) $savem = $this->SetFetchMode(false);
 366
 367                         $rs = $this->Execute(sprintf($this->metaColumnsSQL,$table));
 368
 369                         if (isset($savem)) $this->SetFetchMode($savem);
 370                         $ADODB_FETCH_MODE = $save;
 371
 372                         if ($rs === false) return false;
 373
 374                         $retarr = array();
 375                         while (!$rs->EOF){
 376                                 $fld = new ADOFieldObject();
 377                                 $fld->name = $rs->fields[0];
 378                                 $type = $rs->fields[1];
 379
 380
 381                                 // split type into type(length):
 382                                 $fld->scale = null;
 383                                 if (strpos($type,',') && preg_match("/^(.+)\((\d+),(\d+)/", $type, $query_array)) {
 384                                         $fld->type = $query_array[1];
 385                                         $fld->max_length = is_numeric($query_array[2]) ? $query_array[2] : -1;
 386                                         $fld->scale = is_numeric($query_array[3]) ? $query_array[3] : -1;
 387                                 } elseif (preg_match("/^(.+)\((\d+)/", $type, $query_array)) {
 388                                         $fld->type = $query_array[1];
 389                                         $fld->max_length = is_numeric($query_array[2]) ? $query_array[2] : -1;
 390                                 } else {
 391                                         $fld->max_length = -1;
 392                                         $fld->type = $type;
 393                                 }
 394                                 /*
 395                                 // split type into type(length):
 396                                 if (preg_match("/^(.+)\((\d+)/", $type, $query_array)) {
 397                                         $fld->type = $query_array[1];
 398                                         $fld->max_length = is_numeric($query_array[2]) ? $query_array[2] : -1;
 399                                 } else {
 400                                         $fld->max_length = -1;
 401                                         $fld->type = $type;
 402                                 }*/
 403                                 $fld->not_null = ($rs->fields[2] != 'YES');
 404                                 $fld->primary_key = ($rs->fields[3] == 'PRI');
 405                                 $fld->auto_increment = (strpos($rs->fields[5], 'auto_increment') !== false);
 406                                 $fld->binary = (strpos($fld->type,'blob') !== false);
 407
 408                                 if (!$fld->binary) {
 409                                         $d = $rs->fields[4];
 410                                         if ($d != "" && $d != "NULL") {
 411                                                 $fld->has_default = true;
 412                                                 $fld->default_value = $d;
 413                                         } else {
 414                                                 $fld->has_default = false;
 415                                         }
 416                                 }
 417                                 if ($save == ADODB_FETCH_NUM) $retarr[] = $fld;
 418                                 else $retarr[strtoupper($fld->name)] = $fld;
 419                                 $rs->MoveNext();
 420                         }
 421                         $rs->Close();
 422                         return $retarr;
 423                 }
 424                 return false;
 425         }
 426
 427         // returns true or false
 428         function SelectDB($dbName)
 429         {
 430                 $this->databaseName = $dbName;
 431                 if ($this->_connectionID) {
 432                         return @mysql_select_db($dbName,$this->_connectionID);
 433                 }
 434                 else return false;
 435         }
 436
 437         // parameters use PostgreSQL convention, not MySQL
 438         function &SelectLimit($sql,$nrows=-1,$offset=-1,$inputarr=false,$secs=0)
 439         {
 440                 $offsetStr =($offset>=0) ? "$offset," : '';
 441
 442                 if ($secs)
 443                         $rs =& $this->CacheExecute($secs,$sql." LIMIT $offsetStr$nrows",$inputarr);
 444                 else
 445                         $rs =& $this->Execute($sql." LIMIT $offsetStr$nrows",$inputarr);
 446                 return $rs;
 447         }
 448
 449
 450         // returns queryID or false
 451         function _query($sql,$inputarr)
 452         {
 453         //global $ADODB_COUNTRECS;
 454                 //if($ADODB_COUNTRECS)
 455                 return mysql_query($sql,$this->_connectionID);
 456                 //else return @mysql_unbuffered_query($sql,$this->_connectionID); // requires PHP >= 4.0.6
 457         }
 458
 459         /*      Returns: the last error message from previous database operation        */
 460         function ErrorMsg()
 461         {
 462
 463                 if ($this->_logsql) return $this->_errorMsg;
 464                 if (empty($this->_connectionID)) $this->_errorMsg = @mysql_error();
 465                 else $this->_errorMsg = @mysql_error($this->_connectionID);
 466                 return $this->_errorMsg;
 467         }
 468
 469         /*      Returns: the last error number from previous database operation */
 470         function ErrorNo()
 471         {
 472                 if ($this->_logsql) return $this->_errorCode;
 473                 if (empty($this->_connectionID))  return @mysql_errno();
 474                 else return @mysql_errno($this->_connectionID);
 475         }
 476
 477
 478
 479         // returns true or false
 480         function _close()
 481         {
 482                 @mysql_close($this->_connectionID);
 483                 $this->_connectionID = false;
 484         }
 485
 486
 487         /*
 488         * Maximum size of C field
 489         */
 490         function CharMax()
 491         {
 492                 return 255;
 493         }
 494
 495         /*
 496         * Maximum size of X field
 497         */
 498         function TextMax()
 499         {
 500                 return 4294967295;
 501         }
 502
 503 }
 504
 505 /*--------------------------------------------------------------------------------------
 506          Class Name: Recordset
 507 --------------------------------------------------------------------------------------*/
 508
 509 class ADORecordSet_mysql extends ADORecordSet{
 510
 511         var $databaseType = "mysql";
 512         var $canSeek = true;
 513
 514         function ADORecordSet_mysql($queryID,$mode=false)
 515         {
 516                 if ($mode === false) {
 517                         global $ADODB_FETCH_MODE;
 518                         $mode = $ADODB_FETCH_MODE;
 519                 }
 520                 switch ($mode)
 521                 {
 522                 case ADODB_FETCH_NUM: $this->fetchMode = MYSQL_NUM; break;
 523                 case ADODB_FETCH_ASSOC:$this->fetchMode = MYSQL_ASSOC; break;
 524                 default:
 525                 case ADODB_FETCH_DEFAULT:
 526                 case ADODB_FETCH_BOTH:$this->fetchMode = MYSQL_BOTH; break;
 527                 }
 528
 529                 $this->ADORecordSet($queryID);
 530         }
 531
 532         function _initrs()
 533         {
 534         //GLOBAL $ADODB_COUNTRECS;
 535         //      $this->_numOfRows = ($ADODB_COUNTRECS) ? @mysql_num_rows($this->_queryID):-1;
 536                 $this->_numOfRows = @mysql_num_rows($this->_queryID);
 537                 $this->_numOfFields = @mysql_num_fields($this->_queryID);
 538         }
 539
 540         function &FetchField($fieldOffset = -1)
 541         {
 542
 543                 if ($fieldOffset != -1) {
 544                         $o = @mysql_fetch_field($this->_queryID, $fieldOffset);
 545                         $f = @mysql_field_flags($this->_queryID,$fieldOffset);
 546                         $o->max_length = @mysql_field_len($this->_queryID,$fieldOffset); // suggested by: Jim Nicholson (jnich@att.com)
 547                         //$o->max_length = -1; // mysql returns the max length less spaces -- so it is unrealiable
 548                         $o->binary = (strpos($f,'binary')!== false);
 549                 }
 550                 else if ($fieldOffset == -1) {  /*      The $fieldOffset argument is not provided thus its -1   */
 551                         $o = @mysql_fetch_field($this->_queryID);
 552                         $o->max_length = @mysql_field_len($this->_queryID); // suggested by: Jim Nicholson (jnich@att.com)
 553                         //$o->max_length = -1; // mysql returns the max length less spaces -- so it is unrealiable
 554                 }
 555
 556                 return $o;
 557         }
 558
 559         function &GetRowAssoc($upper=true)
 560         {
 561                 if ($this->fetchMode == MYSQL_ASSOC && !$upper) return $this->fields;
 562                 $row =& ADORecordSet::GetRowAssoc($upper);
 563                 return $row;
 564         }
 565
 566         /* Use associative array to get fields array */
 567         function Fields($colname)
 568         {
 569                 // added @ by "Michael William Miller" <mille562@pilot.msu.edu>
 570                 if ($this->fetchMode != MYSQL_NUM) return @$this->fields[$colname];
 571
 572                 if (!$this->bind) {
 573                         $this->bind = array();
 574                         for ($i=0; $i < $this->_numOfFields; $i++) {
 575                                 $o = $this->FetchField($i);
 576                                 $this->bind[strtoupper($o->name)] = $i;
 577                         }
 578                 }
 579                  return $this->fields[$this->bind[strtoupper($colname)]];
 580         }
 581
 582         function _seek($row)
 583         {
 584                 if ($this->_numOfRows == 0) return false;
 585                 return @mysql_data_seek($this->_queryID,$row);
 586         }
 587
 588
 589         // 10% speedup to move MoveNext to child class
 590         function MoveNext()
 591         {
 592         //global $ADODB_EXTENSION;if ($ADODB_EXTENSION) return adodb_movenext($this);
 593
 594                 if ($this->EOF) return false;
 595
 596                 $this->_currentRow++;
 597                 $this->fields = @mysql_fetch_array($this->_queryID,$this->fetchMode);
 598                 if (is_array($this->fields)) return true;
 599
 600                 $this->EOF = true;
 601
 602                 /* -- tested raising an error -- appears pointless
 603                 $conn = $this->connection;
 604                 if ($conn && $conn->raiseErrorFn && ($errno = $conn->ErrorNo())) {
 605                         $fn = $conn->raiseErrorFn;
 606                         $fn($conn->databaseType,'MOVENEXT',$errno,$conn->ErrorMsg().' ('.$this->sql.')',$conn->host,$conn->database);
 607                 }
 608                 */
 609                 return false;
 610         }
 611
 612         function _fetch()
 613         {
 614                 $this->fields =  @mysql_fetch_array($this->_queryID,$this->fetchMode);
 615                 return is_array($this->fields);
 616         }
 617
 618         function _close() {
 619                 @mysql_free_result($this->_queryID);
 620                 $this->_queryID = false;
 621         }
 622
 623         function MetaType($t,$len=-1,$fieldobj=false)
 624         {
 625                 if (is_object($t)) {
 626                         $fieldobj = $t;
 627                         $t = $fieldobj->type;
 628                         $len = $fieldobj->max_length;
 629                 }
 630
 631                 $len = -1; // mysql max_length is not accurate
 632                 switch (strtoupper($t)) {
 633                 case 'STRING':
 634                 case 'CHAR':
 635                 case 'VARCHAR':
 636                 case 'TINYBLOB':
 637                 case 'TINYTEXT':
 638                 case 'ENUM':
 639                 case 'SET':
 640                         if ($len <= $this->blobSize) return 'C';
 641
 642                 case 'TEXT':
 643                 case 'LONGTEXT':
 644                 case 'MEDIUMTEXT':
 645                         return 'X';
 646
 647                 // php_mysql extension always returns 'blob' even if 'text'
 648                 // so we have to check whether binary...
 649                 case 'IMAGE':
 650                 case 'LONGBLOB':
 651                 case 'BLOB':
 652                 case 'MEDIUMBLOB':
 653                         return !empty($fieldobj->binary) ? 'B' : 'X';
 654
 655                 case 'YEAR':
 656                 case 'DATE': return 'D';
 657
 658                 case 'TIME':
 659                 case 'DATETIME':
 660                 case 'TIMESTAMP': return 'T';
 661
 662                 case 'INT':
 663                 case 'INTEGER':
 664                 case 'BIGINT':
 665                 case 'TINYINT':
 666                 case 'MEDIUMINT':
 667                 case 'SMALLINT':
 668
 669                         if (!empty($fieldobj->primary_key)) return 'R';
 670                         else return 'I';
 671
 672                 default: return 'N';
 673                 }
 674         }
 675
 676 }
 677 }
 678 ?>