Tadashi Okoshi
slash****@users*****
2006年 6月 29日 (木) 03:12:48 JST
Index: affelio/lib/Affelio.pm
diff -u affelio/lib/Affelio.pm:1.47 affelio/lib/Affelio.pm:1.48
--- affelio/lib/Affelio.pm:1.47 Mon Jun 26 02:10:13 2006
+++ affelio/lib/Affelio.pm Thu Jun 29 03:12:48 2006
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: Affelio.pm,v 1.47 2006/06/25 17:10:13 slash5234 Exp $
+# $Id: Affelio.pm,v 1.48 2006/06/28 18:12:48 slash5234 Exp $
package Affelio;
{
@@ -105,6 +105,7 @@
my $lh = "";
my $db = "";
my $pm = "";
+ my $rm = "";
my $fm = "";
my $gm = "";
my $perm = "";
@@ -125,6 +126,7 @@
cgi => $cgi,
db => $db,
pm => $pm,
+ rm => $rm,
fm => $fm,
gm => $gm,
perm => $perm,
@@ -479,6 +481,35 @@
}
######################################################################
+ #getRM
+ ######################################################################
+ sub getRM{
+ my $self=shift;
+
+ if(! ($self->{rm}) ){
+ $self->load_RelationManager();
+ }
+ return($self->{rm});
+ }
+
+ ######################################################################
+ #load_RelationManager
+ ######################################################################
+ sub load_RelationManager{
+ require Affelio::Managing::RelationManager;
+
+ my $self = shift;
+ try{
+ $self->{rm} = new Affelio::Managing::RelationManager($self);
+ }catch Error with {
+ my $ex = shift;
+ if($self->{mode} ne "init"){
+ throw Affelio::exception::SystemException("Cannot load RelationManager: $ex");
+ }
+ };
+ }
+
+ ######################################################################
#getFM
######################################################################
sub getFM{