[Openinteract-commits] CVS: OpenInteract/OpenInteract CommonHandler.pm,1.28,1.29

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract/OpenInteract
In directory usw-pr-cvs1:/tmp/cvs-serv20853

Modified Files:
	CommonHandler.pm 
Log Message:
added stub for _remove_customize(); in remove(), call ->id_field()
against the right class (thx to Andreas Nolte for both)


Index: CommonHandler.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/CommonHandler.pm,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** CommonHandler.pm	2001/11/06 04:25:07	1.28
--- CommonHandler.pm	2001/12/01 15:25:38	1.29
***************
*** 606,611 ****
      my $object_type  = $class->MY_OBJECT_TYPE;
      my $object_class = $class->MY_OBJECT_CLASS;
!     my $id_field     = $class->id_field;
!     my $object = eval { $class->fetch_object( $p->{ $id_field }, $id_field ) };
  
      return $class->search_form({ error_msg => $@ }) if ( $@ );
--- 606,612 ----
      my $object_type  = $class->MY_OBJECT_TYPE;
      my $object_class = $class->MY_OBJECT_CLASS;
!     my $id_field     = $object_class->id_field;
!     my $object       = eval { $class->fetch_object( $p->{ $id_field },
!                                                     $id_field ) };
  
      return $class->search_form({ error_msg => $@ }) if ( $@ );
***************
*** 938,942 ****
  sub _fetch_object_customize       { return $_[1] }
  sub _edit_customize               { return ( OK, undef ) }
! 
  
  
--- 939,943 ----
  sub _fetch_object_customize       { return $_[1] }
  sub _edit_customize               { return ( OK, undef ) }
! sub _remove_customize             { return 1 }