Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 3880d657

Von Sven Schöling vor etwa 12 Jahren hinzugefügt

  • ID 3880d6570d3ee1d0f26e54887defcf49f359b9a9
  • Vorgänger d2c9cb3b
  • Nachfolger 6eb48ef9

Erste Version Frameless

Unterschiede anzeigen:

SL/Form.pm
489 489

  
490 490
  $::lxdebug->leave_sub and return if !$ENV{HTTP_USER_AGENT} || $self->{header}++;
491 491

  
492
  my $layout;
493
  $layout = $self->layout unless $params{no_menu};
494

  
492 495
  my $css_path = $self->get_stylesheet_for_user;
493 496

  
494 497
  $self->{favicon} ||= "favicon.ico";
......
516 519
  push @header, sprintf "<script type='text/javascript'>top.document.title='%s';</script>",
517 520
    join ' - ', grep $_, $self->{title}, $self->{login}, $::myconfig{dbname}, $self->{version} if $self->{title};
518 521

  
519
  # if there is a title, we put some JavaScript in to the page, wich writes a
520
  # meaningful title-tag for our frameset.
521
  my $title_hack = '';
522
  if ($self->{title}) {
523
    $title_hack = qq|
524
    <script type="text/javascript">
525
    <!--
526
      // Write a meaningful title-tag for our frameset.
527
      top.document.title="| . $self->{"title"} . qq| - | . $self->{"login"} . qq| - | . $::myconfig{dbname} . qq| - V| . $self->{"version"} . qq|";
528
    //-->
529
    </script>|;
530
  }
531

  
532 522
  my  %doctypes = (
533 523
    strict       => qq|<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">|,
534 524
    transitional => qq|<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">|,
......
557 547

  
558 548
  </script>
559 549
  $params{extra_code}
560
  $title_hack
561 550
 </head>
551
 <body>
562 552

  
563 553
EOT
554
  print $layout;
555

  
556
  print "<div id='content'>\n";
564 557

  
565 558
  $::lxdebug->leave_sub;
566 559
}
......
3590 3583
  $::myconfig{numberformat} = $saved_numberformat;
3591 3584
}
3592 3585

  
3586
sub layout {
3587
  my ($self) = @_;
3588
  $::lxdebug->enter_sub;
3589

  
3590
  my %style_to_script_map = (
3591
    v3  => 'v3',
3592
    neu => 'new',
3593
    v4  => 'v4',
3594
  );
3595

  
3596
  my $menu_script = $style_to_script_map{$::myconfig{menustyle}} || '';
3597

  
3598
  package main;
3599
  require "bin/mozilla/menu$menu_script.pl";
3600
  package Form;
3601
  require SL::Controller::FrameHeader;
3602

  
3603

  
3604
  my $layout = SL::Controller::FrameHeader->new->action_header . ::render();
3605

  
3606
  $::lxdebug->leave_sub;
3607
  return $layout;
3608
}
3609

  
3593 3610
1;
3594 3611

  
3595 3612
__END__

Auch abrufbar als: Unified diff