[interchange-cvs] interchange - jon modified lib/Vend/UserDB.pm
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Fri Jun 6 19:56:01 2003
User: jon
Date: 2003-06-06 23:55:28 GMT
Modified: lib/Vend UserDB.pm
Log:
Correct some outdated usage comments.
Revision Changes Path
2.17 +6 -16 interchange/lib/Vend/UserDB.pm
rev 2.17, prev_rev 2.16
Index: UserDB.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/UserDB.pm,v
retrieving revision 2.16
retrieving revision 2.17
diff -u -u -r2.16 -r2.17
--- UserDB.pm 7 May 2003 17:25:19 -0000 2.16
+++ UserDB.pm 6 Jun 2003 23:55:28 -0000 2.17
@@ -1,8 +1,9 @@
# Vend::UserDB - Interchange user database functions
#
-# $Id: UserDB.pm,v 2.16 2003/05/07 17:25:19 racke Exp $
+# $Id: UserDB.pm,v 2.17 2003/06/06 23:55:28 jon Exp $
#
-# Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
+# Copyright (C) 2003 Interchange Development Group
+# Copyright (C) 1996-2002 Red Hat, Inc.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@@ -16,7 +17,7 @@
package Vend::UserDB;
-$VERSION = substr(q$Revision: 2.16 $, 10);
+$VERSION = substr(q$Revision: 2.17 $, 10);
use vars qw!
$VERSION
@@ -47,19 +48,8 @@
previous session without the requirement for a "cookie" or other persistent
session information.
-It is object-oriented and called via Perl subroutine. The main software
-is contained in a module, and is called from Interchange with a GlobalSub.
-The GlobalSub would take the form:
-
- GlobalSub <<EOF
- sub userdb {
- my($function, %options) = @_;
- use Vend::UserDB;
- $obj = new Vend::User->DB %options;
- $obj->$function
- or return $obj->{ERROR};
- return $obj->{MESSAGE};
- }
+It is object-oriented and called via the [userdb] usertag, which calls the
+userdb subroutine.
It restores and manipulates the form values normally stored in the user session
values -- the ones set in forms and read through the C<[value variable]> tags.