Permalink
Browse files

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

  • Loading branch information...
docelic committed Feb 10, 2005
1 parent 2433077 commit cdb2d3ef6e29a7ee078f3b5b51ee64ce9212eebc
@@ -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 @@ sub {
return $alt;
}
EOR

@@ -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 @@ EOV
}

EOR

@@ -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 @@ sub {
return $opt->{hide} ? '' : $retval;
}
EOR

@@ -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,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 @@ sub {
return $out;
}
EOR

@@ -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 @@ sub {
return qq{<style type="text/css">\n$css</style>};
}
EOR

@@ -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 @@ sub {
}
}
EOF

@@ -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 @@ sub {
return '';
}
EOR

@@ -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 @@ sub {
return $opt->{hide} ? '' : $ok;
}
EOR

@@ -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 @@ sub {
return $opt->{hide} ? '' : $ok;
}
EOR

@@ -1,12 +1,13 @@
# Copyright 2004 Interchange Development Group (http://www.icdevgroup.org/)
# Copyright 2001 Ed LaFrance <edl@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 @@ sub {
return $out;
}
EOR

@@ -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 @@ sub {
return $result{TotalCharges};
}
EOR

@@ -1,10 +1,11 @@
# Copyright 2002-2003 Interchange Development Group (http://www.icdevgroup.org/)
# Copyright 2000-2003 Stefan Hornburg (racke@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 @@ sub {
}
}
EOF

@@ -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 @@ sub {
return $out;
}
EOR

@@ -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 @@ sub {
}
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,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 @@ sub {
return $html;
}
EOR

@@ -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 @@ sub {
return $Tag->area( { href => $href, form => $form} );
}
EOR

@@ -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,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 @@ sub {
return defined $ref->{$message} ? $ref->{$message} : $message;
}
EOF

Oops, something went wrong.

0 comments on commit cdb2d3e

Please sign in to comment.