version 1.1406, 2023/06/10 23:55:36
|
version 1.1407, 2023/06/11 20:45:35
|
Line 6369 Input: (optional) filename from which br
|
Line 6369 Input: (optional) filename from which br
|
If page header is being requested for use in a frameset, then |
If page header is being requested for use in a frameset, then |
the second (option) argument -- frameset will be true, and |
the second (option) argument -- frameset will be true, and |
the target attribute set for links should be target="_parent". |
the target attribute set for links should be target="_parent". |
|
If $title is supplied as the thitd arg, that will be used to |
|
the left of the breadcrumbs tail for the current path. |
|
|
Returns: HTML div with CSTR path and recent box |
Returns: HTML div with CSTR path and recent box |
To be included on Authoring Space pages |
To be included on Authoring Space pages |
Line 6376 Returns: HTML div with CSTR path and rec
|
Line 6378 Returns: HTML div with CSTR path and rec
|
=cut |
=cut |
|
|
sub CSTR_pageheader { |
sub CSTR_pageheader { |
my ($trailfile,$frameset,$title,$diraction) = @_; |
my ($trailfile,$frameset,$title) = @_; |
if ($trailfile eq '') { |
if ($trailfile eq '') { |
$trailfile = $env{'request.filename'}; |
$trailfile = $env{'request.filename'}; |
} |
} |
Line 6424 sub CSTR_pageheader {
|
Line 6426 sub CSTR_pageheader {
|
} |
} |
|
|
my $output = |
my $output = |
'<div style="display:inline-block">' |
'<div>' |
.&Apache::loncommon::help_open_menu('','',3,'Authoring') #FIXME: Broken? Where is it? |
.&Apache::loncommon::help_open_menu('','',3,'Authoring') #FIXME: Broken? Where is it? |
.'<b>'.$title.'</b> ' |
.'<b>'.$title.'</b> ' |
.'<form name="dirs" method="post" action="'.$formaction.'"'.$target.'>' |
.'<form name="dirs" method="post" action="'.$formaction.'"'.$target.'>' |
Line 6447 sub CSTR_pageheader {
|
Line 6449 sub CSTR_pageheader {
|
.'</form>' |
.'</form>' |
.&Apache::lonmenu::constspaceform($frameset); |
.&Apache::lonmenu::constspaceform($frameset); |
} |
} |
$output .= '</div>'.$diraction; |
$output .= '</div>'; |
|
|
return $output; |
return $output; |
} |
} |