[Openinteract-commits] CVS: OpenInteract/OpenInteract/Template Plugin.pm,1.14,1.15

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

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

Modified Files:
	Plugin.pm 
Log Message:
removed unused HTML generation sub; added one to retrieve users


Index: Plugin.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/Template/Plugin.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** Plugin.pm	2001/10/16 23:00:21	1.14
--- Plugin.pm	2001/10/18 02:11:24	1.15
***************
*** 123,127 ****
--- 123,129 ----
  }
  
+ 
  # Backward compatibility
+ 
  sub object_info { return object_description( @_ ); }
  
***************
*** 287,304 ****
  
  ########################################
! # HTML GENERATION (this will probably be bagged)
  ########################################
  
! sub form_text {
!     my ( $self, $p ) = @_;
!     my $MAXLENGTH = ( $p->{max} ) ? qq(maxlength="$p->{max}") : '';
!     my $VALIGN    = ( $p->{valign} ) ? qq(valign="$p->{valign}") : '';
!     my $BGCOLOR   = ( $p->{bgcolor} ) ? qq(bgcolor="$p->{bgcolor}") : '';
!     return <<ROW;
! <tr $VALIGN $BGCOLOR>
!    <td>$p->{pre_label}$p->{label}$p->{post_label}</td>
!    <td>$p->{pre_input}<input type="text" size="$p->{size}" $MAXLENGTH value="$p->{value}">$p->{post_input}</td>
! </tr>
! ROW
  }
  
--- 289,303 ----
  
  ########################################
! # DATA RETRIEVAL
  ########################################
  
! # TODO: Figure out how configure this to use a nice API to select only
! # certain users (e.g., pass in a group name, group API, beginning of a
! # last name, etc..
! 
! sub get_users {
!     my ( $self ) = @_;
!     my $R = OpenInteract::Request->instance;
!     return eval { $R->user->fetch_iterator({ order => 'login_name' }) };
  }