annotate mayachemtools/lib/HTMLUtil.pm @ 2:dfff2614510e draft

Deleted selected files
author deepakjadmin
date Wed, 20 Jan 2016 12:15:15 -0500
parents 73ae111cf86f
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1 package HTMLUtil;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3 # $RCSfile: HTMLUtil.pm,v $
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
4 # $Date: 2015/02/28 20:47:17 $
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
5 # $Revision: 1.42 $
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
6 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
7 # Author: Manish Sud <msud@san.rr.com>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
8 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
9 # Copyright (C) 2015 Manish Sud. All rights reserved.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
10 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
11 # This file is part of MayaChemTools.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
12 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
13 # MayaChemTools is free software; you can redistribute it and/or modify it under
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
14 # the terms of the GNU Lesser General Public License as published by the Free
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
15 # Software Foundation; either version 3 of the License, or (at your option) any
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
16 # later version.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
17 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
18 # MayaChemTools is distributed in the hope that it will be useful, but without
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
19 # any warranty; without even the implied warranty of merchantability of fitness
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
20 # for a particular purpose. See the GNU Lesser General Public License for more
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
21 # details.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
22 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
23 # You should have received a copy of the GNU Lesser General Public License
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
24 # along with MayaChemTools; if not, see <http://www.gnu.org/licenses/> or
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
25 # write to the Free Software Foundation Inc., 59 Temple Place, Suite 330,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
26 # Boston, MA, 02111-1307, USA.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
27 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
28
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
29 use strict;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
30 use Exporter;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
31
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
32 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
33
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
34 @ISA = qw(Exporter);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
35 @EXPORT = qw(InsertHTMLTags SetupHTMLAlignmentBegin SetupHTMLAlignmentEnd SetupHTMLButtonRef SetupHTMLDivBegin SetupHTMLDivEnd SetupHTMLEmptyLines SetupHTMLPageHeader SetupHTMLHRef SetupHTMLPageEnd SetupHTMLPageTitle SetupHTMLStyleSheetTags SetupHTMLTableHeader SetupHTMLTableEnd SetupHTMLTableColumnHeader SetupHTMLTableColumnEnd SetupHTMLTableRowHeader SetupHTMLTableRowEnd SetupHTMLTableRowHeaderValue SetupHTMLTableRowDataValue SetupJavaScriptCmds SetupStrViewerJSInitCmd SetupStrViewerJMEApplet SetupStrViewerJmolApplet SetupStrViewerChimePlugIn SetupStrViewerChem3DActiveX SetupStrViewerChemDrawActiveX SetupStrViewerChemDrawPlugIn SetupStrViewerMarvinViewApplet SetupStrViewerAccelrysActiveX);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
36 @EXPORT_OK = qw();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
37
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
38 %EXPORT_TAGS = (all => [@EXPORT, @EXPORT_OK]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
39
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
40 # Default window size for various supported structure viewers...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
41 my($StrViewerWidth, $StrViewerHeight) = (250, 170);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
42
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
43 # Insert specfied tags into existing tag string...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
44 sub InsertHTMLTags {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
45 my($Tag, %TagsMap) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
46 my($NewTag, $TagName, $TagValue, $TagPart1, $TagPart2);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
47
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
48 $NewTag = $Tag; $TagPart1 = ""; $TagPart2 = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
49 ($TagPart1) = $Tag =~ /^(.*?)>/;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
50
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
51 if ($TagPart1 && length($TagPart1)) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
52 $TagPart2 = $Tag;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
53 $TagPart2 =~ s/^(.*?)>//;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
54 if ($TagPart2 && length($TagPart2)) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
55 for $TagName (keys %TagsMap) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
56 $TagValue = $TagsMap{$TagName};
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
57 $TagPart1 .= qq( $TagName="$TagValue" );
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
58 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
59 $NewTag = "${TagPart1}>${TagPart2}";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
60 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
61 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
62
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
63 return $NewTag;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
64 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
65
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
66 sub SetupHTMLAlignmentBegin {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
67 my($AlignmentTag, $Alignment);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
68
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
69 $Alignment = (@_ == 1) ? $_[0] : "left";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
70 $AlignmentTag = qq(<$Alignment>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
71
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
72 return $AlignmentTag;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
73 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
74
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
75 sub SetupHTMLAlignmentEnd {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
76 my($AlignmentTag, $Alignment);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
77
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
78 $Alignment = (@_ == 1) ? $_[0] : "left";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
79 $AlignmentTag = qq(</$Alignment>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
80
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
81 return $AlignmentTag;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
82 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
83
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
84 # Setup a button reference...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
85 sub SetupHTMLButtonRef {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
86 my($ButtonLabel, $RefFile, $ButtonTags);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
87
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
88 ($ButtonLabel, $RefFile) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
89
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
90 $ButtonTags = qq(<input type="button" value="$ButtonLabel" onClick="document.location='$RefFile'">);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
91 return $ButtonTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
92 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
93
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
94 sub SetupHTMLDivBegin {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
95 my($Id) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
96 my($DivTag);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
97
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
98 $DivTag = qq(<div id="$Id">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
99
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
100 return $DivTag;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
101 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
102
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
103 sub SetupHTMLDivEnd {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
104 my($DivTag);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
105
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
106 $DivTag = qq(</div>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
107
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
108 return $DivTag;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
109 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
110 sub SetupHTMLEmptyLines {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
111 my($LineCount, $Index, $EmptyLineTags);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
112
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
113 $LineCount = 1;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
114 $EmptyLineTags = qq(<p>&nbsp</p>);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
115 ($LineCount) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
116 if ($LineCount > 1) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
117 for $Index (2 .. $LineCount) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
118 $EmptyLineTags .= qq(<p>&nbsp</p>);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
119 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
120 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
121 return $EmptyLineTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
122 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
123
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
124 # Setup HTML page header...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
125 sub SetupHTMLPageHeader {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
126 my($HeaderTitle, $Stylesheet, $JavaScript, $PageHeader);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
127
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
128 $HeaderTitle = ""; $Stylesheet = ""; $JavaScript = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
129 if (@_ == 3) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
130 ($HeaderTitle, $Stylesheet, $JavaScript) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
131 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
132 elsif (@_ == 2) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
133 ($HeaderTitle, $Stylesheet) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
134 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
135 else {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
136 ($HeaderTitle) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
137 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
138 $PageHeader = qq(<html>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
139 $PageHeader .= qq(<head>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
140 $PageHeader .= qq(<title>$HeaderTitle</title>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
141 $PageHeader .= qq(<meta http-equiv="content-type" content="text/html;charset=utf-8">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
142 if ($Stylesheet) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
143 $PageHeader .= qq(<link rel="stylesheet" type="text/css" href="$Stylesheet">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
144 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
145 if ($JavaScript) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
146 $PageHeader .= qq(<script src="$JavaScript"></script>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
147 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
148 $PageHeader .= <<ENDPAGEHEADER;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
149 </head>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
150 <body>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
151 <p>&nbsp</p>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
152 ENDPAGEHEADER
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
153
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
154 return $PageHeader;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
155 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
156
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
157 # Setup page title...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
158 sub SetupHTMLPageTitle {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
159 my($Title, $Alignment, $PageTitle);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
160
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
161 $Alignment = "center";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
162 if (@_ == 2) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
163 ($Title, $Alignment) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
164 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
165 else {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
166 ($Title) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
167 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
168
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
169 $PageTitle=<<ENDPAGETITLE;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
170 <$Alignment>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
171 <h3>$Title</h3>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
172 </$Alignment>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
173 ENDPAGETITLE
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
174
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
175 return $PageTitle;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
176 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
177
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
178 # Setup HTML page end...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
179 sub SetupHTMLPageEnd {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
180 my($PageEnd, $Footer);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
181
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
182 $Footer = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
183 if (@_ == 1) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
184 ($Footer) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
185 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
186 if ($Footer) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
187 $Footer = qq(<span class="Footer">$Footer</span>);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
188 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
189 $PageEnd=<<ENDPAGE;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
190 <center>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
191 <p>&nbsp</p>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
192 $Footer
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
193 </center>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
194 </body>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
195 </html>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
196 ENDPAGE
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
197
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
198 return $PageEnd;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
199 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
200
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
201 # Setup HTML link tags...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
202 sub SetupHTMLHRef {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
203 my($Value, $RefFile, $HRef, $Title);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
204
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
205 $Title = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
206 if (@_ == 3) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
207 ($Value, $RefFile, $Title) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
208 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
209 else {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
210 ($Value, $RefFile) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
211 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
212
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
213 $HRef = qq(<a href="$RefFile");
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
214 if ($Title) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
215 $HRef .= qq( title="$Title");
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
216 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
217 $HRef .= qq(>$Value</a>);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
218 return $HRef;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
219 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
220
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
221 #
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
222 sub SetupHTMLStyleSheetTags {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
223 my($StyleSheetTags);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
224
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
225 $StyleSheetTags=<<ENDSTYLESHEET;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
226 body
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
227 {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
228 background-color: #ffffff;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
229 font-family: Verdana, Arial, Helvetica, sans-serif;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
230 font-size: 11px;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
231 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
232 p
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
233 {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
234 font-family: Verdana, Arial, Helvetica, sans-serif;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
235 font-size: 11px;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
236 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
237 h1
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
238 {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
239 font-family: Verdana, Arial, Helvetica, sans-serif;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
240 font-size: 25px;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
241 font-weight: bold;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
242 color: #0054aa;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
243 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
244 h2
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
245 {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
246 font-family: Verdana, Arial, Helvetica, sans-serif;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
247 font-size: 18px;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
248 font-weight: bold;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
249 color: #0054aa;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
250 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
251 h3
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
252 {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
253 font-family: Verdana, Arial, Helvetica, sans-serif;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
254 font-size: 14px;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
255 font-weight: bold;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
256 color: #0054aa;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
257 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
258 b
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
259 {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
260 font-weight: bold;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
261 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
262 td
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
263 {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
264 font-family: Verdana, Arial, Helvetica, sans-serif;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
265 font-size: 11px;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
266 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
267 th
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
268 {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
269 font-family: Verdana, Arial, Helvetica, sans-serif;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
270 font-size: 11px;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
271 color: #0054aa;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
272 font-weight: bold;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
273 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
274 .box {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
275 border-color: #000000;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
276 border-style: solid;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
277 border-top-width: 1px;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
278 border-bottom-width: 1px;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
279 border-left-width: 1px;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
280 border-right-width: 1px;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
281 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
282 a
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
283 {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
284 color: #0000bb;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
285 text-decoration: none;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
286 font-family: Verdana, Arial, Helvetica, sans-serif;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
287 font-size: 11px;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
288 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
289 a:hover
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
290 {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
291 color: #ff0000;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
292 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
293 #tablenav {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
294 font-family: Verdana, Arial, Helvetica, sans-serif;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
295 font-size: 11px;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
296 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
297 #tablenav td
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
298 {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
299 font-family: Verdana, Arial, Helvetica, sans-serif;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
300 font-size: 11px;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
301 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
302 #tablenav th
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
303 {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
304 font-family: Verdana, Arial, Helvetica, sans-serif;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
305 font-size: 11px;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
306 font-weight: bold;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
307 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
308 #tablenav a
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
309 {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
310 color: #0000bb;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
311 text-decoration: none;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
312 font-family: Verdana, Arial, Helvetica, sans-serif;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
313 font-size: 11px;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
314 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
315 #tablenav a:hover
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
316 {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
317 color: #ff0000;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
318 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
319 .footer
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
320 {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
321 font-family: Arial, Verdana, Helvetica, sans-serif;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
322 font-size: 9px;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
323 color: #888888;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
324 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
325 ENDSTYLESHEET
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
326
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
327 return $StyleSheetTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
328 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
329
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
330 # Setup HTML table header...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
331 sub SetupHTMLTableHeader {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
332 my($TableHeader, $BorderWidth, $CellPadding, $CellSpacing, $Width, $Height);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
333
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
334 $BorderWidth = 1; $CellPadding = 2; $CellSpacing = 0; $Width = ""; $Height = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
335 if (@_ == 5) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
336 ($BorderWidth, $CellPadding, $CellSpacing, $Width, $Height) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
337 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
338 elsif (@_ == 4) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
339 ($BorderWidth, $CellPadding, $CellSpacing, $Width) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
340 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
341 elsif (@_ == 3) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
342 ($BorderWidth, $CellPadding, $CellSpacing) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
343 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
344 elsif (@_ == 2) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
345 ($BorderWidth, $CellPadding) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
346 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
347 elsif (@_ = 1) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
348 ($BorderWidth) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
349 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
350 $TableHeader = qq(<table border=$BorderWidth cellpadding=$CellPadding cellspacing=$CellSpacing);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
351 if ($Width) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
352 $TableHeader .= qq( width=$Width);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
353 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
354 if ($Height) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
355 $TableHeader .= qq( height=$Height);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
356 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
357 $TableHeader .= qq(>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
358
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
359 return $TableHeader;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
360 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
361
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
362 # Setup HTML table end...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
363 sub SetupHTMLTableEnd {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
364 my($TableEnd);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
365
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
366 $TableEnd=<<ENDTABLE;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
367 </table>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
368 ENDTABLE
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
369
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
370 return $TableEnd;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
371 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
372
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
373 # Setup HTML table column header...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
374 sub SetupHTMLTableColumnHeader {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
375 my($BgColor, $Width, $ColumnHeader);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
376
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
377 $BgColor = ""; $Width = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
378 if (@_ == 1) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
379 ($BgColor) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
380 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
381 elsif (@_ == 2) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
382 ($BgColor, $Width) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
383 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
384 $ColumnHeader = qq(<td);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
385 if ($BgColor) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
386 $ColumnHeader .= qq( bgcolor="$BgColor")
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
387 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
388 if ($Width) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
389 $ColumnHeader .= qq( width="$Width")
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
390 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
391 $ColumnHeader .= qq(>);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
392 return $ColumnHeader;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
393 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
394
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
395 # Setup HTML table column end...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
396 sub SetupHTMLTableColumnEnd {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
397 my($ColumnEnd);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
398
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
399 $ColumnEnd = qq(</td>);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
400 return $ColumnEnd;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
401 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
402
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
403 # Setup HTML table row header...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
404 sub SetupHTMLTableRowHeader {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
405 my($RowHeader, $HAlignment, $BgColor, $VAlignment);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
406
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
407 $HAlignment = "center"; $BgColor = ""; $VAlignment = "top";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
408 if (@_ == 3) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
409 ($HAlignment, $BgColor, $VAlignment) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
410 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
411 elsif (@_ == 2) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
412 ($HAlignment, $BgColor) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
413 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
414 elsif (@_ == 1) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
415 ($HAlignment) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
416 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
417 if ($BgColor) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
418 $RowHeader = qq(<tr bgcolor="$BgColor" align="$HAlignment" valign="$VAlignment">);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
419 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
420 else {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
421 $RowHeader = qq(<tr align="$HAlignment" valign="$VAlignment">);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
422 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
423
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
424 return $RowHeader;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
425 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
426
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
427 # Setup HTML table row end...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
428 sub SetupHTMLTableRowEnd {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
429 my($RowEnd);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
430
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
431 $RowEnd = qq(</tr>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
432 return $RowEnd;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
433 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
434
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
435 # Setup HTML table header values...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
436 sub SetupHTMLTableRowHeaderValue {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
437 my($HeaderValue, $Value);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
438
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
439 $Value = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
440 if (@_ >= 1) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
441 ($Value) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
442 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
443 if (defined $Value && length $Value) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
444 $HeaderValue = qq(<th>$Value</th>);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
445 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
446 else {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
447 $HeaderValue = qq(<th>&nbsp</th>);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
448 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
449 return $HeaderValue;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
450 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
451
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
452 # Setup HTML table row data values...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
453 sub SetupHTMLTableRowDataValue {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
454 my($RowValues, $Value, $BgColor, $FontColor, $FontBold, $FontBoldTag1, $FontBoldTag2);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
455
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
456 $Value = ""; $BgColor = ""; $FontColor = ""; $FontBold = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
457 if (@_ == 1) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
458 ($Value) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
459 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
460 elsif (@_ == 2) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
461 ($Value, $BgColor) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
462 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
463 elsif (@_ == 3) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
464 ($Value, $BgColor, $FontColor) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
465 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
466 elsif (@_ == 4) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
467 ($Value, $BgColor, $FontColor, $FontBold) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
468 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
469 if (!(defined $Value && length $Value)) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
470 $Value = qq(&nbsp);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
471 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
472 $FontBoldTag1 = ""; $FontBoldTag2 = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
473 if ($FontBold) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
474 $FontBoldTag1 = qq(<b>);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
475 $FontBoldTag2 = qq(</b>);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
476 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
477 if ($BgColor || $FontColor) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
478 my ($BgColorTag, $FontTag1, $FontTag2);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
479
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
480 $BgColorTag = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
481 if ($BgColor) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
482 $BgColorTag = qq( bgcolor="$BgColor");
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
483 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
484 $FontTag1 = ""; $FontTag2 = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
485 if ($FontColor) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
486 $FontTag1 = qq(<font color="$FontColor">);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
487 $FontTag2 = qq(</font>);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
488 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
489 if ($FontBold) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
490 $RowValues = "<td" . $BgColorTag . ">" . $FontBoldTag1 . $FontTag1 . "$Value" . $FontTag2 . $FontBoldTag2 . "</td>";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
491 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
492 else {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
493 $RowValues = "<td" . $BgColorTag . ">" . $FontTag1 . "$Value" . $FontTag2 . "</td>";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
494 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
495 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
496 elsif ($FontBold) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
497 $RowValues = "<td>" . $FontBoldTag1 . "$Value" . $FontBoldTag2 . "</td>";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
498 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
499 else {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
500 $RowValues = qq(<td>$Value</td>);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
501 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
502 return $RowValues;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
503 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
504
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
505 # Setup Java scripts command...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
506 sub SetupJavaScriptCmds {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
507 my(@JSCmdList) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
508 my($JSTags, $JSCmd);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
509
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
510 $JSTags = qq(<script>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
511 for $JSCmd (@JSCmdList) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
512 $JSTags .= qq($JSCmd\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
513 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
514 $JSTags .= qq(</script>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
515
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
516 return $JSTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
517 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
518
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
519 # Setup Java script initialize command...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
520 sub SetupStrViewerJSInitCmd {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
521 my($StrViewerType, $CodeBase) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
522 my($JSTag);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
523
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
524 $JSTag = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
525 if ($StrViewerType eq "Jmol") {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
526 $JSTag = qq(<script>jmolInitialize("$CodeBase", "JmolApplet.jar");</script>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
527 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
528 elsif ($StrViewerType eq "ChemDrawPlugIn" || $StrViewerType eq "ChemDrawActiveX") {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
529 $JSTag = qq(<script>cd_includeWrapperFile("$CodeBase/");</script>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
530 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
531 elsif ($StrViewerType eq "Chem3DActiveX") {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
532 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
533 return $JSTag;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
534 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
535
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
536
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
537 # Setup Jmol applet...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
538 sub SetupStrViewerJmolApplet {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
539 my($MolString, $CodeBase, $ParamsMapRef, %ParamsMap, $AppletTags, $JavaScriptTags, $ReturnTags, $Name, $Code, $Archive, $Width, $Height, $ParamName, $ParamValue, $JSFileName, $UseJavaScript);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
540 my($ProgressBar, $ProgressColor, $BoxMessage, $BoxFgColor, $BoxBgColor, $BgColor, $JMolScript);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
541
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
542 $AppletTags = ""; $JavaScriptTags = ""; $ReturnTags = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
543 $ParamsMapRef = ""; %ParamsMap = ();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
544 $Name = "Jmol"; $Code = "JmolApplet"; $Archive = "JmolApplet.jar"; $Width = $StrViewerWidth; $Height = $StrViewerHeight;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
545 $ProgressBar = "true"; $ProgressColor = "#0000ff"; $BgColor = "#000000";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
546 $BoxMessage = "Setting up JmolApplet..."; $BoxFgColor = "#000000"; $BoxBgColor = "#ffffff";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
547 $UseJavaScript = 0; $JSFileName = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
548 $JMolScript = "select *; set frank off; wireframe on; spacefill off";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
549
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
550 PARAMS: {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
551 if (@_ == 3) { ($MolString, $CodeBase, $ParamsMapRef) = @_; last PARAMS; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
552 ($MolString, $CodeBase) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
553 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
554
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
555 if ($ParamsMapRef) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
556 %ParamsMap = %$ParamsMapRef;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
557 if (exists $ParamsMap{usejavascript} ) { $JSFileName = $ParamsMap{usejavascript}; $UseJavaScript = 1; $ParamsMap{usejavascript} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
558 if (exists $ParamsMap{name} ) { $Name = $ParamsMap{name}; $ParamsMap{name} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
559 if (exists $ParamsMap{code} ) { $Code = $ParamsMap{code}; $ParamsMap{code} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
560 # if (exists $ParamsMap{archive} ) { $Archive = $ParamsMap{archive}; $ParamsMap{archive} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
561 if (exists $ParamsMap{archive} ) { $ParamsMap{archive} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
562 if (exists $ParamsMap{height} ) { $Height = $ParamsMap{height}; $ParamsMap{height} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
563 if (exists $ParamsMap{width} ) { $Width = $ParamsMap{width}; $ParamsMap{width} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
564 if (exists $ParamsMap{progressbar} ) { $ProgressBar = $ParamsMap{progressbar}; $ParamsMap{progressbar} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
565 if (exists $ParamsMap{progresscolor} ) { $ProgressColor = $ParamsMap{progresscolor}; $ParamsMap{progresscolor} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
566 if (exists $ParamsMap{boxmessage} ) { $BoxMessage = $ParamsMap{boxmessage}; $ParamsMap{boxmessage} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
567 if (exists $ParamsMap{script} ) { $JMolScript = $ParamsMap{script}; $ParamsMap{script} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
568 if (exists $ParamsMap{bgcolor}) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
569 $BgColor = $ParamsMap{bgcolor};
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
570 if (length($BgColor)) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
571 if ($BgColor =~ /black/i || $BgColor =~ /#000000/ ) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
572 $BoxFgColor = "#ffffff";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
573 $BoxBgColor = "#000000";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
574 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
575 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
576 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
577 if (exists $ParamsMap{boxbgcolor} ) { $BoxBgColor = $ParamsMap{boxbgcolor}; $ParamsMap{boxbgcolor} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
578 if (exists $ParamsMap{boxfgcolor} ) { $BoxFgColor = $ParamsMap{boxfgcolor}; $ParamsMap{boxfgcolor} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
579 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
580
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
581 $MolString =~ s/(\r\n)|(\r)|(\n)/|/g;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
582 if ($UseJavaScript) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
583 $JavaScriptTags = qq(\n<script>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
584 my($Size) = ($Width > $Height ) ? $Width : $Height;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
585 $JavaScriptTags .= qq(var $Name = \n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
586 my(@MolLines) = split /\|/, $MolString;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
587 my($LineIndex);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
588 $JavaScriptTags .= qq("$MolLines[0]\\n");
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
589 for $LineIndex (1 .. $#MolLines) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
590 $JavaScriptTags .= qq( + \n"$MolLines[$LineIndex]\\n");
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
591 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
592 $JavaScriptTags .= qq(;\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
593 $JavaScriptTags .= qq(jmolSetAppletColor("$BgColor", "$BoxBgColor", "$BoxFgColor", "$ProgressColor");\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
594 # "set frank off turns" off JMol logo. For wireframe display; use wireframe on; spacefill off...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
595 # $JavaScriptTags .= qq(jmolAppletInline($Size, $Name);\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
596 $JavaScriptTags .= qq(jmolAppletInline([$Width,$Height], $Name, \"$JMolScript\");\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
597 $JavaScriptTags .= qq(</script>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
598 $ReturnTags = $JavaScriptTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
599 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
600 else {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
601 # Setup applet header...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
602 $AppletTags = qq(\n<applet name="$Name" id="$Name" code="$Code" archive="$Archive" codebase="$CodeBase" width="$Width" height="$Height">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
603
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
604 # Setup molecule data...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
605 $AppletTags .= qq(<param name="loadInline" value="$MolString">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
606
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
607 # Setup prograss bar...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
608 $AppletTags .= qq(<param name="progressbar" value="$ProgressBar">\n<param name="progresscolor" value="$ProgressColor">\n<param name="boxmessage" value="$BoxMessage">\n<param name="boxbgcolor" value="$BoxBgColor">\n<param name="boxfgcolor" value="$BoxFgColor">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
609
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
610 # "set frank off turns" off JMol logo. For wireframe display; use wireframe on; spacefill off...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
611 $AppletTags .= qq(<param name="script" value="$JMolScript">);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
612
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
613 #Setup other parameters...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
614 for $ParamName (sort keys %ParamsMap) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
615 $ParamValue = $ParamsMap{$ParamName};
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
616 if (length $ParamValue) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
617 $AppletTags .= qq(<param name="$ParamName" value="$ParamValue">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
618 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
619 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
620 #Finish it up...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
621 $AppletTags .= qq(</applet>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
622 $ReturnTags = $AppletTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
623 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
624 return $ReturnTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
625 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
626
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
627 # Setup JME applet...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
628 sub SetupStrViewerJMEApplet {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
629 my($MolString, $CodeBase, $ParamsMapRef, %ParamsMap, $AppletTags, $Name, $Code, $Archive, $Width, $Height, $ParamName, $ParamValue);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
630 my($Options);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
631
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
632 $AppletTags = ""; $ParamsMapRef = ""; %ParamsMap = ();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
633 $Name = "JME"; $Code = "JME"; $Archive = "JME.jar"; $Width = $StrViewerWidth; $Height = $StrViewerHeight;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
634 $Options = "depict";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
635
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
636 if (@_ == 3) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
637 ($MolString, $CodeBase, $ParamsMapRef) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
638 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
639 else {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
640 ($MolString, $CodeBase) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
641 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
642 $MolString =~ s/(\r\n)|(\r)|(\n)/|/g;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
643
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
644 if ($ParamsMapRef) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
645 %ParamsMap = %$ParamsMapRef;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
646 if (exists $ParamsMap{name} ) { $Name = $ParamsMap{name}; $ParamsMap{name} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
647 if (exists $ParamsMap{code} ) { $Code = $ParamsMap{code}; $ParamsMap{code} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
648 if (exists $ParamsMap{archive} ) { $Archive = $ParamsMap{archive}; $ParamsMap{archive} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
649 if (exists $ParamsMap{height} ) { $Height = $ParamsMap{height}; $ParamsMap{height} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
650 if (exists $ParamsMap{width} ) { $Width = $ParamsMap{width}; $ParamsMap{width} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
651 if (exists $ParamsMap{options} ) { $Options = $ParamsMap{options}; $ParamsMap{options} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
652 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
653
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
654 # Setup applet header...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
655 $AppletTags = qq(\n<applet name="$Name" id="$Name" code="$Code" archive="$Archive" codebase="$CodeBase" width="$Width" height="$Height">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
656
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
657 # Setup molecule data...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
658 $AppletTags .= qq(<param name="mol" value="$MolString">\n<param name="options" value="$Options">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
659
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
660 #Setup other parameters...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
661 for $ParamName (sort keys %ParamsMap) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
662 $ParamValue = $ParamsMap{$ParamName};
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
663 if (length $ParamValue) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
664 $AppletTags .= qq(<param name="$ParamName" value="$ParamValue">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
665 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
666 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
667
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
668 #Finish it up...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
669 $AppletTags .= qq(</applet>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
670
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
671 return $AppletTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
672 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
673
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
674 # Setup MarvinView applet...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
675 sub SetupStrViewerMarvinViewApplet {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
676 my($MolString, $CodeBase, $ParamsMapRef, %ParamsMap, $AppletTags, $JavaScriptTags, $ReturnTags, $Name, $Code, $Archive, $Width, $Height, $ParamName, $NavMode, $ParamValue, $JSFileName, $UseJavaScript, $MarvinJVM);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
677
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
678 $AppletTags = ""; $JavaScriptTags = ""; $ReturnTags = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
679 $ParamsMapRef = ""; %ParamsMap = ();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
680 $Name = "MView"; $Code = "MView"; $Archive = "marvin.jar"; $Width = $StrViewerWidth; $Height = $StrViewerHeight;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
681 $NavMode = "zoom";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
682 $UseJavaScript = 0; $JSFileName = ""; $MarvinJVM = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
683
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
684 if (@_ == 3) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
685 ($MolString, $CodeBase, $ParamsMapRef) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
686 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
687 else {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
688 ($MolString, $CodeBase) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
689 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
690
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
691 if ($ParamsMapRef) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
692 %ParamsMap = %$ParamsMapRef;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
693 if (exists $ParamsMap{usejavascript} ) { $JSFileName = $ParamsMap{usejavascript}; $UseJavaScript = 1; $ParamsMap{usejavascript} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
694 if (exists $ParamsMap{marvin_jvm} ) { $MarvinJVM = $ParamsMap{marvin_jvm}; $ParamsMap{marvin_jvm} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
695 if (exists $ParamsMap{name} ) { $Name = $ParamsMap{name}; $ParamsMap{name} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
696 if (exists $ParamsMap{code} ) { $Code = $ParamsMap{code}; $ParamsMap{code} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
697 if (exists $ParamsMap{archive} ) { $Archive = $ParamsMap{archive}; $ParamsMap{archive} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
698 if (exists $ParamsMap{height} ) { $Height = $ParamsMap{height}; $ParamsMap{height} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
699 if (exists $ParamsMap{width} ) { $Width = $ParamsMap{width}; $ParamsMap{width} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
700 if (exists $ParamsMap{bgcolor}) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
701 $ParamsMap{background} = "$ParamsMap{bgcolor}";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
702 $ParamsMap{molbg} = "$ParamsMap{bgcolor}";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
703 $ParamsMap{bgcolor} = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
704 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
705 if (exists $ParamsMap{navmode}) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
706 $NavMode = $ParamsMap{navmode};
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
707 $ParamsMap{navmode} = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
708 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
709 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
710 $MolString =~ s/(\r\n)|(\r)|(\n)/\\/g;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
711 if ($UseJavaScript) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
712 $JavaScriptTags = qq(\n<script>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
713 $JavaScriptTags .= qq(var marvin_name = "$Name";\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
714 $JavaScriptTags .= qq(var marvin_jvm = "$MarvinJVM";\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
715
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
716 $JavaScriptTags .= qq(mview_begin("$CodeBase", $Width, $Height);\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
717
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
718 $JavaScriptTags .= qq(var $Name = \n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
719 my(@MolLines) = split /\\/, $MolString;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
720 my($LineIndex);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
721 $JavaScriptTags .= qq("$MolLines[0]\\n");
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
722 for $LineIndex (1 .. $#MolLines) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
723 $JavaScriptTags .= qq( + \n"$MolLines[$LineIndex]\\n");
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
724 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
725 $JavaScriptTags .= qq(;\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
726 $JavaScriptTags .= qq(mview_param("mol", $Name);\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
727
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
728 $JavaScriptTags .= qq(mview_param("navmode", "$NavMode");\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
729
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
730 for $ParamName (sort keys %ParamsMap) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
731 $ParamValue = $ParamsMap{$ParamName};
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
732 if (length $ParamValue) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
733 $JavaScriptTags .= qq(mview_param("$ParamName", "$ParamValue");\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
734 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
735 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
736 $JavaScriptTags .= qq(mview_end();\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
737 $JavaScriptTags .= qq(</script>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
738 $ReturnTags = $JavaScriptTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
739 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
740 else {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
741 # Setup applet header...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
742 $AppletTags = qq(\n<applet name="$Name" id="$Name" code="$Code" archive="$Archive" codebase="$CodeBase" width="$Width" height="$Height">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
743
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
744 # Setup molecule data...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
745 $AppletTags .= qq(<param name="mol" value="$MolString">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
746
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
747 $AppletTags .= qq(<param name="navmode" value="$NavMode">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
748
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
749 #Setup other parameters...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
750 for $ParamName (sort keys %ParamsMap) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
751 $ParamValue = $ParamsMap{$ParamName};
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
752 if (length $ParamValue) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
753 $AppletTags .= qq(<param name="$ParamName" value="$ParamValue">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
754 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
755 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
756 $AppletTags .= qq(</applet>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
757 $ReturnTags = $AppletTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
758 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
759 return $ReturnTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
760 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
761
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
762 # Setup MDL chime plug-in...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
763 sub SetupStrViewerChimePlugIn {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
764 my($MolFile, $ParamsMapRef, %ParamsMap, $Width, $Height, $ParamName, $ParamValue, $PlugInTags);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
765 my($Display2D);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
766
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
767 $PlugInTags = ""; $ParamsMapRef = ""; %ParamsMap = ();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
768 $Width = $StrViewerWidth; $Height = $StrViewerHeight;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
769 $Display2D = "true";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
770
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
771 if (@_ == 2) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
772 ($MolFile, $ParamsMapRef) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
773 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
774 else {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
775 ($MolFile) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
776 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
777
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
778 if ($ParamsMapRef) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
779 %ParamsMap = %$ParamsMapRef;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
780 if (exists $ParamsMap{height} ) { $Height = $ParamsMap{height}; $ParamsMap{height} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
781 if (exists $ParamsMap{width} ) { $Width = $ParamsMap{width}; $ParamsMap{width} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
782 if (exists $ParamsMap{display2d} ) { $Display2D = $ParamsMap{display2d}; $ParamsMap{display2d} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
783 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
784 # Start plug-in tag...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
785 $PlugInTags = qq(<embed src="$MolFile" width="$Width" height="$Height" display2d="$Display2D");
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
786
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
787 #Setup other parameters...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
788 for $ParamName (sort keys %ParamsMap) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
789 $ParamValue = $ParamsMap{$ParamName};
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
790 if (length $ParamValue) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
791 $PlugInTags .= qq( $ParamName="$ParamValue");
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
792 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
793 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
794
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
795 # Finish it off...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
796 $PlugInTags .= qq( >);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
797
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
798 return $PlugInTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
799 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
800
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
801 # Setup Accelrys ViewerActiveX controls...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
802 sub SetupStrViewerAccelrysActiveX {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
803 my($MolFile, $ParamsMapRef, %ParamsMap, $ActiveXTags, $Name, $Width, $Height, $ParamName, $ParamValue);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
804 my($ClassId, $Convert2DTo3D, $Style, $Mouse);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
805
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
806 $ActiveXTags = ""; $ParamsMapRef = ""; %ParamsMap = ();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
807 $Name = "ViewerActiveX"; $Width = $StrViewerWidth; $Height = $StrViewerHeight;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
808 $ClassId = "clsid:90690CB6-BC07-11D4-AEF7-0050DA948176";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
809 $Convert2DTo3D = "0";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
810 $Mouse = 4;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
811
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
812 if (@_ == 2) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
813 ($MolFile, $ParamsMapRef) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
814 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
815 else {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
816 ($MolFile) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
817 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
818
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
819 if ($ParamsMapRef) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
820 %ParamsMap = %$ParamsMapRef;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
821 if (exists $ParamsMap{classid} ) { $ClassId = $ParamsMap{classid}; $ParamsMap{classid} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
822 if (exists $ParamsMap{name} ) { $Name = $ParamsMap{name}; $ParamsMap{name} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
823 if (exists $ParamsMap{height} ) { $Height = $ParamsMap{height}; $ParamsMap{height} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
824 if (exists $ParamsMap{width} ) { $Width = $ParamsMap{width}; $ParamsMap{width} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
825 if (exists $ParamsMap{Convert2Dto3D} ) { $Convert2DTo3D = $ParamsMap{Convert2Dto3D}; $ParamsMap{Convert2Dto3D} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
826 if (exists $ParamsMap{Mouse} ) { $Mouse = $ParamsMap{Mouse}; $ParamsMap{Mouse} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
827 if (exists $ParamsMap{bgcolor} ) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
828 my($BgColor) = $ParamsMap{bgcolor};
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
829 $ParamsMap{bgcolor} = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
830 # Get OLE color value: &aabbggrr&
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
831 # Set it to white for now...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
832 $BgColor = "16777215";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
833 $ParamsMap{BackColor} = "$BgColor";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
834 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
835 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
836 $Style = qq(style="height: ) . $Height . qq(px; width: ) . $Width . qq(px");
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
837
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
838 # Setup object header...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
839 $ActiveXTags = qq(\n<object id="$Name" classid="$ClassId" $Style>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
840
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
841 # Setup molecule data...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
842 $ActiveXTags .= qq(<param name="Source" value="$MolFile">\n<param name="Mouse" value="$Mouse">\n<param name="Convert2Dto3D" value="$Convert2DTo3D">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
843
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
844 #Setup other parameters...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
845 for $ParamName (sort keys %ParamsMap) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
846 $ParamValue = $ParamsMap{$ParamName};
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
847 if (length $ParamValue) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
848 $ActiveXTags .= qq(<param name="$ParamName" value="$ParamValue">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
849 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
850 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
851
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
852 # Finish it off...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
853 $ActiveXTags .= qq(</object>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
854
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
855 return $ActiveXTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
856 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
857
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
858 # Setup Chem3D ActiveX 8.0 control...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
859 sub SetupStrViewerChem3DActiveX {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
860 my($MolFile, $ParamsMapRef, %ParamsMap, $ActiveXTags, $JavaScriptTags, $ReturnTags, $Name, $Width, $Height, $ParamName, $ParamValue);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
861 my($ClassId, $Style, $DisplayType, $RotationBars, $MovieController, $JSFileName, $UseJavaScript);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
862
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
863 $ActiveXTags = ""; $JavaScriptTags = ""; $ReturnTags = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
864 $ParamsMapRef = ""; %ParamsMap = ();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
865 $Name = "Chem3D"; $Width = $StrViewerWidth; $Height = $StrViewerHeight;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
866 $ClassId = "clsid:B7A6B8E4-3E8B-4D18-8F8F-B4057EFC784B";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
867 $DisplayType = "Ball&Stick";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
868 $RotationBars = "false";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
869 $MovieController = "false";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
870
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
871 if (@_ == 2) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
872 ($MolFile, $ParamsMapRef) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
873 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
874 else {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
875 ($MolFile) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
876 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
877
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
878 if ($ParamsMapRef) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
879 %ParamsMap = %$ParamsMapRef;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
880 if (exists $ParamsMap{usejavascript} ) { $JSFileName = $ParamsMap{usejavascript}; $UseJavaScript = 1; $ParamsMap{usejavascript} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
881 if (exists $ParamsMap{classid} ) { $ClassId = $ParamsMap{classid}; $ParamsMap{classid} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
882 if (exists $ParamsMap{name} ) { $Name = $ParamsMap{name}; $ParamsMap{name} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
883 if (exists $ParamsMap{height} ) { $Height = $ParamsMap{height}; $ParamsMap{height} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
884 if (exists $ParamsMap{width} ) { $Width = $ParamsMap{width}; $ParamsMap{width} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
885 if (exists $ParamsMap{displaytype} ) { $DisplayType = $ParamsMap{displaytype}; $ParamsMap{displaytype} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
886 if (exists $ParamsMap{rotationbars} ) { $RotationBars = $ParamsMap{rotationbars}; $ParamsMap{rotationbars} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
887 if (exists $ParamsMap{moviecontroller} ) { $MovieController = $ParamsMap{moviecontroller}; $ParamsMap{moviecontroller} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
888 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
889 $Style = qq(style="height: ) . $Height . qq(px; width: ) . $Width . qq(px");
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
890
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
891 if ($UseJavaScript) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
892 #Setup parameters...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
893 my($Params) = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
894 for $ParamName (sort keys %ParamsMap) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
895 $ParamValue = $ParamsMap{$ParamName};
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
896 if (length $ParamValue) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
897 $Params .= qq( $ParamName='$ParamValue');
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
898 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
899 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
900 $JavaScriptTags = qq(\n<script>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
901 $JavaScriptTags .= qq(c3d_insert3dStr("name='$Name' src='$MolFile' width='$Width' height='$Height' displaytype='$DisplayType' rotation_bars_visible='$RotationBars' movie_controller_visible='$MovieController' $Params");\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
902 $JavaScriptTags .= qq(</script>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
903 $ReturnTags = $JavaScriptTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
904 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
905 else {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
906 # Setup object header...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
907 $ActiveXTags = qq(\n<object id="$Name" classid="$ClassId" $Style>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
908
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
909 # Setup molecule data...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
910 $ActiveXTags .= qq(<param name="src" value="$MolFile">\n<param name="displaytype" value="$DisplayType">\n<param name="rotationbars" value="$RotationBars">\n<param name="moviecontroller" value="$MovieController">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
911
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
912 #Setup other parameters...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
913 for $ParamName (sort keys %ParamsMap) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
914 $ParamValue = $ParamsMap{$ParamName};
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
915 if (length $ParamValue) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
916 $ActiveXTags .= qq(<param name="$ParamName" value="$ParamValue">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
917 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
918 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
919 $ActiveXTags .= qq(</object>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
920 $ReturnTags = $ActiveXTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
921 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
922 return $ReturnTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
923 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
924
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
925 # Setup ChemDraw ActiveX 8.0 control...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
926 # Problems: "bgcolor" parameter doesn't work.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
927 sub SetupStrViewerChemDrawActiveX {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
928 my($MolFile, $ParamsMapRef, %ParamsMap, $ActiveXTags, $JavaScriptTags, $ReturnTags, $Name, $Width, $Height, $ParamName, $ParamValue);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
929 my($ClassId, $Style, $ViewOnly, $ShrinkToFit, $ShowToolsWhenVisible, $JSFileName, $UseJavaScript);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
930
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
931 $ActiveXTags = ""; $JavaScriptTags = ""; $ReturnTags = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
932 $ParamsMapRef = ""; %ParamsMap = ();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
933 $Name = "ChemDraw"; $Width = $StrViewerWidth; $Height = $StrViewerHeight;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
934 $ClassId = "clsid:51A649C4-3E3D-4557-9BD8-B14C0AD44B0C";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
935 $ViewOnly = "1"; $JavaScriptTags = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
936 $ShrinkToFit = "1";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
937 $ShowToolsWhenVisible = "1";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
938
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
939 if (@_ == 2) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
940 ($MolFile, $ParamsMapRef) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
941 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
942 else {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
943 ($MolFile) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
944 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
945
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
946 if ($ParamsMapRef) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
947 %ParamsMap = %$ParamsMapRef;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
948 if (exists $ParamsMap{usejavascript} ) { $JSFileName = $ParamsMap{usejavascript}; $UseJavaScript = 1; $ParamsMap{usejavascript} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
949 if (exists $ParamsMap{classid} ) { $ClassId = $ParamsMap{classid}; $ParamsMap{classid} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
950 if (exists $ParamsMap{name} ) { $Name = $ParamsMap{name}; $ParamsMap{name} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
951 if (exists $ParamsMap{height} ) { $Height = $ParamsMap{height}; $ParamsMap{height} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
952 if (exists $ParamsMap{width} ) { $Width = $ParamsMap{width}; $ParamsMap{width} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
953 if (exists $ParamsMap{ViewOnly} ) { $ViewOnly = $ParamsMap{ViewOnly}; $ParamsMap{ViewOnly} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
954 if (exists $ParamsMap{ShrinkToFit} ) { $ShrinkToFit = $ParamsMap{ShrinkToFit}; $ParamsMap{ShrinkToFit} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
955 if (exists $ParamsMap{ShowToolsWhenVisible} ) { $ShowToolsWhenVisible = $ParamsMap{ShowToolsWhenVisible}; $ParamsMap{ShowToolsWhenVisible} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
956 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
957 if ($UseJavaScript) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
958 #Setup parameter...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
959 my($Params) = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
960 for $ParamName (sort keys %ParamsMap) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
961 $ParamValue = $ParamsMap{$ParamName};
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
962 if (length $ParamValue) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
963 $Params .= qq( $ParamName='$ParamValue');
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
964 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
965 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
966 $JavaScriptTags = qq(\n<script>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
967 $JavaScriptTags .= qq(cd_insertObjectStr("name='$Name' src='$MolFile' width='$Width' height='$Height' shrinktofit='$ShrinkToFit' viewonly='$ViewOnly' $Params");\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
968 $JavaScriptTags .= qq(</script>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
969 $ReturnTags = $JavaScriptTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
970 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
971 else {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
972 $Style = qq(style="height: ) . $Height . qq(px; width: ) . $Width . qq(px");
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
973
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
974 # Setup object header...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
975 $ActiveXTags = qq(\n<object id="$Name" classid="$ClassId" $Style>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
976
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
977 # Setup molecule data...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
978 $ActiveXTags .= qq(<param name="SourceURL" value="$MolFile">\n<param name="ShrinkToFit" value="$ShrinkToFit">\n<param name="ViewOnly" value="$ViewOnly">\n<param name="ShowToolsWhenVisible" value="$ShowToolsWhenVisible">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
979
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
980 #Setup other parameters...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
981 for $ParamName (sort keys %ParamsMap) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
982 $ParamValue = $ParamsMap{$ParamName};
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
983 if (length $ParamValue) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
984 $ActiveXTags .= qq(<param name="$ParamName" value="$ParamValue">\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
985 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
986 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
987 $ActiveXTags .= qq(</object>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
988 $ReturnTags = $ActiveXTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
989 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
990 return $ReturnTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
991 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
992
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
993 # Setup ChemDraw plug-in used for Netscape browsers...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
994 # Problems: "bgcolor" parameter doesn't work.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
995 sub SetupStrViewerChemDrawPlugIn {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
996 my($MolFile, $Name, $ParamsMapRef, %ParamsMap, $Width, $Height, $ParamName, $ParamValue, $PlugInTags, $JavaScriptTags, $ReturnTags,);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
997 my($MimeType, $ViewOnly, $ShrinkToFit, $ShowToolsWhenVisible, $JSFileName, $UseJavaScript);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
998
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
999 $Name = "ChemDraw"; $PlugInTags = ""; $ParamsMapRef = ""; %ParamsMap = ();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1000 $Width = $StrViewerWidth; $Height = $StrViewerHeight;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1001 $MimeType = "chemical/x-mdl-molfile";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1002 $ViewOnly = "1";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1003 $ShrinkToFit = "1";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1004 $ShowToolsWhenVisible = "1"; $JavaScriptTags = "";
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1005
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1006 if (@_ == 2) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1007 ($MolFile, $ParamsMapRef) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1008 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1009 else {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1010 ($MolFile) = @_;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1011 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1012
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1013 if ($ParamsMapRef) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1014 %ParamsMap = %$ParamsMapRef;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1015 if (exists $ParamsMap{usejavascript} ) { $JSFileName = $ParamsMap{usejavascript}; $UseJavaScript = 1; $ParamsMap{usejavascript} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1016 if (exists $ParamsMap{height} ) { $Height = $ParamsMap{height}; $ParamsMap{height} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1017 if (exists $ParamsMap{width} ) { $Width = $ParamsMap{width}; $ParamsMap{width} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1018 if (exists $ParamsMap{type} ) { $MimeType = $ParamsMap{type}; $ParamsMap{type} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1019 if (exists $ParamsMap{viewonly} ) { $ViewOnly = $ParamsMap{viewonly}; $ParamsMap{viewonly} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1020 if (exists $ParamsMap{shrinktofit} ) { $ShrinkToFit = $ParamsMap{shrinktofit}; $ParamsMap{shrinktofit} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1021 if (exists $ParamsMap{showtoolswhenvisible} ) { $ShowToolsWhenVisible = $ParamsMap{showtoolswhenvisible}; $ParamsMap{showtoolswhenvisible} = ""; }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1022 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1023 if ($UseJavaScript) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1024 $JavaScriptTags = qq(\n<script>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1025 $JavaScriptTags .= qq(cd_insertObjectStr("name='$Name' src='$MolFile' type='$MimeType' width='$Width' height='$Height' shrinktofit='$ShrinkToFit' viewonly='$ViewOnly'");\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1026 $JavaScriptTags .= qq(</script>\n);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1027 $ReturnTags = $JavaScriptTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1028 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1029 else {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1030 # Start plug-in tag...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1031 $PlugInTags = qq(<embed src="$MolFile" width="$Width" height="$Height" type="$MimeType" viewonly="$ViewOnly" shrinktofit="$ShrinkToFit" showtoolswhenvisible=''$ShowToolsWhenVisible");
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1032
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1033 #Setup other parameters...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1034 for $ParamName (sort keys %ParamsMap) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1035 $ParamValue = $ParamsMap{$ParamName};
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1036 if (length $ParamValue) {
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1037 $PlugInTags .= qq(" $ParamName"="$ParamValue");
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1038 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1039 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1040 # Finish it off...
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1041 $PlugInTags .= qq( >);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1042 $ReturnTags = $PlugInTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1043 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1044
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1045 return $ReturnTags;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1046 }
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1047
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1048
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1049 1;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1050
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1051 __END__
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1052
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1053 =head1 NAME
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1054
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1055 HTMLUtil
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1056
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1057 =head1 SYNOPSIS
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1058
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1059 use HTMLUtil;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1060
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1061 use HTMLUtil qw(:all);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1062
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1063 =head1 DESCRIPTION
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1064
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1065 B<HTMLUtil> module provides the following functions:
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1066
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1067 InsertHTMLTags, SetupHTMLAlignmentBegin, SetupHTMLAlignmentEnd,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1068 SetupHTMLButtonRef, SetupHTMLDivBegin, SetupHTMLDivEnd, SetupHTMLEmptyLines,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1069 SetupHTMLHRef, SetupHTMLPageEnd, SetupHTMLPageHeader, SetupHTMLPageTitle,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1070 SetupHTMLStyleSheetTags, SetupHTMLTableColumnEnd, SetupHTMLTableColumnHeader,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1071 SetupHTMLTableEnd, SetupHTMLTableHeader, SetupHTMLTableRowDataValue,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1072 SetupHTMLTableRowEnd, SetupHTMLTableRowHeader, SetupHTMLTableRowHeaderValue,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1073 SetupJavaScriptCmds, SetupStrViewerAccelrysActiveX, SetupStrViewerChem3DActiveX,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1074 SetupStrViewerChemDrawActiveX, SetupStrViewerChemDrawPlugIn,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1075 SetupStrViewerChimePlugIn, SetupStrViewerJMEApplet, SetupStrViewerJSInitCmd,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1076 SetupStrViewerJmolApplet, SetupStrViewerMarvinViewApplet
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1077
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1078 =head2 FUNCTIONS
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1079
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1080 =over 4
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1081
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1082 =item B<InsertHTMLTags>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1083
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1084 $NewTag = InsertHTMLTags($Tag, @TagsNameValue);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1085
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1086 Inserts tag name and value pair from I<TagsNameValue> into a exisiting I<Tag> as I<TagName = "TagValue">
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1087 and returns B<NewTag> string.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1088
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1089 =item B<SetupHTMLAlignmentBegin>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1090
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1091 $AlignmentTag = SetupHTMLAlignmentBegin([$Alignment]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1092
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1093 Returns an alignment begin tag string. Possible I<Alignment> values: I<left, center, or right>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1094 Default: I<left>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1095
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1096 =item B<SetupHTMLAlignmentEnd>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1097
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1098 $AlignmentTag = SetupHTMLAlignmentBegin([$Alignment]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1099
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1100 Returns an alignment end tag string.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1101
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1102 =item B<SetupHTMLButtonRef>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1103
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1104 $ButtonTag = SetupHTMLButtonRef($ButtonLabel, $FileName);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1105
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1106 Returns a button tag string for associating B<onClick> button event of a button with label I<ButtonLabel>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1107 to open a file I<FileName>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1108
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1109 =item B<SetupHTMLDivBegin>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1110
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1111 $DivTag = SetupHTMLDivBegin($ID);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1112
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1113 Returns a div begin tag string for div I<ID>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1114
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1115 =item B<SetupHTMLDivEnd>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1116
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1117 $DivTag = SetupHTMLDivEnd();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1118
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1119 Returns a div end tag string.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1120
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1121 =item B<SetupHTMLTableEnd>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1122
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1123 $TableEndTag = SetupHTMLTableEnd();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1124
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1125 Returns a table end tag string.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1126
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1127 =item B<SetupHTMLEmptyLines>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1128
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1129 $EmptyLineTags = SetupHTMLEmptyLines([$LineCount]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1130
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1131 Returns an empty lines tag string for empty I<LineCount>. Default line count: I<1>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1132
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1133 =item B<SetupHTMLPageHeader>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1134
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1135 $PageHeaderTag = SetupHTMLPageHeader($HeaderTitle, [$Stylesheet,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1136 $JavaScript]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1137
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1138 Returns a page header tag string using I<HeaderTitle> and using optionally specifed
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1139 values for I<Stylesheet> and I<JavaScript>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1140
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1141 =item B<SetupHTMLHRef>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1142
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1143 $HRef = SetupHTMLHRef($Label, $URL, [$Title]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1144
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1145 Returns a HRef tag string for setting up a URL with I<Label> and I<URL> with optional I<Title>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1146
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1147 =item B<SetupHTMLPageEnd>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1148
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1149 $PageEndTag = SetupHTMLPageEnd([$FooterMsg]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1150
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1151 Returns a page end tag string conating optional I<FooterMsg>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1152
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1153 =item B<SetupHTMLPageTitle>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1154
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1155 $PageTitleTag = SetupHTMLPageTitle($Title, [$Alignment]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1156
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1157 Returns a page title tag string with optional alignment. Valid alignment value: I<left, center, right>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1158 Default alignment: I<center>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1159
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1160 =item B<SetupHTMLStyleSheetTags>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1161
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1162 $StyleSheetTags = SetupHTMLStyleSheetTags();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1163
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1164 Returns a default style sheet tag string to be used for HTML files generated by MayaChemTools.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1165
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1166 =item B<SetupHTMLTableHeader>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1167
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1168 $TableHeaderTags = SetupHTMLTableHeader([$BorderWidth,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1169 $CellPadding, $CellSpacing, $Width, $Height]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1170
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1171 Returns a table header tag string containing specified values for I<BorderWidth, CellPadding, CellSpacing,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1172 Width, and Height>. Default values: I<BorderWidth = 1; CellPadding = 2; CellSpacing = 0; Width = NotUsed;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1173 Height = NotUsed>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1174
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1175 =item <SetupHTMLTableEnd>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1176
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1177 $TableEndTag = SetupHTMLTableEnd();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1178
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1179 Returns a table end tag string.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1180
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1181 =item B<SetupHTMLTableColumnHeader>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1182
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1183 $ColumnHeaderTag = SetupHTMLTableColumnHeader([$BgColor, $Width]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1184
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1185 Returns a table column header tag string containing specified values for I<BgColor, Width>. Default
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1186 values: I<BgColor = NotUsed; Width = NotUsed>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1187
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1188 =item B<SetupHTMLTableColumnEnd>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1189
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1190 $ColumnEndTag = SetupHTMLTableColumnEnd();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1191
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1192 Returns a table column end tag string.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1193
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1194 =item B<SetupHTMLTableRowHeader>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1195
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1196 $RowHeaderTag = SetupHTMLTableRowHeader([$HAlignment, $BgColor,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1197 $VAlignment]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1198
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1199 Returns a table row header tag string containing specified values for I<HAlignment, BgColor, and VAlignment>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1200 Default values: I<HAlignment = center; $BgColor = NotUsed; $VAlignment = top>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1201
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1202 =item B<SetupHTMLTableRowEnd>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1203
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1204 $RowEndTag = SetupHTMLTableRowEnd();
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1205
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1206 Returns a table row end tag string.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1207
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1208 =item B<SetupHTMLTableRowHeaderValue>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1209
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1210 $HeaderValueTag = SetupHTMLTableRowHeaderValue([$Value]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1211
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1212 Returns a table header row tag string using specifed I<Value>. Default value: I<EmptySpace>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1213
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1214 =item B<SetupHTMLTableRowDataValue>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1215
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1216 $RowValueTag = SetupHTMLTableRowDataValue([$Value, $BgColor,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1217 $FontColor, $FontBold]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1218
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1219 Returns a table row column value tag string using specified values for I<Value, BgColor,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1220 FontColor, and FontBold>. Default values: I<Value = EmptySpace; BgColor = NotUsed;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1221 FontColor = NotUsed; $FontBold = NotUsed>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1222
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1223 =item B<SetupJavaScriptCmds>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1224
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1225 $JSTag = SetupJavaScriptCmds(@JSCmdList);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1226
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1227 Returns a Java script tag string using java script commands specified in I<JSCmdList>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1228
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1229 =item B<SetupStrViewerJSInitCmd>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1230
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1231 $JSTag = SetupStrViewerJSInitCmd($StrViewerType, $CodeBase);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1232
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1233 Returns a Java script command tag string for intializing structure viewers with specified I<CodeBase>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1234 location for viewers to be invoked as Java Applets. Supported values for I<StrViewerType>: I<Jmol,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1235 ChemDrawPlugIn, ChemDrawActiveX, Chem3DActiveX>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1236
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1237 =item B<SetupStrViewerJMEApplet>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1238
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1239 $JMEAppletTag = SetupStrViewerJMEApplet($MolString, $CodeBase,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1240 [{param => "value"}]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1241
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1242 Returns a JME tag string for displaying molecule using I<MolString> along with valid optional applet
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1243 parameters specified as name and value pairs. Defaul JME parameter values: I<name = JME; id = JME;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1244 width = 250; height = 170>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1245
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1246 =item B<SetupStrViewerJmolApplet>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1247
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1248 $JmolAppletTag = SetupStrViewerJmolApplet($MolString, $CodeBase,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1249 [{param => "value"}]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1250
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1251 Returns a JMol tag string for displaying molecule using I<MolString> along with valid optional applet
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1252 parameters specified as name and value pairs. Defaul JMol parameter values: I<name = Jmol; id = Jmol;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1253 width = 250; height = 170; progressbar = true; progresscolor = 0000ff; bgcolor = 000000; JMolScript =
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1254 select *; set frank off; wireframe on; spacefill off>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1255
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1256 =item B<SetupStrViewerMarvinViewApplet>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1257
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1258 $MarvinAppletTag = SetupStrViewerMarvinViewApplet($MolString,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1259 $CodeBase, [{param => "value"}]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1260
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1261 Returns a MarvinView tag string for displaying molecule using I<MolString> along with valid optional applet
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1262 parameters specified as name and value pairs. Defaul MarvinView parameter values: I<name = MView; id = MView;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1263 width = 250; height = 170; navmode = zoom>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1264
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1265 =item B<SetupStrViewerChimePlugIn>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1266
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1267 $ChimePlugInTag = SetupStrViewerChimePlugIn($MolFile,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1268 [{param => "value"}]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1269
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1270 Returns a MDL Chime tag string for displaying molecule using I<MolFile> along with valid optional
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1271 parameters specified as name and value pairs. Defaul Chime parameter values: I<width = 250; height = 170;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1272 display2d = true>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1273
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1274 =item B<SetupStrViewerChem3DActiveX>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1275
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1276 $ChemDraw3DActiveXTags = SetupStrViewerChemDrawActiveX($MolFile,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1277 [{param => "value"}]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1278
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1279 Returns a CambridgeSoft Chem3D tag string for displaying molecule using I<MolFile> along with valid optional
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1280 parameters specified as name and value pairs. Defaul Chime parameter values: I<width = 250; height = 170;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1281 displaytype = BallAndStick; rotationbars = false; moviecontroller = false>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1282
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1283 =item B<SetupStrViewerChemDrawActiveX>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1284
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1285 $ChemDrawActiveXTags = SetupStrViewerChem3DActiveX($MolFile,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1286 [{param => "value"}]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1287
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1288 Returns a CambridgeSoft ChemDraw ActiveX tag string for displaying molecule using I<MolFile> along with valid optional
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1289 parameters specified as name and value pairs. Defaul ChemDraw ActiveX parameter values: I<width = 250; height = 170;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1290 ViewOnly = 1; ShrinkToFit = 1; ShowToolsWhenVisible = 1>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1291
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1292 =item B<SetupStrViewerChemDrawPlugIn>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1293
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1294 $ChemDrawPlugInTag = SetupStrViewerChemDrawPlugIn($MolFile,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1295 [{param => "value"}]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1296
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1297 Returns a CambridgeSoft ChemDraw PlugIn tag string for displaying molecule using I<MolFile> along with valid optional
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1298 parameters specified as name and value pairs. Defaul ChemDraw PlugIn parameter values: I<width = 250; height = 170;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1299 ViewOnly = 1; ShrinkToFit = 1; ShowToolsWhenVisible = 1>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1300
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1301 =item B<SetupStrViewerAccelrysActiveX>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1302
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1303 $AccelrysActiveXTags = SetupStrViewerAccelrysActiveX($MolFile,
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1304 [{param => "value"}]);
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1305
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1306 Returns a Accelrys ViewerActiveX tag string for displaying molecule using I<MolFile> along with valid optional
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1307 parameters specified as name and value pairs. Defaul ViewerActiveX parameter values: I<width = 250; height = 170;
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1308 Convert2Dto3D = 0; Mouse = 4>.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1309
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1310 =back
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1311
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1312 =head1 AUTHOR
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1313
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1314 Manish Sud <msud@san.rr.com>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1315
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1316 =head1 COPYRIGHT
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1317
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1318 Copyright (C) 2015 Manish Sud. All rights reserved.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1319
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1320 This file is part of MayaChemTools.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1321
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1322 MayaChemTools is free software; you can redistribute it and/or modify it under
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1323 the terms of the GNU Lesser General Public License as published by the Free
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1324 Software Foundation; either version 3 of the License, or (at your option)
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1325 any later version.
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1326
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1327 =cut