version 1.51, 2006/03/07 21:47:06
|
version 1.52, 2006/03/15 19:41:26
|
Line 54 sub fail {
|
Line 54 sub fail {
|
|
|
sub start_page { |
sub start_page { |
my ($r,$title)=@_; |
my ($r,$title)=@_; |
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(&Apache::loncommon::start_page($title)); |
$r->print($html.'<head><title>'.&mt($title).'</title></head>'); |
|
$r->print(&Apache::loncommon::bodytag($title)); |
|
} |
} |
|
|
sub end_page { |
sub end_page { |
my ($r)=@_; |
my ($r)=@_; |
$r->print(&Apache::loncommon::endbodytag().'</html>'); |
$r->print(&Apache::loncommon::end_page()); |
} |
} |
|
|
=pod |
=pod |