The R Project SVN R

Rev

Rev 6173 | Rev 6460 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6173 Rev 6348
Line 70... Line 70...
70 
 
 70 
 
71 
# The header & footer of a function page
 71 
# The header & footer of a function page
72 
 
 72 
 
73 
sub html_functionhead
 73 
sub html_functionhead
74 
{
 74 
{
75 
    my $title = $_[0];
 75 
    my ($title, $pkgname, $name) = @_;
76 
 
 76 
 
77 
    my $retval = "<HTML><HEAD><TITLE>R: $title</TITLE></HEAD>\n" .
 77 
    my $retval = "<HTML><HEAD><TITLE>R: $title</TITLE></HEAD>\n" .
78 
	"<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" " .
 78 
	"<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" " .
79 
	"LINK=\"#0000F0\" VLINK=\"#660066\" ALINK=\"#FF0000\" " .
 79 
	"LINK=\"#0000F0\" VLINK=\"#660066\" ALINK=\"#FF0000\" " .
80 
	"BACKGROUND=\"white\">\n\n";
 80 
	"BACKGROUND=\"white\">\n\n";
- 
 
 81 
 
- 
 
 82 
    if($pkgname){
- 
 
 83 
	$retval .= "<table width=100%><tr>" .
- 
 
 84 
	    "<td>$name($pkgname)</td>" .
- 
 
 85 
	    "<td align=right>R Documentation</td></tr></table><p>";
- 
 
 86 
    }
81
87
82 
    $retval .= html_title2($title);
 88 
    $retval .= html_title2($title);
83 
 
 89 
 
84 
}
 90 
}
85 
 
 91 
 
Line 175... Line 181...
175 
    $retval;
 181 
    $retval;
176 
}
 182 
}
177 
 
 183 
 
178 
sub chm_functionhead
 184 
sub chm_functionhead
179 
{
 185 
{
180 
    my ($title)  = @_;
 186 
    my ($title, $pkgname, $name) = @_;
181 
 
 187 
 
182 
    my $retval = "<HTML><HEAD><TITLE>$title</TITLE></HEAD>\n" .
 188 
    my $retval = "<HTML><HEAD><TITLE>$title</TITLE></HEAD>\n" .
183 
	"<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" " .
 189 
	"<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" " .
184 
	"LINK=\"#0000F0\" VLINK=\"#660066\" ALINK=\"#FF0000\" " .
 190 
	"LINK=\"#0000F0\" VLINK=\"#660066\" ALINK=\"#FF0000\" " .
185 
	"BACKGROUND=\"white\">\n\n";
 191 
	"BACKGROUND=\"white\">\n\n";
- 
 
 192 
 
- 
 
 193 
    if($pkgname){
- 
 
 194 
	$retval .= "<table width=100%><tr>" .
- 
 
 195 
	    "<td>$name($pkgname)</td>" .
- 
 
 196 
	    "<td align=right>R Documentation</td></tr></table><p>";
- 
 
 197 
    }
186
198
187 
    $retval .= "<OBJECT TYPE=\"application/x-oleobject\" CLASSID=\"clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e\">\n";
 199 
    $retval .= "<OBJECT TYPE=\"application/x-oleobject\" CLASSID=\"clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e\">\n";
188 
    foreach(@aliases) {
 200 
    foreach(@aliases) {
189 
#	print "alias: $_\n";
 201 
#	print "alias: $_\n";
190 
	$retval .= "<PARAM NAME=\"Keyword\" VALUE=\"R:   $_\">\n";
 202 
	$retval .= "<PARAM NAME=\"Keyword\" VALUE=\"R:   $_\">\n";