The R Project SVN R

Rev

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

Rev 6098 Rev 6173
Line 39... Line 39...
39 
    my $retval = "<HTML><HEAD><TITLE>R: $title</TITLE></HEAD>\n" .
 39 
    my $retval = "<HTML><HEAD><TITLE>R: $title</TITLE></HEAD>\n" .
40 
	"<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" " .
 40 
	"<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" " .
41 
	"LINK=\"#0000F0\" VLINK=\"#660066\" ALINK=\"#FF0000\" " .
 41 
	"LINK=\"#0000F0\" VLINK=\"#660066\" ALINK=\"#FF0000\" " .
42 
	"BACKGROUND=\"white\">\n" .
 42 
	"BACKGROUND=\"white\">\n" .
43 
	"<h1 align=center>\n" .
 43 
	"<h1 align=center>\n" .
44 
        "<FONT FACE=\"Courier New,Courier\" COLOR=\"#999999\" " .
 44 
        "<FONT COLOR=\"#999999\" " .
45 
        "size=\"+3\"><b>\n" .
 45 
        "size=\"+3\"><tt>\n" .
46 
        "$title\n" .
 46 
        "$title\n" .
47 
        "</b></FONT><img src=\"$top/logo.jpg\" alt=\"[R logo]\" align=center></h1>\n\n" .
 47 
        "</tt></FONT><img src=\"$top/logo.jpg\" alt=\"[R logo]\" align=center></h1>\n\n" .
48 
        "<hr>\n\n" .
 48 
        "<hr>\n\n" .
49 
        "<div align=center>\n";
 49 
        "<div align=center>\n";
50 
 
 50 
 
51 
    $retval .= "<A HREF=\"$prev\"><IMG SRC=\"$top/left.jpg\"\n" .
 51 
    $retval .= "<A HREF=\"$prev\"><IMG SRC=\"$top/left.jpg\"\n" .
52 
	"ALT=\"[$prevtext]\" WIDTH=30 HEIGHT=30 BORDER=0></A>\n"
 52 
	"ALT=\"[$prevtext]\" WIDTH=30 HEIGHT=30 BORDER=0></A>\n"
Line 100... Line 100...
100 
sub html_title2
 100 
sub html_title2
101 
{
 101 
{
102 
    my $title = $_[0];
 102 
    my $title = $_[0];
103 
 
 103 
 
104 
    if($opt_chm) {
 104 
    if($opt_chm) {
105 
    "\n<h2 align=center><FONT FACE=\"Courier New,Courier\" " .
 105 
	"\n<h2 align=center><FONT COLOR=\"#0000FF\">" .
106 
	"COLOR=\"#0000FF\">$title</FONT></h2>\n\n";
 106 
	    "<tt>$title</tt></FONT></h2>\n\n";
107 
    } else {
 107 
    } else {
108 
	"\n<h2 align=center><FONT FACE=\"Courier New,Courier\" " .
 108 
	"\n<h2 align=center><FONT COLOR=\"#999999\">" .
109 
	    "COLOR=\"#999999\">$title</FONT></h2>\n\n";
 109 
	    "<tt>$title</tt></FONT></h2>\n\n";
110 
    }
 110 
    }
111 
}
 111 
}
112 
 
 112 
 
113 
sub html_title3
 113 
sub html_title3
114 
{
 114 
{
115 
    my $title = $_[0];
 115 
    my $title = $_[0];
116 
 
 116 
 
117 
    if($opt_chm) {
 117 
    if($opt_chm) {
118 
	"\n<h3><FONT FACE=\"Courier New,Courier\" " .
 118 
	"\n<h3><FONT COLOR=\"#666666\">" .
119 
	"COLOR=\"#666666\">$title</FONT></h3>\n\n";
 119 
	    "<tt>$title</tt></FONT></h3>\n\n";
120 
    } else {
 120 
    } else {
121 
	"\n<h2><FONT FACE=\"Courier New,Courier\" " .
 121 
	"\n<h2><FONT COLOR=\"#666666\">" .
122 
	"COLOR=\"#666666\">$title</FONT></h2>\n\n";
 122 
	    "<tt>$title</tt></FONT></h2>\n\n";
123 
    }
 123 
    }
124 
}
 124 
}
125 
 
 125 
 
126 
sub html_alphabet
 126 
sub html_alphabet
127 
{
 127 
{
Line 162... Line 162...
162 
    my $retval = "<HTML><HEAD><TITLE>$title</TITLE></HEAD>\n" .
 162 
    my $retval = "<HTML><HEAD><TITLE>$title</TITLE></HEAD>\n" .
163 
	"<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" " .
 163 
	"<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" " .
164 
	"LINK=\"#0000F0\" VLINK=\"#660066\" ALINK=\"#FF0000\" " .
 164 
	"LINK=\"#0000F0\" VLINK=\"#660066\" ALINK=\"#FF0000\" " .
165 
	"BACKGROUND=\"white\">\n" .
 165 
	"BACKGROUND=\"white\">\n" .
166 
	"<h1 align=center>\n" .
 166 
	"<h1 align=center>\n" .
167 
        "<FONT FACE=\"Courier New,Courier\" COLOR=\"#999999\" " .
 167 
        "<FONT COLOR=\"#999999\" " .
168 
        "size=\"+3\"><b>\n" .
 168 
        "size=\"+3\"><tt>\n" .
169 
        "$title\n" .
 169 
        "$title\n" .
170 
        "</b></FONT><img src=\"logo.jpg\" alt=\"[R logo]\" align=center></h1>\n\n" .
 170 
        "</tt></FONT><img src=\"logo.jpg\" alt=\"[R logo]\" align=center></h1>\n\n" .
171 
        "<hr>\n\n";
 171 
        "<hr>\n\n";
172 
    $retval .= "<OBJECT TYPE=\"application/x-oleobject\" CLASSID=\"clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e\">\n";
 172 
    $retval .= "<OBJECT TYPE=\"application/x-oleobject\" CLASSID=\"clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e\">\n";
173 
    $retval .= "<PARAM NAME=\"Keyword\" VALUE=\".. Contents\">\n" .
 173 
    $retval .= "<PARAM NAME=\"Keyword\" VALUE=\".. Contents\">\n" .
174 
	"</OBJECT>\n\n";
 174 
	"</OBJECT>\n\n";
175 
    $retval;
 175 
    $retval;