Permalink
Browse files

Header/license fix or Version update+minor formatting fix, or both

  • Loading branch information...
docelic committed Feb 9, 2005
1 parent be78497 commit 41e2981f46d57413f57afca460cf4089685064bd
Showing with 515 additions and 66 deletions.
  1. +6 −1 code/SystemTag/accounting.coretag
  2. +5 −0 code/SystemTag/area.coretag
  3. +6 −1 code/SystemTag/assign.coretag
  4. +8 −2 code/SystemTag/attr_list.coretag
  5. +2 −1 code/SystemTag/banner.coretag
  6. +5 −0 code/SystemTag/calc.coretag
  7. +5 −0 code/SystemTag/calcn.coretag
  8. +2 −1 code/SystemTag/cart.coretag
  9. +5 −2 code/SystemTag/catch.coretag
  10. +3 −2 code/SystemTag/cgi.coretag
  11. +5 −0 code/SystemTag/charge.coretag
  12. +5 −0 code/SystemTag/checked.coretag
  13. +5 −0 code/SystemTag/control.coretag
  14. +5 −0 code/SystemTag/control_set.coretag
  15. +6 −1 code/SystemTag/counter.coretag
  16. +5 −0 code/SystemTag/currency.coretag
  17. +5 −0 code/SystemTag/data.coretag
  18. +5 −0 code/SystemTag/debug.coretag
  19. +5 −0 code/SystemTag/default.coretag
  20. +7 −3 code/SystemTag/deliver.coretag
  21. +5 −0 code/SystemTag/description.coretag
  22. +2 −1 code/SystemTag/discount.coretag
  23. +26 −19 code/SystemTag/discount_space.coretag
  24. +5 −0 code/SystemTag/dump.coretag
  25. +5 −0 code/SystemTag/either.coretag
  26. +5 −1 code/SystemTag/error.coretag
  27. +5 −0 code/SystemTag/export.coretag
  28. +5 −0 code/SystemTag/field.coretag
  29. +6 −1 code/SystemTag/file.coretag
  30. +5 −0 code/SystemTag/filter.coretag
  31. +5 −0 code/SystemTag/flag.coretag
  32. +5 −0 code/SystemTag/fly_list.coretag
  33. +7 −2 code/SystemTag/fly_tax.coretag
  34. +5 −0 code/SystemTag/handling.coretag
  35. +6 −1 code/SystemTag/harness.coretag
  36. +5 −0 code/SystemTag/html_table.coretag
  37. +4 −3 code/SystemTag/image.tag
  38. +5 −0 code/SystemTag/import.coretag
  39. +5 −1 code/SystemTag/include.coretag
  40. +5 −0 code/SystemTag/index.coretag
  41. +5 −0 code/SystemTag/input_filter.coretag
  42. +5 −0 code/SystemTag/item_list.coretag
  43. +5 −0 code/SystemTag/levies.coretag
  44. +5 −0 code/SystemTag/levy_list.coretag
  45. +5 −0 code/SystemTag/log.coretag
  46. +5 −0 code/SystemTag/loop.coretag
  47. +5 −0 code/SystemTag/mail.coretag
  48. +7 −2 code/SystemTag/menu.coretag
  49. +6 −1 code/SystemTag/msg.coretag
  50. +5 −0 code/SystemTag/mvasp.coretag
  51. +5 −0 code/SystemTag/nitems.coretag
  52. +5 −0 code/SystemTag/onfly.coretag
  53. +5 −0 code/SystemTag/options.coretag
  54. +5 −0 code/SystemTag/order.coretag
  55. +7 −2 code/SystemTag/output_to.tag
  56. +5 −0 code/SystemTag/page.coretag
  57. +5 −0 code/SystemTag/parse_locale.coretag
  58. +5 −0 code/SystemTag/perl.coretag
  59. +7 −2 code/SystemTag/price.coretag
  60. +6 −1 code/SystemTag/process.coretag
  61. +5 −0 code/SystemTag/profile.coretag
  62. +5 −0 code/SystemTag/query.coretag
  63. +5 −0 code/SystemTag/read_cookie.coretag
  64. +5 −0 code/SystemTag/record.coretag
  65. +5 −0 code/SystemTag/region.coretag
  66. +6 −1 code/SystemTag/row.coretag
  67. +6 −1 code/SystemTag/salestax.coretag
  68. +7 −2 code/SystemTag/scratch.coretag
  69. +6 −1 code/SystemTag/scratchd.coretag
  70. +5 −0 code/SystemTag/search_region.coretag
  71. +6 −1 code/SystemTag/selected.coretag
  72. +5 −0 code/SystemTag/set.coretag
  73. +5 −0 code/SystemTag/set_cookie.coretag
  74. +5 −0 code/SystemTag/seti.coretag
  75. +5 −0 code/SystemTag/setlocale.coretag
  76. +5 −0 code/SystemTag/shipping.coretag
  77. +5 −0 code/SystemTag/shipping_desc.coretag
  78. +6 −0 code/SystemTag/soap.coretag
  79. +5 −0 code/SystemTag/sql.coretag
  80. +5 −0 code/SystemTag/strip.coretag
  81. +7 −2 code/SystemTag/subtotal.coretag
  82. +5 −0 code/SystemTag/tag.coretag
  83. +5 −0 code/SystemTag/time.coretag
  84. +5 −0 code/SystemTag/timed_build.coretag
  85. +5 −0 code/SystemTag/tmp.coretag
  86. +5 −0 code/SystemTag/tmpn.coretag
  87. +6 −1 code/SystemTag/total_cost.coretag
  88. +6 −2 code/SystemTag/tree.coretag
  89. +5 −0 code/SystemTag/try.coretag
  90. +7 −2 code/SystemTag/unpack.coretag
  91. +5 −0 code/SystemTag/update.coretag
  92. +5 −0 code/SystemTag/userdb.coretag
  93. +2 −1 code/SystemTag/value.coretag
  94. +5 −0 code/SystemTag/value_extended.coretag
  95. +6 −1 code/SystemTag/warnings.coretag
@@ -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
@@ -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
@@ -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
@@ -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) = @_;
@@ -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) = @_;
@@ -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) = @_;
@@ -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
@@ -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
@@ -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
@@ -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) = @_;
@@ -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);
@@ -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
@@ -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) = @_;
@@ -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) = @_;
@@ -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
@@ -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
@@ -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) = @_;
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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;
@@ -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
@@ -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
@@ -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';
@@ -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
@@ -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;
@@ -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) = @_;
@@ -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
@@ -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
Oops, something went wrong.

0 comments on commit 41e2981

Please sign in to comment.