[AppWrap-cvs] AppWrap/Apache/AppWrap Display.pm,1.8,1.9

[<pla...@us...>]

Update of /cvsroot/appwrap/AppWrap/Apache/AppWrap
In directory sc8-pr-cvs1:/tmp/cvs-serv13147

Modified Files:
	Display.pm 
Log Message:
Fixed bug in handling of i18n subtitles

Index: Display.pm
===================================================================
RCS file: /cvsroot/appwrap/AppWrap/Apache/AppWrap/Display.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Display.pm	9 Dec 2002 10:06:32 -0000	1.8
--- Display.pm	30 Dec 2002 09:31:17 -0000	1.9
***************
*** 14,24 ****
  use Apache::AppWrap::Subs qw($dbh $HNL);
  use vars qw($VERSION);
! $Apache::AppWrap::Display::VERSION = '0.04';
   
  ############################
! # 16 Nov 02.	use warnings pragma; split on optional whitespace for vbar subs.
! # 13 Nov 02.	i18n
! # 05 Nov 02.	Comply with HEAD requests
! # 02 Jan 02.	Created.
  ############################
  sub handler {
--- 14,25 ----
  use Apache::AppWrap::Subs qw($dbh $HNL);
  use vars qw($VERSION);
! $Apache::AppWrap::Display::VERSION = '0.05';
   
  ############################
! # 28Dec02.	Fixed bug in handling of subtitle
! # 16Nov02.	use warnings pragma; split on optional whitespace for vbar subs.
! # 13Nov02.	i18n
! # 05Nov02.	Comply with HEAD requests
! # 02Jan02.	Created.
  ############################
  sub handler {
***************
*** 56,67 ****
    $opts->{new_url} = '/' . $table . '/add?kv=' . $kv_esc;
  
!   # subtitle handled by &paginator
! 
!   # assign messages for &paginator alt tags. This allows &paginator to 
!   # be called by &display, &focus and by &list, while retaining 
!   # context sensitivity.
! #  foreach (keys %{ $my_exceptions->{$table}{display} }) {
! #    $msgs->{$_} = $my_exceptions->{$table}{display}{$_} if $_ =~ /^alt_/;
! #  }
  
    # tell paginator about any per column function assigned in the db.
--- 57,67 ----
    $opts->{new_url} = '/' . $table . '/add?kv=' . $kv_esc;
  
! 	# subtitle
! 	my %args = (
! 		'caller'	=> 'display',
! 		element		=> 'subtitle',
! 		label		=> $my_tables->{$table}{label},
! 	);
! 	$opts->{SubTitle} = Apache::AppWrap::Subs::chk_txt($opts, \%args);
  
    # tell paginator about any per column function assigned in the db.