[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