* Copyright (c) 1999-2001, PostgreSQL Global Development Group
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/backend/commands/comment.c,v 1.43 2002/04/19 16:36:08 tgl Exp $
+ * $Header: /cvsroot/pgsql/src/backend/commands/comment.c,v 1.44 2002/04/24 02:50:30 momjian Exp $
*
*-------------------------------------------------------------------------
*/
elog(ERROR, "CommentDatabase: database name may not be qualified");
database = strVal(lfirst(qualname));
+ /* Only allow comments on the current database */
+ if (strcmp(database, DatabaseName) != 0)
+ elog(ERROR, "Database comments may only be applied to the current database");
+
/* First find the tuple in pg_database for the database */
pg_database = heap_openr(DatabaseRelationName, AccessShareLock);