cvs commit: p5ee/P5EEx/Blue/P5EEx/Blue/Context HTML.pm

[spadkins]

cvsuser     02/02/08 12:47:19

  Modified:    P5EEx/Blue/P5EEx/Blue/Context HTML.pm
  Log:
  pick up attributes for wrapper HTML in display_items()
  
  Revision  Changes    Path
  1.4       +6 -3      p5ee/P5EEx/Blue/P5EEx/Blue/Context/HTML.pm
  
  Index: HTML.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Context/HTML.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -w -r1.3 -r1.4
  --- HTML.pm   5 Feb 2002 22:18:49 -0000       1.3
  +++ HTML.pm   8 Feb 2002 20:47:19 -0000       1.4
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: HTML.pm,v 1.3 2002/02/05 22:18:49 spadkins Exp $
  +## $Id: HTML.pm,v 1.4 2002/02/08 20:47:19 spadkins Exp $
   #############################################################################
   
   package P5EEx::Blue::Context::HTML;
  @@ -151,8 +151,12 @@
   
       $cgi = $self->{cgi};
   
  +    $title = "Perl 5 Enterprise Environment";
       $bodyoptions = "";
  -    if ($w) {
  +    $w = $_[0] if ($#_ > -1);
  +    if ($w && ref($w) && $w->isa("P5EEx::Blue::Widget")) {
  +        $title = $w->get("title");
  +        $title = $w->get("name") if (!$title);
           foreach $var ('bgcolor', 'text', 'link', 'vlink', 'alink',
                         'leftmargin', 'topmargin', 'rightmargin', 'bottommargin', 
'class') {
               $value = $w->get($var);
  @@ -167,7 +171,6 @@
   
       $wc_body = $self->body_html(\%main::conf);
       $wc_head = $self->head_html();
  -    $self->shutdown();
   
       my ($gzip, $accept_header, $header, $data);