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