Skip to content

Commit

Permalink
Header/license fix or Version update+minor formatting fix, or both
Browse files Browse the repository at this point in the history
  • Loading branch information
@docelic
docelic committed Feb 9, 2005
1 parent be78497 commit 41e2981
Show file tree
Hide file tree
Showing 95 changed files with 515 additions and 66 deletions.
7 changes: 6 additions & 1 deletion code/SystemTag/accounting.coretag
View file
@@ -1,5 +1,10 @@
UserTag accounting Order function
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: accounting.coretag,v 1.3 2005-02-09 13:39:41 docelic Exp $

UserTag accounting Order function
UserTag accounting addAttr
UserTag accounting Version $Revision: 1.3 $
UserTag accounting Routine <<EOR
my %account_super = (qw/
noparts_update 1
Expand Down
5 changes: 5 additions & 0 deletions code/SystemTag/area.coretag
View file
@@ -1,5 +1,10 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: area.coretag,v 1.3 2005-02-09 13:39:41 docelic Exp $

UserTag area Order href arg
UserTag area addAttr
UserTag area Implicit secure secure
UserTag area PosNumber 2
UserTag area Version $Revision: 1.3 $
UserTag area MapRoutine Vend::Interpolate::tag_area
7 changes: 6 additions & 1 deletion code/SystemTag/assign.coretag
View file
@@ -1,6 +1,11 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: assign.coretag,v 1.3 2005-02-09 13:39:41 docelic Exp $

UserTag assign addAttr
UserTag assign PosNumber 0
UserTag assign Routine <<EOR
UserTag assign Version $Revision: 1.3 $
UserTag assign Routine <<EOR
my %_assignable = (qw/
salestax 1
shipping 1
Expand Down
10 changes: 8 additions & 2 deletions code/SystemTag/attr_list.coretag
View file
@@ -1,7 +1,12 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: attr_list.coretag,v 1.5 2005-02-09 13:39:41 docelic Exp $

UserTag attr-list addAttr
UserTag attr-list hasEndTag
UserTag attr-list PosNumber 0
UserTag attr-list PosNumber 0
UserTag attr-list noRearrange
UserTag attr-list Version $Revision: 1.5 $
UserTag attr-list Routine <<EOR
sub {
my ($opt, $body) = @_;
Expand All @@ -14,8 +19,9 @@ EOR

UserTag uc-attr-list addAttr
UserTag uc-attr-list hasEndTag
UserTag uc-attr-list PosNumber 0
UserTag uc-attr-list PosNumber 0
UserTag uc-attr-list noRearrange
UserTag uc-attr-list Version $Revision: 1.5 $
UserTag uc-attr-list Routine <<EOR
sub {
my ($opt, $body) = @_;
Expand Down
3 changes: 2 additions & 1 deletion code/SystemTag/banner.coretag
View file
@@ -1,10 +1,11 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: banner.coretag,v 1.3 2004-10-16 11:56:46 docelic Exp $
# $Id: banner.coretag,v 1.4 2005-02-09 13:39:41 docelic Exp $

UserTag banner Order category
UserTag banner addAttr
UserTag banner PosNumber 1
UserTag banner Version $Revision: 1.4 $
UserTag banner Routine <<EOR
sub {
my ($place, $opt) = @_;
Expand Down
5 changes: 5 additions & 0 deletions code/SystemTag/calc.coretag
View file
@@ -1,3 +1,8 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: calc.coretag,v 1.2 2005-02-09 13:39:41 docelic Exp $

UserTag calc hasEndTag
UserTag calc Interpolate
UserTag calc Version $Revision: 1.2 $
UserTag calc MapRoutine Vend::Interpolate::tag_calc
5 changes: 5 additions & 0 deletions code/SystemTag/calcn.coretag
View file
@@ -1,2 +1,7 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: calcn.coretag,v 1.2 2005-02-09 13:39:41 docelic Exp $

UserTag calcn hasEndTag
UserTag calcn Version $Revision: 1.2 $
UserTag calcn MapRoutine Vend::Interpolate::tag_calc
3 changes: 2 additions & 1 deletion code/SystemTag/cart.coretag
View file
@@ -1,7 +1,8 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: cart.coretag,v 1.3 2004-10-16 21:50:43 docelic Exp $
# $Id: cart.coretag,v 1.4 2005-02-09 13:39:41 docelic Exp $

UserTag cart Order name
UserTag cart PosNumber 1
UserTag cart Version $Revision: 1.4 $
UserTag cart MapRoutine Vend::Interpolate::tag_cart
7 changes: 5 additions & 2 deletions code/SystemTag/catch.coretag
View file
@@ -1,8 +1,11 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: catch.coretag,v 1.5 2005-02-09 13:39:41 docelic Exp $

UserTag catch Order label
UserTag catch addAttr
UserTag catch hasEndTag
#UserTag catch Test <<EOT
#EOT
UserTag catch Version $Revision: 1.5 $
UserTag catch Routine <<EOR
sub {
my ($label, $opt, $body) = @_;
Expand Down
5 changes: 3 additions & 2 deletions code/SystemTag/cgi.coretag
View file
@@ -1,11 +1,12 @@
# Copyright 2004 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: cgi.coretag,v 1.3 2004-10-16 13:24:00 docelic Exp $
# $Id: cgi.coretag,v 1.4 2005-02-09 13:39:41 docelic Exp $

UserTag cgi Order name
UserTag cgi addAttr
UserTag cgi PosNumber 1
UserTag cgi Routine <<EOR
UserTag cgi Version $Revision: 1.4 $
UserTag cgi Routine <<EOR
sub {
my($var, $opt) = @_;
my($value);
Expand Down
5 changes: 5 additions & 0 deletions code/SystemTag/charge.coretag
View file
@@ -1,4 +1,9 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: charge.coretag,v 1.3 2005-02-09 13:39:41 docelic Exp $

UserTag charge Order route
UserTag charge addAttr
UserTag charge PosNumber 1
UserTag charge Version $Revision: 1.3 $
UserTag charge MapRoutine Vend::Payment::charge
5 changes: 5 additions & 0 deletions code/SystemTag/checked.coretag
View file
@@ -1,8 +1,13 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: checked.coretag,v 1.6 2005-02-09 13:39:41 docelic Exp $

UserTag checked Order name value
UserTag checked addAttr
UserTag checked Implicit multiple multiple
UserTag checked Implicit default default
UserTag checked PosNumber 2
UserTag checked Version $Revision: 1.6 $
UserTag checked Routine <<EOR
sub {
my ($field,$value,$opt) = @_;
Expand Down
5 changes: 5 additions & 0 deletions code/SystemTag/control.coretag
View file
@@ -1,6 +1,11 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: control.coretag,v 1.2 2005-02-09 13:39:41 docelic Exp $

UserTag control Order name default
UserTag control addAttr
UserTag control PosNumber 2
UserTag control Version $Revision: 1.2 $
UserTag control Routine <<EOR
sub {
my ($name, $default, $opt) = @_;
Expand Down
5 changes: 5 additions & 0 deletions code/SystemTag/control_set.coretag
View file
@@ -1,7 +1,12 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: control_set.coretag,v 1.2 2005-02-09 13:39:41 docelic Exp $

UserTag control-set Order index
UserTag control-set addAttr
UserTag control-set hasEndTag
UserTag control-set PosNumber 1
UserTag control-set Version $Revision: 1.2 $
UserTag control-set Routine <<EOR
# Batch sets a set of controls without affecting Scratch
# Increments the index afterwards unless index is defined
Expand Down
7 changes: 6 additions & 1 deletion code/SystemTag/counter.coretag
View file
@@ -1,6 +1,11 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: counter.coretag,v 1.4 2005-02-09 13:39:42 docelic Exp $

UserTag counter Order file
UserTag counter addAttr
UserTag counter attrAlias name file
UserTag counter PosNumber 1
UserTag fcounter Alias counter
UserTag fcounter Alias counter
UserTag counter Version $Revision: 1.4 $
UserTag counter MapRoutine Vend::Interpolate::tag_counter
5 changes: 5 additions & 0 deletions code/SystemTag/currency.coretag
View file
@@ -1,8 +1,13 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: currency.coretag,v 1.3 2005-02-09 13:39:42 docelic Exp $

UserTag currency Order convert noformat
UserTag currency hasEndTag
UserTag currency Interpolate
UserTag currency addAttr
UserTag currency PosNumber 2
UserTag currency Version $Revision: 1.3 $
UserTag currency Routine <<EOR
sub {
my($convert,$noformat,$opt,$amount) = @_;
Expand Down
5 changes: 5 additions & 0 deletions code/SystemTag/data.coretag
View file
@@ -1,3 +1,7 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: data.coretag,v 1.2 2005-02-09 13:39:42 docelic Exp $

UserTag data Order table field key
UserTag data addAttr
UserTag data attrAlias column field
Expand All @@ -9,4 +13,5 @@ UserTag data attrAlias row key
UserTag data attrAlias name field
UserTag data Implicit increment increment
UserTag data PosNumber 3
UserTag data Version $Revision: 1.2 $
UserTag data MapRoutine Vend::Interpolate::tag_data
5 changes: 5 additions & 0 deletions code/SystemTag/debug.coretag
View file
@@ -1,3 +1,8 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: debug.coretag,v 1.2 2005-02-09 13:39:42 docelic Exp $

UserTag debug hasEndTag
UserTag debug Interpolate
UserTag debug Version $Revision: 1.2 $
UserTag debug MapRoutine Vend::Util::logDebug
5 changes: 5 additions & 0 deletions code/SystemTag/default.coretag
View file
@@ -1,6 +1,11 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: default.coretag,v 1.3 2005-02-09 13:39:42 docelic Exp $

UserTag default Order name default
UserTag default addAttr
UserTag default PosNumber 2
UserTag default Version $Revision: 1.3 $
UserTag default Routine <<EOR
# Returns the text of a user entered field named VAR.
# Same as tag [value name=name default="string"] except
Expand Down
10 changes: 7 additions & 3 deletions code/SystemTag/deliver.coretag
View file
@@ -1,8 +1,12 @@
UserTag deliver Order type
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: deliver.coretag,v 1.6 2005-02-09 13:39:42 docelic Exp $

UserTag deliver Order type
UserTag deliver HasEndTag
UserTag deliver addAttr
UserTag deliver Version $Revision: 1.5 $
UserTag deliver Routine <<EOR
UserTag deliver Version $Revision: 1.6 $
UserTag deliver Routine <<EOR
sub {
my ($type, $opt, $body) = @_;
my $out;
Expand Down
5 changes: 5 additions & 0 deletions code/SystemTag/description.coretag
View file
@@ -1,3 +1,8 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: description.coretag,v 1.2 2005-02-09 13:39:42 docelic Exp $

UserTag description Order code base
UserTag description PosNumber 2
UserTag description Version $Revision: 1.2 $
UserTag description MapRoutine Vend::Data::product_description
3 changes: 2 additions & 1 deletion code/SystemTag/discount.coretag
View file
@@ -1,12 +1,13 @@
# Copyright 2002-2005 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: discount.coretag,v 1.4 2005-01-25 01:02:58 jon Exp $
# $Id: discount.coretag,v 1.5 2005-02-09 13:39:42 docelic Exp $

UserTag discount Order code
UserTag discount AddAttr
UserTag discount attrAlias space discount_space
UserTag discount hasEndTag
UserTag discount PosNumber 1
UserTag discount Version $Revision: 1.5 $
UserTag discount Routine <<EOR

# Sets the value of a discount field
Expand Down
45 changes: 26 additions & 19 deletions code/SystemTag/discount_space.coretag
View file
@@ -1,24 +1,31 @@
# The discount-space is rather equivalent to the values-space functionality.
# Interchange keeps discount information in a single hash at $Vend::Session->{discount}.
# This is fine except when you start using multiple shopping carts to represent different
# portions of the store and fundamentally different transactions; any common item codes
# will result in one cart's discounts leaking into that of the other cart...
#
# Consequently, we can use a discount space to give a different namespace to various discounts.
# This can be used in parallel with mv_cartname for different shopping carts.
# Set up a master hash of different discount namespaces in the session. Treat the default one
# as 'main' (like Interchange does with the cart). When discount space is called and a name
# is given, point the $Vend::Session->{discount} to the appropriate hashref held in this master
# hash.

# Some options:
# clear - this will empty the discounts for the space specified, after switching to that space.
# current - this will not change the namespace; it simply returns the current space name.

UserTag discount_space order name
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: discount_space.coretag,v 1.2 2005-02-09 13:39:42 docelic Exp $

UserTag discount_space Documentation <<EOF
The discount-space is rather equivalent to the values-space functionality.
Interchange keeps discount information in a single hash at $Vend::Session->{discount}.
This is fine except when you start using multiple shopping carts to represent different
portions of the store and fundamentally different transactions; any common item codes
will result in one cart's discounts leaking into that of the other cart...

Consequently, we can use a discount space to give a different namespace to various discounts.
This can be used in parallel with mv_cartname for different shopping carts.
Set up a master hash of different discount namespaces in the session. Treat the default one
as 'main' (like Interchange does with the cart). When discount space is called and a name
is given, point the $Vend::Session->{discount} to the appropriate hashref held in this master
hash.

Some options:
clear - this will empty the discounts for the space specified, after switching to that space.
current - this will not change the namespace; it simply returns the current space name.
EOF

UserTag discount_space order name
UserTag discount_space AttrAlias space name
UserTag discount_space AddAttr
UserTag discount_space Routine <<EOF
UserTag discount_space Version $Revision: 1.2 $
UserTag discount_space Routine <<EOF
sub {
my ($namespace, $opt) = @_;
$namespace ||= 'main';
Expand Down
5 changes: 5 additions & 0 deletions code/SystemTag/dump.coretag
View file
@@ -1,4 +1,9 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: dump.coretag,v 1.3 2005-02-09 13:39:42 docelic Exp $

UserTag dump Order key
UserTag dump addAttr
UserTag dump PosNumber 1
UserTag dump Version $Revision: 1.3 $
UserTag dump MapRoutine ::full_dump
5 changes: 5 additions & 0 deletions code/SystemTag/either.coretag
View file
@@ -1,5 +1,10 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: either.coretag,v 1.2 2005-02-09 13:39:42 docelic Exp $

UserTag either hasEndTag
UserTag either PosNumber 0
UserTag either Version $Revision: 1.2 $
UserTag either Routine <<EOR
sub {
my @ary = split /\[or\]/, shift;
Expand Down
6 changes: 5 additions & 1 deletion code/SystemTag/error.coretag
View file
@@ -1,9 +1,13 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: error.coretag,v 1.4 2005-02-09 13:39:42 docelic Exp $

### This is in package Vend::Interpolate, and may make reference
### to variables in that module
UserTag error Order name
UserTag error addAttr
UserTag error PosNumber 1
UserTag error Version $Revision: 1.3 $
UserTag error Version $Revision: 1.4 $
UserTag error Routine <<EOR
sub set_error {
my ($error, $var, $opt) = @_;
Expand Down
5 changes: 5 additions & 0 deletions code/SystemTag/export.coretag
View file
@@ -1,6 +1,11 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: export.coretag,v 1.3 2005-02-09 13:39:42 docelic Exp $

UserTag export Order table
UserTag export addAttr
UserTag export attrAlias base table
UserTag export attrAlias database table
UserTag export PosNumber 1
UserTag export Version $Revision: 1.3 $
UserTag export MapRoutine Vend::Interpolate::export
5 changes: 5 additions & 0 deletions code/SystemTag/field.coretag
View file
@@ -1,8 +1,13 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: field.coretag,v 1.2 2005-02-09 13:39:42 docelic Exp $

UserTag field Order name code
UserTag field attrAlias column name
UserTag field attrAlias col name
UserTag field attrAlias row code
UserTag field attrAlias field name
UserTag field attrAlias key code
UserTag field PosNumber 2
UserTag field Version $Revision: 1.2 $
UserTag field MapRoutine Vend::Data::product_field

0 comments on commit 41e2981

Please sign in to comment.