4 global $DB_CONNECTION;
\r
5 $DB_CONNECTION = false;
\r
8 global $db_url, $db_type;
\r
9 //error_log("in include for database, $db_type, $db_name");
12 function gwvpmini_DBExists()
14 global $WEB_ROOT_FS, $BASE_URL, $data_directory, $db_type, $db_name;
16 // oh this isnt working. poo.
17 //error_log("checking for $db_name, $db_type");
19 if($db_type == "sqlite") {
20 if(file_exists($db_name)) {
21 //error_log("Exists");
25 //error_log("no exists");
31 function gwvpmini_getUser($username=null, $email=null, $id=null)
\r
33 $conn = gwvpmini_ConnectDB();
\r
35 if($username != null) {
\r
36 $res = $conn->query("select * from users where user_username='$username'");
\r
37 } else if($email != null) {
\r
38 $res = $conn->query("select * from users where user_email='$email'");
\r
39 } else if($id != null) {
\r
40 $res = $conn->query("select * from users where user_id='$id'");
\r
41 } else return false;
\r
44 foreach($res as $u_res) {
\r
45 $returns["id"] = $u_res["user_id"];
\r
46 $returns["fullname"] = $u_res["user_full_name"];
\r
47 $returns["password"] = $u_res["user_password"];
\r
48 $returns["username"] = $u_res["user_username"];
\r
49 $returns["email"] = $u_res["user_email"];
\r
50 $returns["desc"] = $u_res["user_desc"];
\r
51 $returns["status"] = $u_res["user_status"];
\r
59 function gwvpmini_getRepo($ownerid=null, $name=null, $id=null)
\r
61 $conn = gwvpmini_ConnectDB();
65 CREATE TABLE "repos" (
66 "repos_id" INTEGER PRIMARY KEY AUTOINCREMENT,
68 "repos_description" TEXT,
69 "repos_owner" INTEGER,
70 "repos_readperms" TEXT,
76 if($ownerid != null) {
\r
77 $res = $conn->query("select * from repos where repos_owner='$ownerid'");
\r
78 } else if($name != null) {
\r
79 $res = $conn->query("select * from repos where repos_name='$name'");
\r
80 } else if($id != null) {
\r
81 $res = $conn->query("select * from repos where repos_id='$id'");
\r
82 } else return false;
\r
85 if(!$res) return false;
\r
86 foreach($res as $u_res) {
\r
87 $returns["id"] = $u_res["repos_id"];
\r
88 $returns["name"] = $u_res["repos_name"];
\r
89 $returns["desc"] = $u_res["repos_description"];
\r
90 $returns["ownerid"] = $u_res["repos_owner"];
91 $returns["status"] = $u_res["repos_status"];
\r
99 // $uid = user id (a for "anyone", r for "registered")
100 // $acc = 0 or 1, 0 = no access, 1 = read access, 2 = write
101 // first part of ths is the "base" repo permissions
102 // this is spec'd as b:t where t = a (anyone can read), r (only registered can read) or x (explicit read perms)
103 function gwvpmini_ChangeRepoPerm($rid, $uid, $acc)
105 $conn = gwvpmini_ConnectDB();
107 $sql = "select repos_perms from repos where repos_id='$rid'";
109 $res = $conn->query($sql);
111 error_log("CHANGEREPOPERMS: call with $rid, $uid, $acc");
114 foreach($res as $row) {
118 if($cperms_t === false) return false;
120 $permsarray = array();
122 if($cperms_t == "") {
123 $permsarray[$uid] = $acc;
125 $permsarray = unserialize(base64_decode($cperms_t));
126 $permsarray[$uid] = $acc;
128 error_log("PERMSUPDATE: REMOVE $uid");
129 unset($permsarray[$uid]);
133 error_log("CHANGEREPOPERMS for b of $acc");
134 $permsarray["b"] = $acc;
137 // check if base is now r or a, we can drop any 1's
138 if($permsarray["b"] == "a" || $permsarray["b"] == "r") {
139 foreach($permsarray as $key => $val) {
141 error_log("CHANGEREPOPERMS removed $key $val for base perm change");
142 unset($permsarray[$key]);
147 if(is_array($permsarray)) {
148 if(!isset($permsarray["b"])) {
149 // something went wrong, repalce b bit
150 $permsarray["b"] = "a";
153 // something went even wronger
154 $permsarray["b"] = "a";
158 $encperms = base64_encode(serialize($permsarray));
160 $sql = "update repos set repos_perms='$encperms' where repos_id='$rid'";
\r
162 error_log("PERMSARRAYNOW $sql ".print_r($permsarray,true));
\r
168 function gwvpmini_GetRepoPerms($rid)
170 $conn = gwvpmini_ConnectDB();
\r
172 $sql = "select repos_perms from repos where repos_id='$rid'";
\r
174 $res = $conn->query($sql);
\r
177 if($res !== false) foreach($res as $row) {
\r
178 $cperms_t = $row[0];
\r
181 if($cperms_t === false) return false;
\r
183 $permsarray = unserialize(base64_decode($cperms_t));
188 //returns 0 for none, 1 for read, 2 for writes
189 function gwvpmini_GetRepoPerm($rid, $uid)
191 $conn = gwvpmini_ConnectDB();
\r
193 $dets = gwvpmini_getRepo(null, null, $rid);
195 $sql = "select repos_perms from repos where repos_id='$rid'";
\r
197 $res = $conn->query($sql);
200 if($res !== false) foreach($res as $row) {
\r
201 $cperms_t = $row[0];
\r
204 if($cperms_t === false) return 0;
206 error_log("PERMSCHECK $rid, $uid:".print_r($dets, true));
\r
208 if($dets === false) return 0;
210 if($dets["ownerid"] == $uid) return 2;
\r
212 $permsarray = unserialize(base64_decode($cperms_t));
214 error_log("PERMSARRAY: ".print_r($permsarray,true));
219 if(isset($permsarray[$uid])) {
220 $perm = $permsarray[$uid];
221 } else if($permsarray["b"] == "a" ||$permsarray["b"] == "r") {
225 if($permsarray["b"] == "a") $perm = 1;
232 function gwvpmini_RemoveRepoDB($id)
234 $conn = gwvpmini_ConnectDB();
\r
236 if($id < 0) return;
\r
238 $sql = "delete from repos where repos_id='$id'";
\r
240 return $conn->query($sql);
\r
244 function gwvpmini_RemoveUser($uid)
246 $conn = gwvpmini_ConnectDB();
\r
250 $sql = "delete from users where user_id='$uid'";
252 return $conn->query($sql);
255 function gwvpmini_DisableUser($uid)
\r
257 $conn = gwvpmini_ConnectDB();
\r
259 if($uid < 0) return;
\r
261 $sql = "update users set user_status=1 where user_id='$uid'";
\r
263 return $conn->query($sql);
\r
266 function gwvpmini_UpdateRepoDescription($rid, $desc)
268 $conn = gwvpmini_ConnectDB();
\r
270 // remove any tag elements
271 $newdesc_r = preg_replace("/[\<\>\;]+/", "", $desc);
272 $newdesc = preg_replace("/\n/", "<br>", $newdesc_r);
274 $sql = "update repos set repos_description='$newdesc' where repos_id='$rid'";
276 return $conn->query($sql);
279 function gwvpmini_EnableUser($uid)
\r
281 $conn = gwvpmini_ConnectDB();
\r
283 if($uid < 0) return;
\r
285 $sql = "update users set user_status=0 where user_id='$uid'";
\r
287 return $conn->query($sql);
\r
290 function gwvpmini_DisableRepo($rid)
292 $conn = gwvpmini_ConnectDB();
\r
294 if($rid < 0) return;
\r
296 $sql = "update repos set repos_status=1 where repos_id='$rid'";
\r
298 return $conn->query($sql);
301 function gwvpmini_EnableRepo($rid)
\r
303 $conn = gwvpmini_ConnectDB();
\r
307 $sql = "update repos set repos_status=0 where repos_id='$rid'";
309 return $conn->query($sql);
\r
313 function gwvpmini_ConnectDB()
\r
315 global $WEB_ROOT_FS, $BASE_URL, $data_directory, $db_type, $db_name, $DB_CONNECTION;
\r
317 // first check if $DB_CONNECTION IS live
\r
318 //error_log("in connection $db_type, $db_name");
321 if($DB_CONNECTION != false) return $DB_CONNECTION;
\r
323 if($db_type == "sqlite") {
\r
324 $db_url = $db_name;
\r
325 if(!file_exists($db_name)) {
\r
326 //error_log("$db_name does not exist - problem");
327 // TODO: NEED A SETUP AGENT!
328 gwvpmini_dbCreateSQLiteStructure($db_name);
329 gwvpmini_setConfigVal("repodir", "$data_directory/repos");
\r
333 // and here we go with pdo.
\r
334 error_log("attmpting to open db, $db_type:$db_url");
\r
336 $DB_CONNECTION = new PDO("$db_type:$db_url");
\r
337 } catch(PDOException $exep) {
\r
338 error_log("execpt on db open");
\r
342 return $DB_CONNECTION;
\r
345 function gwvpmini_UpdateStatusFromConfirm($confirmhash)
347 $conn = gwvpmini_ConnectDB();
\r
349 $sql = "select count(*) from users where user_status='2:$confirmhash'";
351 $res = $conn->query($sql);
353 if(!$res) return false;
355 foreach($res as $row) {
360 $sql = "update users set user_status='0' where user_status='2:$confirmhash'";
361 return $conn->query($sql);
366 function gwvpmini_AddUser($username, $password, $fullname, $email, $desc, $level, $status)
371 $conn = gwvpmini_ConnectDB();
\r
373 $sql = "insert into 'users' values ( null, '$fullname', '".sha1($password)."', '$username', '$email', '$desc', '$level', '$status')";
\r
375 $res = $conn->query($sql);
378 $sql = "select user_id from users where user_username='$username'";
\r
379 $res = $conn->query($sql);
\r
380 if(!$res) return -1;
\r
383 foreach($res as $row) {
390 function gwvpmini_GetActivityLog($nentries = 100)
392 $conn = gwvpmini_ConnectDB();
\r
394 $sql = "select * from activity order by activity_date desc limit 100";
396 $res = $conn->query($sql);
400 foreach($res as $row) {
401 $logs[$i]["type"] = $row["activity_type"];
402 $logs[$i]["date"] = $row["activity_date"];
403 $logs[$i]["userid"] = $row["activity_user"];
404 $logs[$i]["repoid"] = $row["activity_repo"];
405 $logs[$i]["commitid"] = $row["activity_commitid"];
406 $logs[$i]["commitlog"] = $row["activity_commitlog"];
407 $logs[$i]["visibleto"] = $row["activity_visibleto"];
414 function gwvpmini_AddActivityLog($type, $userid, $repoid, $commitid, $commitlog)
417 * CREATE TABLE "activity" (
418 "activity_id" INTEGER PRIMARY KEY AUTOINCREMENT,
419 "activity_type" TEXT,
420 "activity_date" TEXT,
421 "activity_user" TEXT,
422 "activity_repo" TEXT,
423 "activity_commitid" TEXT,
424 "activity_commitlog" TEXT,
425 "activity_visibleto" TEXT
430 $conn = gwvpmini_ConnectDB();
432 // TODO: implement visibility
435 $sql = "insert into 'activity' values ( null, '$type', '".time()."', '$userid', '$repoid', '$commitid', '$commitlog', '$visibleto')";
437 error_log("SQL IS $sql");
\r
439 $res = $conn->query($sql);
\r
444 function gwvpmini_dbCreateSQLiteStructure($dbloc)
\r
447 CREATE TABLE "users" (
\r
448 "user_id" INTEGER PRIMARY KEY AUTOINCREMENT,
\r
449 "user_full_name" TEXT,
\r
450 "user_password" TEXT,
\r
451 "user_username" TEXT,
\r
456 UNIQUE(user_username)
\r
459 $initialuser_admin = '
460 insert into "users" values ( null, "Administrator", "'.sha1("password").'", "admin", "admin@localhost", "the admin", "1", "0");
\r
463 $initialuser_user = '
\r
464 insert into "users" values ( null, "User", "'.sha1("password").'", "user", "user@localhost", "the user", "0", "0");
\r
468 CREATE TABLE "repos" (
\r
469 "repos_id" INTEGER PRIMARY KEY AUTOINCREMENT,
\r
471 "repos_description" TEXT,
\r
472 "repos_owner" INTEGER,
478 // this looks like null, <repoid>, <read|visible|write>, user:<uid>|group:<gid>|authed|anon
\r
479 // where authed = any authenticated user, anon = everyone (logged in, not logged in, etc)
\r
480 // read|visible|write = can clone from repo|can see repo exists and see description but not clone from it|can push to repo
\r
481 // TODO: is this sufficient? i have to think about it
484 // type for now will only be "git"
486 // desc is a desction of the activity
487 // link is of the form "repo,reponame,repoid:user,username,useremail,userid" so it
488 // can be attached simply
489 // viewby is a simple list of uid's that should be able to see it... "r" for all registered
492 CREATE TABLE "activity" (
493 "activity_id" INTEGER PRIMARY KEY AUTOINCREMENT,
494 "activity_type" TEXT,
495 "activity_date" TEXT,
496 "activity_user" TEXT,
497 "activity_repo" TEXT,
498 "activity_commitid" TEXT,
499 "activity_commitlog" TEXT,
500 "activity_visibleto" TEXT
504 CREATE TABLE "config" (
\r
505 "config_name" TEXT,
\r
506 "config_value" TEXT
\r
510 $DB_CONNECTION = new PDO("sqlite:$dbloc");
\r
511 } catch(PDOException $exep) {
\r
512 error_log("execpt on db open");
\r
516 $DB_CONNECTION->query($usersql);
\r
517 $DB_CONNECTION->query($initialuser_admin);
518 $DB_CONNECTION->query($initialuser_user);
519 $DB_CONNECTION->query($reposql);
\r
520 $DB_CONNECTION->query($configsql);
521 $DB_CONNECTION->query($activitysql);
\r
524 function gwvpmini_getConfigVal($confname)
\r
528 CREATE TABLE "config" (
\r
529 "config_name" TEXT,
\r
530 "config_value" TEXT
\r
535 $conn = gwvpmini_ConnectDB();
\r
537 $sql = "select config_value from config where config_name='$confname'";
\r
539 $res = $conn->query($sql);
\r
542 foreach($res as $val) {
\r
543 $return = $val["config_value"];
\r
549 function gwvpmini_eraseConfigVal($confname)
\r
553 CREATE TABLE "config" (
\r
554 "config_name" TEXT,
\r
555 "config_value" TEXT
\r
560 $conn = gwvpmini_ConnectDB();
\r
562 $sql = "delete from config where config_name='$confname'";
\r
564 return $conn->query($sql);
\r
567 function gwvpmini_GetRepoId($reponame)
572 CREATE TABLE "repos" (
573 "repos_id" INTEGER PRIMARY KEY AUTOINCREMENT,
575 "repos_description" TEXT,
576 "repos_owner" INTEGER
581 $conn = gwvpmini_ConnectDB();
583 $sql = "select repos_id from repos where repos_name='$reponame'";
585 $res = $conn->query($sql);
589 foreach($res as $row) {
590 $retval = (int)$row[0];
596 function gwvpmini_GetRepoDescFromName($reponame)
\r
601 CREATE TABLE "repos" (
\r
602 "repos_id" INTEGER PRIMARY KEY AUTOINCREMENT,
\r
604 "repos_description" TEXT,
\r
605 "repos_owner" INTEGER
\r
610 $conn = gwvpmini_ConnectDB();
\r
612 $sql = "select repos_description from repos where repos_name='$reponame'";
613 error_log("desc for name sql: $sql");
\r
615 $res = $conn->query($sql);
\r
618 if(!$res) return -1;
\r
619 foreach($res as $row) {
\r
626 function gwvpmini_GetRepoOwnerDetailsFromName($reponame)
\r
631 CREATE TABLE "repos" (
\r
632 "repos_id" INTEGER PRIMARY KEY AUTOINCREMENT,
\r
634 "repos_description" TEXT,
\r
635 "repos_owner" INTEGER
\r
638 "user_id" INTEGER PRIMARY KEY AUTOINCREMENT,
639 "user_full_name" TEXT,
640 "user_password" TEXT,
641 "user_username" TEXT,
646 UNIQUE(user_username)
\r
650 $conn = gwvpmini_ConnectDB();
\r
652 $sql = "select users.* from repos,users where repos_name='$reponame' and repos_owner=user_id";
\r
654 $res = $conn->query($sql);
\r
657 if(!$res) return -1;
\r
658 foreach($res as $row) {
660 error_log("STUFF2: ".print_r($row,true));
\r
661 $retval["id"] = $row["user_id"];
662 $retval["fullname"] = $row["user_full_name"];
663 $retval["username"] = $row["user_username"];
664 $retval["email"] = $row["user_email"];
665 $retval["desc"] = $row["user_desc"];
666 $retval["level"] = $row["user_level"];
667 $retval["status"] = $row["user_status"];
\r
673 function gwvpmini_setConfigVal($confname, $confval)
\r
677 CREATE TABLE "config" (
\r
678 "config_name" TEXT,
\r
679 "config_value" TEXT
\r
683 gwvpmini_eraseConfigVal($confname);
\r
685 $conn = gwvpmini_ConnectDB();
687 $sql = "delete from config where config_name='$confname'";
688 $conn->query($sql);
\r
690 $sql = "insert into config values('$confname', '$confval')";
\r
692 return $conn->query($sql);
\r
695 function gwvpmini_AddRepo($name, $desc, $ownerid)
698 error_log("addrepo in db for $name, $desc, $ownerid");
699 $conn = gwvpmini_ConnectDB();
\r
703 $encperms = base64_encode(serialize($perms));
705 $sql = "insert into repos values (null, '$name', '$desc', '$ownerid', '$encperms', 0)";
\r
707 $conn->query($sql);
\r
710 function gwvpmini_GetUserId($username)
712 $conn = gwvpmini_ConnectDB();
\r
714 $sql = "select user_id from users where user_username='$username'";
716 error_log("userid sql $sql");
\r
718 $res = $conn->query($sql);
721 foreach($res as $row) {
728 function gwvpmini_GetUserNameFromEmail($email)
\r
730 $conn = gwvpmini_ConnectDB();
\r
732 $sql = "select user_username from users where user_email='$email'";
\r
734 error_log("username sql $sql");
\r
736 $res = $conn->query($sql);
\r
739 foreach($res as $row) {
\r
746 function gwvpmini_GetOwnedRepos($username)
\r
749 * CREATE TABLE "repos" (
750 "repos_id" INTEGER PRIMARY KEY AUTOINCREMENT,
752 "repos_description" TEXT,
753 "repos_owner" INTEGER
757 $conn = gwvpmini_ConnectDB();
760 $uid = gwvpmini_GetUserId($username);
761 $sql = "select * from repos where repos_owner='$uid'";
762 error_log("owned repos sql $sql for username $username");
763 $res = $conn->query($sql);
764 if($username == "") return false;
\r
767 foreach($res as $row) {
768 $id = $row["repos_id"];
769 $retval[$id]["name"] = $row["repos_name"];
770 $retval[$id]["desc"] = $row["repos_description"];
771 $retval[$id]["id"] = $row["repos_id"];
772 $retval[$id]["status"] = $row["repos_status"];
773 error_log(print_r($row, true));
776 error_log(print_r($retval, true));
\r
780 function gwvpmini_GetContributedRepos($username)
\r
783 * CREATE TABLE "repos" (
\r
784 "repos_id" INTEGER PRIMARY KEY AUTOINCREMENT,
\r
786 "repos_description" TEXT,
\r
787 "repos_owner" INTEGER
\r
791 $conn = gwvpmini_ConnectDB();
\r
794 $uid = gwvpmini_GetUserId($username);
\r
795 $sql = "select repos_id,repos_description,repos_perms,repos_owner,repos_status,repos_name from repos";
\r
796 $res = $conn->query($sql);
\r
797 if($username == "") return false;
\r
802 foreach($res as $row) {
803 $perms = unserialize(base64_decode($row["repos_perms"]));
804 error_log("CONTRIB: $uid for ".$row["repos_id"]." - ".print_r($perms,true));
805 if(isset($perms["$uid"])) if($perms["$uid"] > 1) {
806 $rids[$i]["id"] = $row["repos_id"];
807 $rids[$i]["desc"] = $row["repos_description"];
808 $rids[$i]["owner"] = $row["repos_owner"];
809 $rids[$i]["status"] = $row["repos_status"];
810 $rids[$i]["name"] = $row["repos_name"];
817 error_log("CONTRIBREPOS: no repos found?");
821 error_log("CONTRIBREPOS: ".print_r($retval, true));
\r
825 function gwvpmini_userLevel($id)
827 $conn = gwvpmini_ConnectDB();
829 $sql = "select user_level from users where user_id='$id'";
831 $res = $conn->query($sql);
835 foreach($res as $row) {
842 function gwvpmini_GetUsers($startat = 0, $num = 10)
844 $conn = gwvpmini_ConnectDB();
847 * CREATE TABLE "users" (
848 "user_id" INTEGER PRIMARY KEY AUTOINCREMENT,
849 "user_full_name" TEXT,
850 "user_password" TEXT,
851 "user_username" TEXT,
859 $sql = "select * from users where user_id>='$startat' order by user_id asc limit $num";
861 $res = $conn->query($sql);
864 foreach($res as $row) {
865 $id = $row["user_id"];
866 $retval[$id]["fullname"] = $row["user_full_name"];
867 $retval[$id]["username"] = $row["user_username"];
868 $retval[$id]["email"] = $row["user_email"];
869 $retval[$id]["desc"] = $row["user_desc"];
870 $retval[$id]["level"] = $row["user_level"];
871 $retval[$id]["status"] = $row["user_status"];
872 $retval[$id]["id"] = $row["user_id"];
878 function gwvpmini_findPeopleLike($search)
\r
880 $conn = gwvpmini_ConnectDB();
882 $sql = "select * from users where user_username like '%$search%' or user_full_name like '%$search%'";
\r
884 $res = $conn->query($sql);
887 error_log("SERACHUSER: $sql returned false");
890 error_log("SERACHUSER: $sql returned true");
894 foreach($res as $row) {
\r
895 $id = $row["user_id"];
\r
896 $retval[$id]["fullname"] = $row["user_full_name"];
\r
897 $retval[$id]["username"] = $row["user_username"];
\r
898 $retval[$id]["email"] = $row["user_email"];
\r
899 $retval[$id]["desc"] = $row["user_desc"];
\r
900 $retval[$id]["level"] = $row["user_level"];
\r
901 $retval[$id]["status"] = $row["user_status"];
\r
902 $retval[$id]["id"] = $row["user_id"];
\r
905 error_log("SEARCHUSER: array is ".print_r($retval, true));
\r
909 function gwvpmini_GetRepos($startat=0, $num=200)
\r
911 $conn = gwvpmini_ConnectDB();
\r
914 * CREATE TABLE "repos" (
915 "repos_id" INTEGER PRIMARY KEY AUTOINCREMENT,
917 "repos_description" TEXT,
918 "repos_owner" INTEGER
923 $sql = "select * from repos where repos_id > '$startat' order by repos_id asc limit $num";
\r
925 $res = $conn->query($sql);
\r
928 foreach($res as $row) {
\r
929 $id = $row["repos_id"];
\r
930 $retval[$id]["name"] = $row["repos_name"];
\r
931 $retval[$id]["desc"] = $row["repos_description"];
\r
932 $retval[$id]["owner"] = $row["repos_owner"];
\r
933 $retval[$id]["id"] = $row["repos_id"];
934 $retval[$id]["status"] = $row["repos_status"];
942 function gwvpmini_findReposLike($search)
\r
944 $conn = gwvpmini_ConnectDB();
947 * CREATE TABLE "repos" (
948 "repos_id" INTEGER PRIMARY KEY AUTOINCREMENT,
950 "repos_description" TEXT,
951 "repos_owner" INTEGER
956 $sql = "select * from repos where repos_name like '%$search%' or repos_description like '%$search%'";
958 $res = $conn->query($sql);
960 if(!$res) return false;
963 foreach($res as $row) {
964 $id = $row["repos_id"];
965 $retval[$id]["name"] = $row["repos_name"];
966 $retval[$id]["desc"] = $row["repos_description"];
967 $retval[$id]["owner"] = $row["repos_owner"];
968 $retval[$id]["id"] = $row["repos_id"];
969 $retval[$id]["status"] = $row["repos_status"];
976 function gwvpmini_GetNRepos()
978 $conn = gwvpmini_ConnectDB();
980 $sql = "select count(*) from repos";
982 $res = $conn->query($sql);
985 foreach($res as $row) {
993 function gwvpmini_GetNUsers()
\r
995 $conn = gwvpmini_ConnectDB();
\r
997 $sql = "select count(*) from users";
\r
999 $res = $conn->query($sql);
\r
1002 foreach($res as $row) {
\r
1003 $retval = $row[0];
\r