[interchange-cvs] interchange - racke modified 2 files
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Mon Jan 26 09:49:11 UTC 2009
User: racke
Date: 2009-01-26 09:49:11 GMT
Modified: . WHATSNEW-5.7
Modified: code/UI_Tag run_profile.coretag
Log:
[run-profile] now accepts ref attribute to check an arbitrary hash.
Revision Changes Path
2.24 interchange/WHATSNEW-5.7
rev 2.24, prev_rev 2.23
Index: WHATSNEW-5.7
===================================================================
RCS file: /var/cvs/interchange/WHATSNEW-5.7,v
retrieving revision 2.23
retrieving revision 2.24
diff -u -r2.23 -r2.24
--- WHATSNEW-5.7 15 Jan 2009 02:08:04 -0000 2.23
+++ WHATSNEW-5.7 26 Jan 2009 09:49:11 -0000 2.24
@@ -32,6 +32,11 @@
* Add new SessionCookieSecure boolean catalog directive. When enabled, makes
session cookie set in https usable only in https.
+UserTag
+-------
+
+* [run-profile] now accepts ref attribute to check an arbitrary hash.
+
------------------------------------------------------------------------------
1.7 interchange/code/UI_Tag/run_profile.coretag
rev 1.7, prev_rev 1.6
Index: run_profile.coretag
===================================================================
RCS file: /var/cvs/interchange/code/UI_Tag/run_profile.coretag,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- run_profile.coretag 10 Jul 2008 14:56:31 -0000 1.6
+++ run_profile.coretag 26 Jan 2009 09:49:11 -0000 1.7
@@ -1,22 +1,38 @@
-# Copyright 2002-2007 Interchange Development Group and others
+# Copyright 2002-2009 Interchange Development Group and others
#
# 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
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version. See the LICENSE file for details.
#
-# $Id: run_profile.coretag,v 1.6 2008-07-10 14:56:31 racke Exp $
+# $Id: run_profile.coretag,v 1.7 2009-01-26 09:49:11 racke Exp $
UserTag run-profile Order check cgi profile name
UserTag run-profile addAttr
-UserTag run-profile Version $Revision: 1.6 $
+UserTag run-profile Version $Revision: 1.7 $
UserTag run-profile Routine <<EOR
sub {
my ($check, $cgi, $profile, $name, $opt) = @_;
#::logDebug("call check $check");
- my $ref = $cgi ? (\%CGI::values) : $::Values;
+ my $ref;
my $pname = $name;
+ if ($opt->{ref}) {
+ if (ref($opt->{ref}) eq 'HASH') {
+ $ref = $opt->{ref};
+ }
+ else {
+ # error message
+ ::logError("Invalid ref parameter provided for profile %s", $pname || $check);
+ }
+ }
+ elsif ($cgi) {
+ $ref = \%CGI::values;
+ }
+ else {
+ $ref = $::Values;
+ }
+
unless ($pname) {
# check scratch for profile if none specified
$profile = $Scratch->{"profile_$check"} unless $profile;
More information about the interchange-cvs
mailing list