# 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. UserTag run-profile Order check cgi profile name UserTag run-profile addAttr UserTag run-profile Version 1.7 UserTag run-profile Routine <{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; #::logDebug("PROFILE(" . $Tag->var('MV_PAGE',1) . "):***$profile***"); # test passes if no profile exists return 1 if ! $profile; $opt->{no_error} = 1 unless defined $opt->{no_error}; $pname = 'tmp_profile.' . $Vend::Session->{id}; #Debug("running check $check, pname=$pname profile=$profile"); $profile .= "\n&fatal=1\n"; $profile = "&noerror=1\n$profile" if $opt->{no_error}; $profile = "&overwrite=1\n$profile" if $opt->{overwrite_error}; $::Scratch->{$pname} = $profile; } my ($status) = ::check_order($pname, $ref); delete $::Scratch->{$pname} unless $name; return is_yes($opt->{hide}) ? undef : $status; } EOR