move OtherParent/s modules to more appropriate location
authorAdrian Oldham <adriann@visualthought.com.au>
Mon, 1 Sep 2014 01:33:14 +0000 (11:33 +1000)
committerAdrian Oldham <adriann@visualthought.com.au>
Mon, 1 Sep 2014 11:34:10 +0000 (21:34 +1000)
17 files changed:
MANIFEST
site/cgi-bin/admin/move.pl
site/cgi-bin/modules/BSE/API.pm
site/cgi-bin/modules/BSE/Admin/StepParents.pm
site/cgi-bin/modules/BSE/Edit/Article.pm
site/cgi-bin/modules/BSE/Generate/Catalog.pm
site/cgi-bin/modules/BSE/Importer/Target/Article.pm
site/cgi-bin/modules/BSE/TB/Article.pm
site/cgi-bin/modules/BSE/TB/Articles.pm
site/cgi-bin/modules/BSE/TB/OtherParent.pm [new file with mode: 0644]
site/cgi-bin/modules/BSE/TB/OtherParents.pm [new file with mode: 0644]
site/cgi-bin/modules/BSE/TB/Products.pm
site/cgi-bin/modules/BSE/TB/SiteCommon.pm
site/cgi-bin/modules/BSE/UI/AdminReorder.pm
site/cgi-bin/modules/BSE/UI/AdminShop.pm
site/cgi-bin/modules/OtherParent.pm [deleted file]
site/cgi-bin/modules/OtherParents.pm [deleted file]

index 1a19797..39f8ae2 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -347,8 +347,8 @@ site/cgi-bin/modules/BSE/Generate/Article.pm
 site/cgi-bin/modules/BSE/Generate/Catalog.pm
 site/cgi-bin/modules/BSE/Generate/Product.pm
 site/cgi-bin/modules/BSE/Generate/Subscription.pm
-site/cgi-bin/modules/OtherParent.pm
-site/cgi-bin/modules/OtherParents.pm
+site/cgi-bin/modules/BSE/TB/OtherParent.pm
+site/cgi-bin/modules/BSE/TB/OtherParents.pm
 site/cgi-bin/modules/BSE/TB/Product.pm
 site/cgi-bin/modules/BSE/TB/Products.pm
 site/cgi-bin/modules/SiteUser.pm
index 4648e09..2bb446b 100755 (executable)
@@ -40,10 +40,10 @@ if (defined $cgi->param('stepchild')) {
     
     my $other = $cgi->param('other');
     
-    require 'OtherParents.pm';
-    my $one = OtherParents->getBy(parentId=>$id, childId=>$stepchild)
+    require BSE::TB::OtherParents;
+    my $one = BSE::TB::OtherParents->getBy(parentId=>$id, childId=>$stepchild)
       or die "Cannot find link between child $stepchild and parent $id";
-    my $two = OtherParents->getBy(parentId=>$other, childId=>$stepchild)
+    my $two = BSE::TB::OtherParents->getBy(parentId=>$other, childId=>$stepchild)
       or die "Cannot find link between child $stepchild and parent $other";
     ($one->{childDisplayOrder}, $two->{childDisplayOrder}) =
       ($two->{childDisplayOrder}, $one->{childDisplayOrder});
@@ -53,20 +53,20 @@ if (defined $cgi->param('stepchild')) {
   }
 }
 elsif (defined $cgi->param('stepparent')) {
-  require 'OtherParents.pm';
+  require BSE::TB::OtherParents;
 
   my $stepparent = $cgi->param('stepparent');
   if ($req->user_can(edit_reorder_children => $stepparent)) {
     my $other = $cgi->param('other');
     my $onename = 'parentDisplayOrder';
-    my $one = OtherParents->getBy(parentId=>$stepparent, childId=>$id);
+    my $one = BSE::TB::OtherParents->getBy(parentId=>$stepparent, childId=>$id);
     unless ($one) {
       $onename = 'displayOrder';
       $one = BSE::TB::Articles->getByPkey($id)
        or die "Could not find article $id";
     }
     my $twoname = 'parentDisplayOrder';
-    my $two = OtherParents->getBy(parentId=>$stepparent, childId=>$other);
+    my $two = BSE::TB::OtherParents->getBy(parentId=>$stepparent, childId=>$other);
     unless ($two) {
       $twoname = 'displayOrder';
       $two = BSE::TB::Articles->getByPkey($other)
index 1d1ec50..2656e1e 100644 (file)
@@ -10,7 +10,7 @@ use Carp qw(confess croak);
 use Fcntl qw(:seek);
 use Cwd;
 
-our $VERSION = "1.010";
+our $VERSION = "1.011";
 
 =head1 NAME
 
@@ -295,7 +295,7 @@ sub bse_add_step_child {
   my $cfg = delete $opts{cfg}
     or confess "cfg option missing";
 
-  require OtherParents;
+  require BSE::TB::OtherParents;
 
   my $parent = delete $opts{parent}
     or confess "parent option missing";
@@ -311,10 +311,10 @@ sub bse_add_step_child {
   $opts{parentDisplayOrder} ||= _next_display_order();
   $opts{childDisplayOrder} ||= _next_display_order();
 
-  my @cols = OtherParent->columns;
+  my @cols = BSE::TB::OtherParent->columns;
   shift @cols;
 
-  return OtherParents->add(@opts{@cols});
+  return BSE::TB::OtherParents->add(@opts{@cols});
 }
 
 sub bse_encoding {
@@ -541,7 +541,7 @@ sub bse_add_step_parent {
      childDisplayOrder => _next_display_order(),
     );
 
-  return OtherParents->make(%step);
+  return BSE::TB::OtherParents->make(%step);
 }
 
 =item bse_site
index 4636f70..a82d0d5 100644 (file)
@@ -1,10 +1,10 @@
 package BSE::Admin::StepParents;
 use strict;
 use BSE::TB::Articles;
-use OtherParents;
+use BSE::TB::OtherParents;
 use BSE::Util::SQL qw/date_to_sql/;
 
-our $VERSION = "1.001";
+our $VERSION = "1.002";
 
 sub add {
   my ($class, $parent, $child, $release, $expire) = @_;
@@ -15,15 +15,15 @@ sub add {
   $data{parentDisplayOrder} = $data{childDisplayOrder} = time;
   $data{expire} = ($expire && date_to_sql($expire)) || '2999-12-31';
   $data{release} = ($release && date_to_sql($release)) || '2000-01-01';
-  my @cols = OtherParent->columns;
+  my @cols = BSE::TB::OtherParent->columns;
   shift @cols;
 
   # check for an existing entry
   my $existing = 
-    OtherParents->getBy(parentId=>$parent->{id}, childId=>$child->{id})
+    BSE::TB::OtherParents->getBy(parentId=>$parent->{id}, childId=>$child->{id})
     and die "Entry already exists\n";
 
-  my $otherprod = OtherParents->add(@data{@cols})
+  my $otherprod = BSE::TB::OtherParents->add(@data{@cols})
     or die "Cannot add\n";
 
   return $otherprod;
@@ -33,7 +33,7 @@ sub del {
   my ($class, $parent, $child) = @_;
 
   my $existing = 
-    OtherParents->getBy(parentId=>$parent->{id}, childId=>$child->{id})
+    BSE::TB::OtherParents->getBy(parentId=>$parent->{id}, childId=>$child->{id})
     or die "Entry doesn't exit";
 
   $existing->remove();
index 5add14d..0c51235 100644 (file)
@@ -16,7 +16,7 @@ use List::Util qw(first);
 use constant MAX_FILE_DISPLAYNAME_LENGTH => 255;
 use constant ARTICLE_CUSTOM_FIELDS_CFG => "article custom fields";
 
-our $VERSION = "1.048";
+our $VERSION = "1.049";
 
 =head1 NAME
 
@@ -566,8 +566,8 @@ sub iter_allkids {
 sub _load_step_kids {
   my ($article, $step_kids) = @_;
 
-  require OtherParents;
-  my @stepkids = OtherParents->getBy(parentId=>$article->{id}) if $article->{id};
+  require BSE::TB::OtherParents;
+  my @stepkids = BSE::TB::OtherParents->getBy(parentId=>$article->{id}) if $article->{id};
   %$step_kids = map { $_->{childId} => $_ } @stepkids;
   $step_kids->{loaded} = 1;
 }
@@ -673,8 +673,8 @@ sub iter_get_stepparents {
 
   return unless $article->{id} && $article->{id} > 0;
 
-  require OtherParents;
-  OtherParents->getBy(childId=>$article->{id});
+  require BSE::TB::OtherParents;
+  BSE::TB::OtherParents->getBy(childId=>$article->{id});
 }
 
 sub tag_ifStepParents {
@@ -2708,7 +2708,7 @@ sub save_stepkids {
 
   my $cgi = $req->cgi;
   require 'BSE/Admin/StepParents.pm';
-  my @stepcats = OtherParents->getBy(parentId=>$article->{id});
+  my @stepcats = BSE::TB::OtherParents->getBy(parentId=>$article->{id});
   my %stepcats = map { $_->{parentId}, $_ } @stepcats;
   my %datedefs = ( release => '2000-01-01', expire=>'2999-12-31' );
   for my $stepcat (@stepcats) {
@@ -2807,14 +2807,14 @@ sub req_restepkid {
 
   # first, identify the stepkid link
   my $cgi = $req->cgi;
-  require OtherParents;
+  require BSE::TB::OtherParents;
   my $parentid = $cgi->param("parentid");
   defined $parentid
     or return $self->_service_error($req, $article, $articles, "Missing parentid", {}, "NOPARENTID");
   $parentid =~ /^\d+$/
     or return $self->_service_error($req, $article, $articles, "Invalid parentid", {}, "BADPARENTID");
 
-  my ($step) = OtherParents->getBy(parentId => $parentid, childId => $article->id)
+  my ($step) = BSE::TB::OtherParents->getBy(parentId => $parentid, childId => $article->id)
     or return $self->_service_error($req, $article, $articles, "Unknown relationship", {}, "NOTFOUND");
 
   my $newparentid = $cgi->param("newparentid");
@@ -2824,7 +2824,7 @@ sub req_restepkid {
     my $new_parent = BSE::TB::Articles->getByPkey($newparentid)
       or return $self->_service_error($req, $article, $articles, "Unknown new parent id", {}, "UNKNOWNNEWPARENT");
     my $existing = 
-      OtherParents->getBy(parentId=>$newparentid, childId=>$article->id)
+      BSE::TB::OtherParents->getBy(parentId=>$newparentid, childId=>$article->id)
        and return $self->_service_error($req, $article, $articles, "New parent is duplicate", {}, "NEWPARENTDUP");
 
     $step->{parentId} = $newparentid;
@@ -2941,7 +2941,7 @@ sub save_stepparents {
   my $cgi = $req->cgi;
 
   require 'BSE/Admin/StepParents.pm';
-  my @stepparents = OtherParents->getBy(childId=>$article->{id});
+  my @stepparents = BSE::TB::OtherParents->getBy(childId=>$article->{id});
   my %stepparents = map { $_->{parentId}, $_ } @stepparents;
   my %datedefs = ( release => '2000-01-01', expire=>'2999-12-31' );
   for my $stepparent (@stepparents) {
index 79544ac..a41e7db 100644 (file)
@@ -1,6 +1,6 @@
 package BSE::Generate::Catalog;
 
-our $VERSION = "1.006";
+our $VERSION = "1.007";
 
 use strict;
 use BSE::Generate;
@@ -9,7 +9,7 @@ use base 'BSE::Generate::Article';
 use BSE::Template;
 use Constants qw($CGI_URI $ADMIN_URI);
 use BSE::Regen qw(generate_button);
-use OtherParents;
+use BSE::TB::OtherParents;
 use DevHelp::HTML;
 use BSE::Arrows;
 use BSE::Util::Iterate;
@@ -124,7 +124,7 @@ sub baseActs {
   my @subcats = sort { $b->{displayOrder} <=> $a->{displayOrder} }
     grep $_->{listed} && UNIVERSAL::isa($_->{generator}, 'BSE::Generate::Catalog'),
     $articles->getBy(parentid => $article->{id});
-  my $other_parents = OtherParents->new;
+  my $other_parents = BSE::TB::OtherParents->new;
   my ($year, $month, $day) = (localtime)[5,4,3];
   my $today = sprintf("%04d-%02d-%02d 00:00:00ZZZ", $year+1900, $month+1, $day);
   my @stepprods = $article->visible_stepkids;
index 7f8962d..3f4743f 100644 (file)
@@ -4,9 +4,9 @@ use base 'BSE::Importer::Target::Base';
 use BSE::API qw(bse_make_article bse_add_image bse_add_step_parent);
 use BSE::TB::Articles;
 use BSE::TB::Products;
-use OtherParents;
+use BSE::TB::OtherParents;
 
-our $VERSION = "1.010";
+our $VERSION = "1.011";
 
 =head1 NAME
 
@@ -226,7 +226,7 @@ sub row {
       $importer->info(" $leaf->{id}: Reset files");
     }
     if ($self->{reset_steps}) {
-      my @steps = OtherParents->getBy(childId => $leaf->{id});
+      my @steps = BSE::TB::OtherParents->getBy(childId => $leaf->{id});
       for my $step (@steps) {
        $step->remove;
       }
index 2edcbb7..90d09d1 100644 (file)
@@ -8,7 +8,7 @@ use vars qw/@ISA/;
 @ISA = qw/Squirrel::Row BSE::TB::SiteCommon BSE::TB::TagOwner/;
 use Carp 'confess';
 
-our $VERSION = "1.025";
+our $VERSION = "1.026";
 
 =head1 NAME
 
@@ -358,8 +358,8 @@ sub remove {
   $self->remove_files($cfg);
   
   # remove any step(child|parent) links
-  require OtherParents;
-  my @steprels = OtherParents->anylinks($self->{id});
+  require BSE::TB::OtherParents;
+  my @steprels = BSE::TB::OtherParents->anylinks($self->{id});
   for my $link (@steprels) {
     $link->remove();
   }
index da17411..fd2cfdf 100644 (file)
@@ -6,7 +6,7 @@ require BSE::TB::TagOwners;
 @ISA = qw(Squirrel::Table BSE::TB::TagOwners);
 use BSE::TB::Article;
 
-our $VERSION = "1.006";
+our $VERSION = "1.007";
 
 =head1 NAME
 
@@ -138,9 +138,9 @@ Return a list of all visible children of the given article id.
 sub all_visible_kids {
   my ($self, $id) = @_;
 
-  require 'OtherParents.pm';
+  require BSE::TB::OtherParents;
 
-  my @otherlinks = OtherParents->getBy(parentId=>$id);
+  my @otherlinks = BSE::TB::OtherParents->getBy(parentId=>$id);
   my @normalkids = BSE::TB::Articles->listedChildren($id);
   my %order = (
               (map { $_->{id}, $_->{displayOrder} } @normalkids ),
diff --git a/site/cgi-bin/modules/BSE/TB/OtherParent.pm b/site/cgi-bin/modules/BSE/TB/OtherParent.pm
new file mode 100644 (file)
index 0000000..44f7295
--- /dev/null
@@ -0,0 +1,14 @@
+package BSE::TB::OtherParent;
+use strict;
+use Squirrel::Row;
+use vars qw/@ISA/;
+@ISA = qw/Squirrel::Row/;
+
+our $VERSION = "1.001";
+
+# id is only needed due to limitations in BSE's Squirrel::Row
+sub columns {
+  qw/id parentId childId parentDisplayOrder childDisplayOrder release expire/;
+}
+
+1;
diff --git a/site/cgi-bin/modules/BSE/TB/OtherParents.pm b/site/cgi-bin/modules/BSE/TB/OtherParents.pm
new file mode 100644 (file)
index 0000000..bb061b9
--- /dev/null
@@ -0,0 +1,20 @@
+package BSE::TB::OtherParents;
+use strict;
+use Squirrel::Table;
+use vars qw(@ISA $VERSION);
+@ISA = qw(Squirrel::Table);
+use BSE::TB::OtherParent;
+
+our $VERSION = "1.001";
+
+sub rowClass {
+  return 'BSE::TB::OtherParent';
+}
+
+sub anylinks {
+  my ($class, $id) = @_;
+
+  $class->getSpecial('anylinks', $id, $id);
+}
+
+1;
index 135e902..70f30ae 100644 (file)
@@ -5,7 +5,7 @@ use vars qw(@ISA $VERSION);
 @ISA = qw(Squirrel::Table BSE::TB::TagOwners);
 use BSE::TB::Product;
 
-our $VERSION = "1.004";
+our $VERSION = "1.005";
 
 sub rowClass {
   return 'BSE::TB::Product';
@@ -14,7 +14,7 @@ sub rowClass {
 sub all_visible_children {
   my ($self, $id) = @_;
 
-  require OtherParents;
+  require BSE::TB::OtherParents;
   my @normal_prods = BSE::TB::Products->visible_children($id);
   my @step_prods = BSE::TB::Products->visible_step_children($id);
   
@@ -24,7 +24,7 @@ sub all_visible_children {
      ( map 
        { 
         $_->{childId} => $_->{parentDisplayOrder}
-       } OtherParents->getBy(parentId => $id)
+       } BSE::TB::OtherParents->getBy(parentId => $id)
      )
     );
 
index 508ead6..931bd7e 100644 (file)
@@ -2,7 +2,7 @@ package BSE::TB::SiteCommon;
 use strict;
 use Carp qw(confess);
 
-our $VERSION = "1.021";
+our $VERSION = "1.022";
 
 =head1 NAME
 
@@ -71,9 +71,9 @@ sub visible_stepkids {
 sub allkids {
   my ($self) = @_;
 
-  require 'OtherParents.pm';
+  require BSE::TB::OtherParents;
 
-  my @otherlinks = OtherParents->getBy(parentId=>$self->{id});
+  my @otherlinks = BSE::TB::OtherParents->getBy(parentId=>$self->{id});
   my @normalkids = BSE::TB::Articles->children($self->{id});
   my %order = (
               (map { $_->{id}, $_->{displayOrder} } @normalkids ),
index ee6f6b9..3de5d33 100644 (file)
@@ -2,10 +2,10 @@ package BSE::UI::AdminReorder;
 use strict;
 use base 'BSE::UI::AdminDispatch';
 use BSE::TB::Articles;
-use OtherParents;
+use BSE::TB::OtherParents;
 use List::Util ();
 
-our $VERSION = "1.002";
+our $VERSION = "1.003";
 
 =head1 NAME
 
@@ -172,7 +172,7 @@ sub req_bystepparent {
   my $parent = BSE::TB::Articles->getByPkey($stepparent)
     or return $self->error($req, "Unknown article $stepparent");
   
-  my @otherlinks = OtherParents->getBy(parentId => $stepparent);
+  my @otherlinks = BSE::TB::OtherParents->getBy(parentId => $stepparent);
   my @normalkids = BSE::TB::Articles->children($stepparent);
   my @stepkids = $parent->stepkids;
   my %stepkids = map { $_->{id}, $_ } @stepkids;
@@ -235,7 +235,7 @@ sub req_bystepchild {
   my $child = BSE::TB::Articles->getByPkey($stepchild)
     or return $self->error($req, "Unknown child $stepchild");
 
-  my @otherlinks = OtherParents->getBy(childId=>$stepchild);
+  my @otherlinks = BSE::TB::OtherParents->getBy(childId=>$stepchild);
   my @stepparents = map BSE::TB::Articles->getByPkey($_->{parentId}), @otherlinks;
   my %stepparents = map { $_->{id}, $_ } @stepparents;
 
index f9119c8..98c9b62 100644 (file)
@@ -21,7 +21,7 @@ use BSE::CfgInfo qw(cfg_dist_image_uri);
 use BSE::Util::SQL qw/now_sqldate sql_to_date date_to_sql sql_date sql_datetime/;
 use BSE::Util::Valid qw/valid_date/;
 
-our $VERSION = "1.027";
+our $VERSION = "1.028";
 
 my %actions =
   (
@@ -357,12 +357,12 @@ sub product_form {
     grep !$seen_templates{$_}++, @templates;
 
   my $stepcat_index;
-  use OtherParents;
+  use BSE::TB::OtherParents;
   # ugh
   my $realproduct;
   $realproduct = UNIVERSAL::isa($product, 'BSE::TB::Product') ? $product : BSE::TB::Products->getByPkey($product->{id});
   my @stepcats;
-  @stepcats = OtherParents->getBy(childId=>$product->{id}) 
+  @stepcats = BSE::TB::OtherParents->getBy(childId=>$product->{id}) 
     if $product->{id};
   my @stepcat_targets = $realproduct->step_parents if $realproduct;
   my %stepcat_targets = map { $_->{id}, $_ } @stepcat_targets;
diff --git a/site/cgi-bin/modules/OtherParent.pm b/site/cgi-bin/modules/OtherParent.pm
deleted file mode 100644 (file)
index 4f30d51..0000000
+++ /dev/null
@@ -1,14 +0,0 @@
-package OtherParent;
-use strict;
-use Squirrel::Row;
-use vars qw/@ISA/;
-@ISA = qw/Squirrel::Row/;
-
-our $VERSION = "1.000";
-
-# id is only needed due to limitations in BSE's Squirrel::Row
-sub columns {
-  qw/id parentId childId parentDisplayOrder childDisplayOrder release expire/;
-}
-
-1;
diff --git a/site/cgi-bin/modules/OtherParents.pm b/site/cgi-bin/modules/OtherParents.pm
deleted file mode 100644 (file)
index 9af936a..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-package OtherParents;
-use strict;
-use Squirrel::Table;
-use vars qw(@ISA $VERSION);
-@ISA = qw(Squirrel::Table);
-use OtherParent;
-
-our $VERSION = "1.000";
-
-sub rowClass {
-  return 'OtherParent';
-}
-
-sub anylinks {
-  my ($class, $id) = @_;
-
-  $class->getSpecial('anylinks', $id, $id);
-}
-
-1;