Revision 3880d657
Von Sven Schöling vor etwa 12 Jahren hinzugefügt
| 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
Erste Version Frameless