[interchange-cvs] interchange - docelic modified 32 files
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Thu Feb 10 09:38:40 EST 2005
User: docelic
Date: 2005-02-10 14:38:40 GMT
Modified: code/UserTag bar_button.tag button.tag capture_page.tag
Modified: component.tag convert_date.tag css.tag db_date.tag
Modified: delete_cart.tag email.tag email_raw.tag env.tag
Modified: fedex_query.tag formel.tag fortune.tag forum.tag
Modified: get_url.tag history_scan.tag load_cart.tag loc.tag
Modified: page_meta.tag rand.tag report_table.tag
Modified: save_cart.tag summary.tag table_organize.tag
Modified: title_bar.tag ups_query.tag usertrack.tag
Modified: usps_query.tag values_space.tag var.tag weight.tag
Log:
Header/license fix or Version update+minor formatting fix, or both
Revision Changes Path
1.3 +3 -3 interchange/code/UserTag/bar_button.tag
rev 1.3, prev_rev 1.2
Index: bar_button.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/bar_button.tag,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- bar_button.tag 1 Oct 2004 20:38:33 -0000 1.2
+++ bar_button.tag 10 Feb 2005 14:38:39 -0000 1.3
@@ -1,10 +1,11 @@
# Copyright 2003 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: bar_button.tag,v 1.2 2004/10/01 20:38:33 docelic Exp $
+# $Id: bar_button.tag,v 1.3 2005/02/10 14:38:39 docelic Exp $
-UserTag bar-button Order page current
+UserTag bar-button Order page current
UserTag bar-button PosNumber 2
UserTag bar-button HasEndTag 1
+UserTag bar-button Version $Revision: 1.3 $
UserTag bar-button Routine <<EOR
sub {
use strict;
@@ -17,4 +18,3 @@
return $alt;
}
EOR
-
1.15 +4 -4 interchange/code/UserTag/button.tag
rev 1.15, prev_rev 1.14
Index: button.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/button.tag,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- button.tag 24 Sep 2004 15:30:23 -0000 1.14
+++ button.tag 10 Feb 2005 14:38:39 -0000 1.15
@@ -1,12 +1,13 @@
# Copyright 2002, 2004 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: button.tag,v 1.14 2004/09/24 15:30:23 docelic Exp $
+# $Id: button.tag,v 1.15 2005/02/10 14:38:39 docelic Exp $
-UserTag button Order name src text
+UserTag button Order name src text
UserTag button addAttr
UserTag button attrAlias value text
UserTag button hasEndTag
-UserTag button Routine <<EOR
+UserTag button Version $Revision: 1.15 $
+UserTag button Routine <<EOR
sub {
my ($name, $src, $text, $opt, $action) = @_;
@@ -225,4 +226,3 @@
}
EOR
-
1.7 +3 -3 interchange/code/UserTag/capture_page.tag
rev 1.7, prev_rev 1.6
Index: capture_page.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/capture_page.tag,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- capture_page.tag 1 Oct 2004 20:37:30 -0000 1.6
+++ capture_page.tag 10 Feb 2005 14:38:39 -0000 1.7
@@ -1,9 +1,10 @@
# Copyright 2003 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: capture_page.tag,v 1.6 2004/10/01 20:37:30 docelic Exp $
+# $Id: capture_page.tag,v 1.7 2005/02/10 14:38:39 docelic Exp $
-UserTag capture_page Order page file
+UserTag capture_page Order page file
UserTag capture_page addAttr
+UserTag capture_page Version $Revision: 1.7 $
UserTag capture_page Routine <<EOR
sub {
my ($page, $file, $opt) = @_;
@@ -43,4 +44,3 @@
return $opt->{hide} ? '' : $retval;
}
EOR
-
1.7 +7 -2 interchange/code/UserTag/component.tag
rev 1.7, prev_rev 1.6
Index: component.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/component.tag,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- component.tag 2 May 2003 19:54:38 -0000 1.6
+++ component.tag 10 Feb 2005 14:38:39 -0000 1.7
@@ -1,7 +1,12 @@
-UserTag component Order component
+# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
+# Licensed under the GNU GPL v2. See file LICENSE for details.
+# $Id: component.tag,v 1.7 2005/02/10 14:38:39 docelic Exp $
+
+UserTag component Order component
UserTag component addAttr
UserTag component NoReparse 1
-UserTag component Routine <<EOR
+UserTag component Version $Revision: 1.7 $
+UserTag component Routine <<EOR
sub {
my ($name, $opt) = @_;
1.5 +10 -6 interchange/code/UserTag/convert_date.tag
rev 1.5, prev_rev 1.4
Index: convert_date.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/convert_date.tag,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- convert_date.tag 4 Mar 2004 22:02:30 -0000 1.4
+++ convert_date.tag 10 Feb 2005 14:38:39 -0000 1.5
@@ -1,11 +1,16 @@
-UserTag convert-date Order adjust
-UserTag convert-date PosNumber 1
+# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
+# Licensed under the GNU GPL v2. See file LICENSE for details.
+# $Id: convert_date.tag,v 1.5 2005/02/10 14:38:39 docelic Exp $
+
+UserTag convert-date Order adjust
+UserTag convert-date PosNumber 1
UserTag convert-date addAttr
-UserTag convert-date AttrAlias fmt format
-UserTag convert-date AttrAlias days adjust
+UserTag convert-date AttrAlias fmt format
+UserTag convert-date AttrAlias days adjust
UserTag convert-date HasEndTag
UserTag convert-date Interpolate
-UserTag convert-date Routine <<EOR
+UserTag convert-date Version $Revision: 1.5 $
+UserTag convert-date Routine <<EOR
sub {
my ($adjust, $opt, $text) = @_;
my @t;
@@ -76,4 +81,3 @@
return $out;
}
EOR
-
1.6 +3 -3 interchange/code/UserTag/css.tag
rev 1.6, prev_rev 1.5
Index: css.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/css.tag,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- css.tag 2 Oct 2004 16:38:55 -0000 1.5
+++ css.tag 10 Feb 2005 14:38:39 -0000 1.6
@@ -1,9 +1,10 @@
# Copyright 2003 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: css.tag,v 1.5 2004/10/02 16:38:55 docelic Exp $
+# $Id: css.tag,v 1.6 2005/02/10 14:38:39 docelic Exp $
-UserTag css Order name
+UserTag css Order name
UserTag css addAttr
+UserTag css Version $Revision: 1.6 $
UserTag css Routine <<EOR
sub {
my ($name, $opt) = @_;
@@ -122,4 +123,3 @@
return qq{<style type="text/css">\n$css</style>};
}
EOR
-
1.2 +7 -3 interchange/code/UserTag/db_date.tag
rev 1.2, prev_rev 1.1
Index: db_date.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/db_date.tag,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- db_date.tag 29 Jan 2002 05:52:42 -0000 1.1
+++ db_date.tag 10 Feb 2005 14:38:39 -0000 1.2
@@ -1,12 +1,17 @@
+# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
+# Licensed under the GNU GPL v2. See file LICENSE for details.
+# $Id: db_date.tag,v 1.2 2005/02/10 14:38:39 docelic Exp $
+
# [db-date table format]
#
# This tag returns the last-modified time of a database table,
# 'products' by default. Accepts a POSIX strftime value for
# date format; uses '%A %d %b %Y' by default.
#
-UserTag db-date Order table format
+UserTag db-date Order table format
UserTag db-date PosNumber 2
-UserTag db-date Routine <<EOF
+UserTag db-date Version $Revision: 1.2 $
+UserTag db-date Routine <<EOF
sub {
my ($db, $format) = @_;
my ($dbfile, $mtime);
@@ -29,4 +34,3 @@
}
}
EOF
-
1.4 +4 -4 interchange/code/UserTag/delete_cart.tag
rev 1.4, prev_rev 1.3
Index: delete_cart.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/delete_cart.tag,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- delete_cart.tag 16 Oct 2004 17:47:31 -0000 1.3
+++ delete_cart.tag 10 Feb 2005 14:38:39 -0000 1.4
@@ -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: delete_cart.tag,v 1.3 2004/10/16 17:47:31 docelic Exp $
+# $Id: delete_cart.tag,v 1.4 2005/02/10 14:38:39 docelic Exp $
-UserTag delete_cart Order nickname
+UserTag delete_cart Order nickname
UserTag delete_cart AttrAlias name nickname
-UserTag delete_cart Routine <<EOR
+UserTag delete_cart Version $Revision: 1.4 $
+UserTag delete_cart Routine <<EOR
sub {
my($nickname) = @_;
@@ -13,4 +14,3 @@
return '';
}
EOR
-
1.5 +4 -4 interchange/code/UserTag/email.tag
rev 1.5, prev_rev 1.4
Index: email.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/email.tag,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- email.tag 14 Oct 2004 20:07:36 -0000 1.4
+++ email.tag 10 Feb 2005 14:38:39 -0000 1.5
@@ -1,12 +1,13 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: email.tag,v 1.4 2004/10/14 20:07:36 docelic Exp $
+# $Id: email.tag,v 1.5 2005/02/10 14:38:39 docelic Exp $
-UserTag email Order to subject reply from extra
+UserTag email Order to subject reply from extra
UserTag email hasEndTag
UserTag email addAttr
UserTag email Interpolate
-UserTag email Routine <<EOR
+UserTag email Version $Revision: 1.5 $
+UserTag email Routine <<EOR
sub {
my ($to, $subject, $reply, $from, $extra, $opt, $body) = @_;
my $ok = 0;
@@ -41,4 +42,3 @@
return $opt->{hide} ? '' : $ok;
}
EOR
-
1.5 +3 -3 interchange/code/UserTag/email_raw.tag
rev 1.5, prev_rev 1.4
Index: email_raw.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/email_raw.tag,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- email_raw.tag 2 Oct 2004 18:15:16 -0000 1.4
+++ email_raw.tag 10 Feb 2005 14:38:39 -0000 1.5
@@ -1,11 +1,12 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: email_raw.tag,v 1.4 2004/10/02 18:15:16 docelic Exp $
+# $Id: email_raw.tag,v 1.5 2005/02/10 14:38:39 docelic Exp $
UserTag email-raw hasEndTag
UserTag email-raw addAttr
UserTag email-raw Interpolate
-UserTag email-raw Routine <<EOR
+UserTag email-raw Version $Revision: 1.5 $
+UserTag email-raw Routine <<EOR
sub {
my($opt, $body) = @_;
my($ok);
@@ -28,4 +29,3 @@
return $opt->{hide} ? '' : $ok;
}
EOR
-
1.9 +6 -6 interchange/code/UserTag/env.tag
rev 1.9, prev_rev 1.8
Index: env.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/env.tag,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- env.tag 24 Sep 2004 15:30:23 -0000 1.8
+++ env.tag 10 Feb 2005 14:38:39 -0000 1.9
@@ -1,12 +1,13 @@
# Copyright 2004 Interchange Development Group (http://www.icdevgroup.org/)
# Copyright 2001 Ed LaFrance <edl at newmediaems.com>
# Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: env.tag,v 1.8 2004/09/24 15:30:23 docelic Exp $
+# $Id: env.tag,v 1.9 2005/02/10 14:38:39 docelic Exp $
-Usertag env Order arg
-Usertag env PosNumber 1
-UserTag env attrAlias name arg
-Usertag env Routine <<EOR
+Usertag env Order arg
+Usertag env PosNumber 1
+UserTag env attrAlias name arg
+UserTag env Version $Revision: 1.9 $
+Usertag env Routine <<EOR
sub {
my $arg = shift;
my $env = ::http()->{env};
@@ -25,4 +26,3 @@
return $out;
}
EOR
-
1.4 +7 -4 interchange/code/UserTag/fedex_query.tag
rev 1.4, prev_rev 1.3
Index: fedex_query.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/fedex_query.tag,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- fedex_query.tag 11 Jun 2002 22:35:14 -0000 1.3
+++ fedex_query.tag 10 Feb 2005 14:38:39 -0000 1.4
@@ -1,9 +1,13 @@
-UserTag fedex-query Order mode weight
-UserTag fedex-query attrAlias origin_zip origin
+# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
+# Licensed under the GNU GPL v2. See file LICENSE for details.
+# $Id: fedex_query.tag,v 1.4 2005/02/10 14:38:39 docelic Exp $
+
+UserTag fedex-query Order mode weight
+UserTag fedex-query attrAlias origin_zip origin
UserTag fedex-query addAttr
+UserTag fedex-query Version $Revision: 1.4 $
UserTag fedex-query Documentation <<EOD
-
Required Variables
Construct a Rate request using the URL, variables, and values shown
below. If a value is not predetermined, the maximum length is shown in
@@ -370,4 +374,3 @@
return $result{TotalCharges};
}
EOR
-
1.11 +3 -3 interchange/code/UserTag/formel.tag
rev 1.11, prev_rev 1.10
Index: formel.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/formel.tag,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- formel.tag 2 Oct 2004 19:13:13 -0000 1.10
+++ formel.tag 10 Feb 2005 14:38:39 -0000 1.11
@@ -1,10 +1,11 @@
# Copyright 2002-2003 Interchange Development Group (http://www.icdevgroup.org/)
# Copyright 2000-2003 Stefan Hornburg (racke at linuxia.de)
# Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: formel.tag,v 1.10 2004/10/02 19:13:13 docelic Exp $
+# $Id: formel.tag,v 1.11 2005/02/10 14:38:39 docelic Exp $
-UserTag formel Order label name type size
+UserTag formel Order label name type size
UserTag formel addAttr
+UserTag formel Version $Revision: 1.11 $
UserTag formel Routine <<EOF
sub {
my ($label, $name, $type, $size, $opt) = @_;
@@ -168,4 +169,3 @@
}
}
EOF
-
1.5 +3 -3 interchange/code/UserTag/fortune.tag
rev 1.5, prev_rev 1.4
Index: fortune.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/fortune.tag,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- fortune.tag 3 Oct 2004 15:41:19 -0000 1.4
+++ fortune.tag 10 Feb 2005 14:38:39 -0000 1.5
@@ -1,9 +1,10 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: fortune.tag,v 1.4 2004/10/03 15:41:19 docelic Exp $
+# $Id: fortune.tag,v 1.5 2005/02/10 14:38:39 docelic Exp $
-UserTag fortune Order short
+UserTag fortune Order short
UserTag fortune addAttr
+UserTag fortune Version $Revision: 1.5 $
UserTag fortune Routine <<EOR
sub {
my ($short, $opt) = @_;
@@ -49,4 +50,3 @@
return $out;
}
EOR
-
1.4 +9 -3 interchange/code/UserTag/forum.tag
rev 1.4, prev_rev 1.3
Index: forum.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/forum.tag,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- forum.tag 4 Nov 2002 16:10:53 -0000 1.3
+++ forum.tag 10 Feb 2005 14:38:39 -0000 1.4
@@ -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: forum.tag,v 1.4 2005/02/10 14:38:39 docelic Exp $
+
UserTag forum-userlink PosNumber 0
UserTag forum-userlink addAttr
-UserTag forum-userlink Routine <<EOR
+UserTag forum-userlink Version $Revision: 1.4 $
+UserTag forum-userlink Routine <<EOR
sub {
my ($row) = @_;
return $row->{name} || $Variable->{FORUM_ANON_NAME} || 'Anonymous Coward'
@@ -11,10 +16,11 @@
}
EOR
-UserTag forum Order top
+UserTag forum Order top
UserTag forum addAttr
UserTag forum hasEndTag
-UserTag forum Routine <<EOR
+UserTag forum Version $Revision: 1.4 $
+UserTag forum Routine <<EOR
my @uls;
my $lastlevel;
1.8 +4 -4 interchange/code/UserTag/get_url.tag
rev 1.8, prev_rev 1.7
Index: get_url.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/get_url.tag,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- get_url.tag 2 Oct 2004 12:36:24 -0000 1.7
+++ get_url.tag 10 Feb 2005 14:38:39 -0000 1.8
@@ -1,11 +1,12 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: get_url.tag,v 1.7 2004/10/02 12:36:24 docelic Exp $
+# $Id: get_url.tag,v 1.8 2005/02/10 14:38:39 docelic Exp $
-UserTag get-url Order url
+UserTag get-url Order url
UserTag get-url AddAttr
UserTag get-url Interpolate
-UserTag get-url Routine <<EOR
+UserTag get-url Version $Revision: 1.8 $
+UserTag get-url Routine <<EOR
require LWP::UserAgent;
sub {
my ($url, $opt) = @_;
@@ -75,4 +76,3 @@
return $html;
}
EOR
-
1.16 +3 -3 interchange/code/UserTag/history_scan.tag
rev 1.16, prev_rev 1.15
Index: history_scan.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/history_scan.tag,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- history_scan.tag 3 Oct 2004 15:41:19 -0000 1.15
+++ history_scan.tag 10 Feb 2005 14:38:39 -0000 1.16
@@ -1,9 +1,10 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: history_scan.tag,v 1.15 2004/10/03 15:41:19 docelic Exp $
+# $Id: history_scan.tag,v 1.16 2005/02/10 14:38:39 docelic Exp $
-UserTag history-scan Order find exclude default
+UserTag history-scan Order find exclude default
UserTag history-scan addAttr
+UserTag history-scan Version $Revision: 1.16 $
UserTag history-scan Routine <<EOR
my %var_exclude = ( qw/
mv_credit_card_number 1
@@ -64,4 +65,3 @@
return $Tag->area( { href => $href, form => $form} );
}
EOR
-
1.3 +4 -3 interchange/code/UserTag/load_cart.tag
rev 1.3, prev_rev 1.2
Index: load_cart.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/load_cart.tag,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- load_cart.tag 16 Oct 2004 21:50:43 -0000 1.2
+++ load_cart.tag 10 Feb 2005 14:38:39 -0000 1.3
@@ -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: load_cart.tag,v 1.2 2004/10/16 21:50:43 docelic Exp $
+# $Id: load_cart.tag,v 1.3 2005/02/10 14:38:39 docelic Exp $
-UserTag load_cart Order nickname
+UserTag load_cart Order nickname
UserTag load_cart AttrAlias name nickname
-UserTag load_cart Routine <<EOR
+UserTag load_cart Version $Revision: 1.3 $
+UserTag load_cart Routine <<EOR
sub {
my($nickname) = @_;
1.5 +8 -4 interchange/code/UserTag/loc.tag
rev 1.5, prev_rev 1.4
Index: loc.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/loc.tag,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- loc.tag 27 Jul 2003 06:32:08 -0000 1.4
+++ loc.tag 10 Feb 2005 14:38:39 -0000 1.5
@@ -1,13 +1,18 @@
+# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
+# Licensed under the GNU GPL v2. See file LICENSE for details.
+# $Id: loc.tag,v 1.5 2005/02/10 14:38:39 docelic Exp $
+
# [loc locale*] message [/loc]
#
# This tag is the equivalent of [L] ... [/L] localization, except
# it works with contained tags
#
-UserTag l Alias loc
+UserTag loc Order locale
+UserTag l Alias loc
UserTag loc hasEndTag 1
UserTag loc Interpolate 1
-UserTag loc Order locale
-UserTag loc Routine <<EOF
+UserTag loc Version $Revision: 1.5 $
+UserTag loc Routine <<EOF
sub {
my ($locale, $message) = @_;
if($::Pragma->{no_locale_parse}) {
@@ -31,4 +36,3 @@
return defined $ref->{$message} ? $ref->{$message} : $message;
}
EOF
-
1.2 +6 -1 interchange/code/UserTag/page_meta.tag
rev 1.2, prev_rev 1.1
Index: page_meta.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/page_meta.tag,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- page_meta.tag 14 Jan 2003 00:16:48 -0000 1.1
+++ page_meta.tag 10 Feb 2005 14:38:39 -0000 1.2
@@ -1,5 +1,10 @@
-UserTag page-meta Order page
+# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
+# Licensed under the GNU GPL v2. See file LICENSE for details.
+# $Id: page_meta.tag,v 1.2 2005/02/10 14:38:39 docelic Exp $
+
+UserTag page-meta Order page
UserTag page-meta addAttr
+UserTag page-meta Version $Revision: 1.2 $
UserTag page-meta Routine <<EOR
sub {
my ($page, $opt) = @_;
1.3 +4 -4 interchange/code/UserTag/rand.tag
rev 1.3, prev_rev 1.2
Index: rand.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/rand.tag,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- rand.tag 14 Oct 2004 20:07:36 -0000 1.2
+++ rand.tag 10 Feb 2005 14:38:39 -0000 1.3
@@ -1,12 +1,13 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: rand.tag,v 1.2 2004/10/14 20:07:36 docelic Exp $
+# $Id: rand.tag,v 1.3 2005/02/10 14:38:39 docelic Exp $
-UserTag rand Order file
+UserTag rand Order file
UserTag rand posNumber 1
UserTag rand addAttr
UserTag rand hasEndTag
-UserTag rand Routine <<EOR
+UserTag rand Version $Revision: 1.3 $
+UserTag rand Routine <<EOR
sub {
my ($file, $opt, $inline) = @_;
my $sep = $opt->{separator} || '\[alt\]';
@@ -16,4 +17,3 @@
return $pieces[int(rand(scalar @pieces))] ;
}
EOR
-
1.2 +5 -1 interchange/code/UserTag/report_table.tag
rev 1.2, prev_rev 1.1
Index: report_table.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/report_table.tag,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- report_table.tag 22 Nov 2003 14:53:35 -0000 1.1
+++ report_table.tag 10 Feb 2005 14:38:39 -0000 1.2
@@ -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: report_table.tag,v 1.2 2005/02/10 14:38:39 docelic Exp $
+
UserTag report-table addAttr
UserTag report-table Documentation <<EOD
@@ -332,6 +336,7 @@
EOD
+UserTag report-table Version $Revision: 1.2 $
UserTag report-table Routine <<EOR
sub prep_cell {
my ($def,$datum,$linecount,$record) = @_;
@@ -638,4 +643,3 @@
return $output;
}
EOR
-
1.3 +4 -3 interchange/code/UserTag/save_cart.tag
rev 1.3, prev_rev 1.2
Index: save_cart.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/save_cart.tag,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- save_cart.tag 16 Oct 2004 21:50:43 -0000 1.2
+++ save_cart.tag 10 Feb 2005 14:38:39 -0000 1.3
@@ -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: save_cart.tag,v 1.2 2004/10/16 21:50:43 docelic Exp $
+# $Id: save_cart.tag,v 1.3 2005/02/10 14:38:39 docelic Exp $
-UserTag save_cart Order nickname recurring
+UserTag save_cart Order nickname recurring
UserTag save_cart AttrAlias name nickname
-UserTag save_cart Routine <<EOR
+UserTag save_cart Version $Revision: 1.3 $
+UserTag save_cart Routine <<EOR
sub {
my($nickname,$recurring) = @_;
1.3 +7 -3 interchange/code/UserTag/summary.tag
rev 1.3, prev_rev 1.2
Index: summary.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/summary.tag,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- summary.tag 13 Dec 2002 21:29:43 -0000 1.2
+++ summary.tag 10 Feb 2005 14:38:39 -0000 1.3
@@ -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: summary.tag,v 1.3 2005/02/10 14:38:39 docelic Exp $
+
# [summary amount=n.nn
# name=label*
# hide=1*
@@ -9,10 +13,11 @@
# Calculates column totals (if used properly. 8-\)
#
#
-UserTag summary Order amount
+UserTag summary Order amount
UserTag summary PosNumber 1
UserTag summary addAttr
-UserTag summary Routine <<EOF
+UserTag summary Version $Revision: 1.3 $
+UserTag summary Routine <<EOF
sub {
my ($amount, $opt) = @_;
my $summary_hash = $::Instance->{tag_summary_hash} ||= {};
@@ -32,4 +37,3 @@
return $amount;
}
EOF
-
1.7 +7 -3 interchange/code/UserTag/table_organize.tag
rev 1.7, prev_rev 1.6
Index: table_organize.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/table_organize.tag,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- table_organize.tag 6 Feb 2003 12:37:59 -0000 1.6
+++ table_organize.tag 10 Feb 2005 14:38:39 -0000 1.7
@@ -1,8 +1,13 @@
-UserTag table-organize Order cols
-UserTag table-organize attrAlias columns cols
+# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
+# Licensed under the GNU GPL v2. See file LICENSE for details.
+# $Id: table_organize.tag,v 1.7 2005/02/10 14:38:39 docelic Exp $
+
+UserTag table-organize Order cols
+UserTag table-organize attrAlias columns cols
UserTag table-organize Interpolate
UserTag table-organize addAttr
UserTag table-organize hasEndTag
+UserTag table-organize Version $Revision: 1.7 $
UserTag table-organize Documentation <<EOD
=head1 table-organize
@@ -336,4 +341,3 @@
return $out . $postamble;
}
EOR
-
1.2 +10 -5 interchange/code/UserTag/title_bar.tag
rev 1.2, prev_rev 1.1
Index: title_bar.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/title_bar.tag,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- title_bar.tag 29 Jan 2002 05:52:42 -0000 1.1
+++ title_bar.tag 10 Feb 2005 14:38:39 -0000 1.2
@@ -1,8 +1,13 @@
-UserTag title-bar Order width size color
-UserTag title-bar PosNumber 3
-UserTag title-bar Interpolate 1
-UserTag title-bar HasEndTag 1
-UserTag title-bar Routine <<EOR
+# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
+# Licensed under the GNU GPL v2. See file LICENSE for details.
+# $Id: title_bar.tag,v 1.2 2005/02/10 14:38:39 docelic Exp $
+
+UserTag title-bar Order width size color
+UserTag title-bar PosNumber 3
+UserTag title-bar Interpolate 1
+UserTag title-bar HasEndTag 1
+UserTag title-bar Version $Revision: 1.2 $
+UserTag title-bar Routine <<EOR
sub {
my ($width, $size, $color, $text) = @_;
$width = 500 unless defined $width;
1.10 +7 -2 interchange/code/UserTag/ups_query.tag
rev 1.10, prev_rev 1.9
Index: ups_query.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/ups_query.tag,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- ups_query.tag 4 Aug 2003 22:03:18 -0000 1.9
+++ ups_query.tag 10 Feb 2005 14:38:39 -0000 1.10
@@ -1,6 +1,11 @@
-UserTag ups-query Order mode origin zip weight country
+# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
+# Licensed under the GNU GPL v2. See file LICENSE for details.
+# $Id: ups_query.tag,v 1.10 2005/02/10 14:38:39 docelic Exp $
+
+UserTag ups-query Order mode origin zip weight country
UserTag ups-query addAttr
-UserTag ups-query Routine <<EOR
+UserTag ups-query Version $Revision: 1.10 $
+UserTag ups-query Routine <<EOR
sub {
my( $mode, $origin, $zip, $weight, $country, $opt) = @_;
$opt ||= {};
1.3 +5 -1 interchange/code/UserTag/usertrack.tag
rev 1.3, prev_rev 1.2
Index: usertrack.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/usertrack.tag,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- usertrack.tag 1 Jul 2003 10:46:32 -0000 1.2
+++ usertrack.tag 10 Feb 2005 14:38:39 -0000 1.3
@@ -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: usertrack.tag,v 1.3 2005/02/10 14:38:39 docelic Exp $
-UserTag usertrack Order tag value
+UserTag usertrack Order tag value
+UserTag usertrack Version $Revision: 1.3 $
UserTag usertrack Routine sub { $Vend::Track->user(@_) if $Vend::Track; }
1.4 +6 -2 interchange/code/UserTag/usps_query.tag
rev 1.4, prev_rev 1.3
Index: usps_query.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/usps_query.tag,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- usps_query.tag 9 May 2004 20:56:20 -0000 1.3
+++ usps_query.tag 10 Feb 2005 14:38:39 -0000 1.4
@@ -1,6 +1,10 @@
-#!/usr/bin/perl
-UserTag usps-query Order service weight
+# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
+# Licensed under the GNU GPL v2. See file LICENSE for details.
+# $Id: usps_query.tag,v 1.4 2005/02/10 14:38:39 docelic Exp $
+
+UserTag usps-query Order service weight
UserTag usps-query addAttr
+UserTag usps-query Version $Revision: 1.4 $
UserTag usps-query Routine <<EOR
sub {
1.3 +3 -4 interchange/code/UserTag/values_space.tag
rev 1.3, prev_rev 1.2
Index: values_space.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/values_space.tag,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- values_space.tag 25 Sep 2004 12:30:07 -0000 1.2
+++ values_space.tag 10 Feb 2005 14:38:39 -0000 1.3
@@ -1,10 +1,10 @@
# Copyright 2004 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: values_space.tag,v 1.2 2004/09/25 12:30:07 docelic Exp $
+# $Id: values_space.tag,v 1.3 2005/02/10 14:38:39 docelic Exp $
-UserTag values-space Order name
+UserTag values-space Order name
UserTag values-space addAttr
-UserTag values-space Version $Revision: 1.2 $
+UserTag values-space Version $Revision: 1.3 $
UserTag values-space Routine <<EOR
sub {
my ($name, $opt) = @_;
@@ -42,4 +42,3 @@
return $opt->{show} ? $old_name : '';
}
EOR
-
1.10 +5 -5 interchange/code/UserTag/var.tag
rev 1.10, prev_rev 1.9
Index: var.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/var.tag,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- var.tag 24 Sep 2004 15:30:23 -0000 1.9
+++ var.tag 10 Feb 2005 14:38:39 -0000 1.10
@@ -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: var.tag,v 1.9 2004/09/24 15:30:23 docelic Exp $
+# $Id: var.tag,v 1.10 2005/02/10 14:38:39 docelic Exp $
-UserTag var Interpolate 1
-UserTag var Order name global filter
-UserTag var Routine <<EOR
+UserTag var Order name global filter
+UserTag var Interpolate 1
+UserTag var Version $Revision: 1.10 $
+UserTag var Routine <<EOR
sub {
my ($key, $global, $filter) = @_;
my $value;
@@ -26,4 +27,3 @@
return $value;
}
EOR
-
1.4 +6 -1 interchange/code/UserTag/weight.tag
rev 1.4, prev_rev 1.3
Index: weight.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/weight.tag,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- weight.tag 26 Feb 2004 18:07:11 -0000 1.3
+++ weight.tag 10 Feb 2005 14:38:39 -0000 1.4
@@ -1,5 +1,10 @@
-UserTag weight Order attribute
+# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
+# Licensed under the GNU GPL v2. See file LICENSE for details.
+# $Id: weight.tag,v 1.4 2005/02/10 14:38:39 docelic Exp $
+
+UserTag weight Order attribute
UserTag weight addAttr
+UserTag weight Version $Revision: 1.4 $
UserTag weight Routine <<EOR
sub {
my ($attr, $opt) = @_;
More information about the interchange-cvs
mailing list