process-target —
Attribute | Pos. | Req. | Default | Description |
---|---|---|---|---|
interpolate | 0 | interpolate output? | ||
hide | 0 | Hide the tag return value? |
Interchange 5.9.0:
Source: code/SystemTag/process.coretag
Lines: 59
# Copyright 2002-2007 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: process.coretag,v 1.13 2007-10-31 11:25:53 kwalsh Exp $ UserTag process-target Alias process UserTag process-order Alias process UserTag process Order target secure UserTag process addAttr UserTag process Version $Revision: 1.13 $ UserTag process Routine <<EOR # Returns the href to process the completed order form or do the search. sub { my($target,$secure,$opt) = @_; $secure = defined $secure ? $secure : $CGI::secure; my $page = $opt->{href} || $Vend::Cfg->{ProcessPage}; $opt->{add_dot_html} = $::Scratch->{mv_add_dot_html} unless defined $opt->{add_dot_html}; if($opt->{download_name}) { $page .= "/$opt->{download_name}"; } elsif (Vend::Util::is_yes($opt->{add_dot_html})) { $page .= '.html' unless $page =~ m{(?:/|\.html?)$}; } my $url; if($secure) { $url = $Vend::Cfg->{SecurePostURL} || $Vend::Cfg->{SecureURL}; } else { $url = $Vend::Cfg->{PostURL} || $Vend::Cfg->{VendURL}; } $url =~ s,/*$,/,; $url .= $page; if($Global::TolerateGet and ! $opt->{no_session}) { my @args; push @args, "$::VN->{mv_session_id}=$Vend::SessionID" unless $::Scratch->{no_session_id}; push @args, "$::VN->{mv_pc}=" . ++$Vend::Session->{pageCount} unless $::Scratch->{no_count}; push @args, "$::VN->{mv_cat}=" . ++$Vend::Cat if $Vend::VirtualCat; if(@args) { $url .= '?'; $url .= join($Global::UrlJoiner, @args); } } return $url unless $target; return qq{$url" target="$target}; } EOR