remove obsolete and unused Order modules
authorTony Cook <tony@develop-help.com>
Thu, 2 Aug 2012 06:02:22 +0000 (16:02 +1000)
committerTony Cook <tony@develop-help.com>
Thu, 2 Aug 2012 06:02:22 +0000 (16:02 +1000)
These have been BSE::TB::* for years

MANIFEST
site/cgi-bin/modules/Order.pm [deleted file]
site/cgi-bin/modules/OrderItem.pm [deleted file]
site/cgi-bin/modules/OrderItems.pm [deleted file]
site/cgi-bin/modules/Orders.pm [deleted file]

index 704e74b..be08a0e 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -321,10 +321,6 @@ site/cgi-bin/modules/Generate/Article.pm
 site/cgi-bin/modules/Generate/Catalog.pm
 site/cgi-bin/modules/Generate/Product.pm
 site/cgi-bin/modules/Generate/Subscription.pm
-site/cgi-bin/modules/Order.pm
-site/cgi-bin/modules/OrderItem.pm
-site/cgi-bin/modules/OrderItems.pm
-site/cgi-bin/modules/Orders.pm
 site/cgi-bin/modules/OtherParent.pm
 site/cgi-bin/modules/OtherParents.pm
 site/cgi-bin/modules/Product.pm
diff --git a/site/cgi-bin/modules/Order.pm b/site/cgi-bin/modules/Order.pm
deleted file mode 100644 (file)
index 0eeabc4..0000000
+++ /dev/null
@@ -1,50 +0,0 @@
-package Order;
-use strict;
-# represents an order from the database
-use Squirrel::Row;
-use vars qw/@ISA/;
-@ISA = qw/Squirrel::Row/;
-
-our $VERSION = "1.000";
-
-sub columns {
-  return qw/id
-           delivFirstName delivLastName delivStreet delivSuburb delivState
-          delivPostCode delivCountry
-           billFirstName billLastName billStreet billSuburb billState
-           billPostCode billCountry
-           telephone facsimile emailAddress
-           total wholesaleTotal gst orderDate
-           ccNumberHash ccName ccExpiryHash ccType
-           filled whenFilled whoFilled paidFor paymentReceipt
-           randomId cancelled userId paymentType
-           customInt1 customInt2 customInt3 customInt4 customInt5
-           customStr1 customStr2 customStr3 customStr4 customStr5
-           instructions billTelephone billFacsimile billEmail
-           siteuser_id affiliate_code/;
-}
-
-=item siteuser
-
-returns the SiteUser object of the user who made this order.
-
-=cut
-
-sub siteuser {
-  my ($self) = @_;
-
-  $self->{userId} or return;
-
-  require SiteUsers;
-
-  return ( SiteUsers->getBy(userId=>$self->{userId}) )[0];
-}
-
-sub items {
-  my ($self) = @_;
-
-  require BSE::TB::OrderItems;
-  return BSE::TB::OrderItems->getBy(orderId => $self->{id});
-}
-
-1;
diff --git a/site/cgi-bin/modules/OrderItem.pm b/site/cgi-bin/modules/OrderItem.pm
deleted file mode 100644 (file)
index 5313599..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-package BSE::TB::OrderItem;
-use strict;
-# represents an order line item from the database
-use Squirrel::Row;
-use vars qw/@ISA/;
-@ISA = qw/Squirrel::Row/;
-
-our $VERSION = "1.000";
-
-sub columns {
-  return qw/id productId orderId units price wholesalePrice gst options
-            customInt1 customInt2 customInt3 customStr1 customStr2 customStr3
-            title summary subscription_id subscription_period max_lapsed/;
-}
-
-1;
diff --git a/site/cgi-bin/modules/OrderItems.pm b/site/cgi-bin/modules/OrderItems.pm
deleted file mode 100644 (file)
index 1bec6ca..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-package BSE::TB::OrderItems;
-use strict;
-use Squirrel::Table;
-use vars qw(@ISA $VERSION);
-@ISA = qw(Squirrel::Table);
-
-our $VERSION = "1.000";
-
-sub rowClass {
-  return 'BSE::TB::OrderItem';
-}
-
-1;
diff --git a/site/cgi-bin/modules/Orders.pm b/site/cgi-bin/modules/Orders.pm
deleted file mode 100644 (file)
index 97ffd0c..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-package Orders;
-use strict;
-use Squirrel::Table;
-use vars qw(@ISA $VERSION);
-@ISA = qw(Squirrel::Table);
-
-our $VERSION = "1.000";
-
-sub rowClass {
-  return 'Order';
-}
-
-1;