-
Notifications
You must be signed in to change notification settings - Fork 1
/
list_slipsites.html
98 lines (95 loc) · 3.42 KB
/
list_slipsites.html
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr bgcolor="#000000">
<td width="25%"><div align="center"><strong><font color="#FFFFFF">Position</font></strong></div>
</td>
<td width="25%"><div align="center"><strong><font color="#FFFFFF">Slippery Site</font></strong></div>
</td>
<td width="25%"><div align="center"><strong><font color="#FFFFFF">#Folds</font></strong></div>
</td>
</tr>
<tr>
<td width="33%">
<div align="center"><strong><font face="Courier New, Courier, mono">
<% $orf_start %>
</font></strong></div>
</td>
<td width="33%">
<div align="center"><strong><font color="green" face="Courier New, Courier, mono">
Start Codon
</font></strong></div>
</td>
<td width="33%"><div align="center"><strong> </strong></div>
</td>
</tr>
% my ($slipseq, $pknotscount, $id, $slipstart);
% my $mt = "mfe_$species";
% $mt = "mfe_virus" if ($mt =~ /virus/);
% my $slipsites_stmt = qq"SELECT distinct start, slipsite, count(id) FROM $mt WHERE accession = ? AND start < (SELECT orf_stop FROM genome WHERE accession = ?) GROUP BY start ORDER BY start";
% my $slipsite_information = $db->MySelect(statement => $slipsites_stmt, vars => [$accession, $accession],);
% my $table = "landscape_$species";
% $table = qq"landscape_virus" if ($table =~ /virus/);
% my $landscape_num = $db->MySelect(statement => "SELECT count(id) FROM $table WHERE accession = '$accession'", type => 'single');
% my $num_stops_printed = 0;
% my $num_starts_printed = 0;
% my $slipcount = 0;
% my $sig_count = 0;
% while (my $slip_info = shift(@{$slipsite_information})) {
% $slipcount++;
% $slipstart = $slip_info->[0];
% $slipseq = $slip_info->[1];
% $pknotscount = $slip_info->[2];
% $sig_count += $pknotscount;
<tr>
<td width="33%">
<div align="center"><strong><font face="Courier New, Courier, mono">
% my $relative_slipstart = $slipstart - $orf_start;
% $orf_stop = 1 if (!defined($orf_stop) or !$orf_stop);
% my $relative_pct = ($relative_slipstart / $orf_stop) * 100.0;
% $relative_pct = sprintf("%.1f", $relative_pct);
<a href="/detail.html?accession=<% $accession %>&slipstart=<% $slipstart %>" title="View the detailed information for <% $accession %> at position <% $slipstart %>"><% $slipstart %> (<% $relative_slipstart %>, <% $relative_pct %>%)</a>
</font></strong></div>
</td>
<td width="33%">
<div align="center"><strong><font face="Courier New, Courier, mono">
<% $slipseq %>
</font></strong></div>
</td>
<td width="33%">
<div align="center"><strong><font face="Courier New, Courier, mono">
<% $pknotscount %>
</font></strong></div>
</td>
</tr>
% }
<tr>
<td width="33%">
<div align="center"><strong><font face="Courier New, Courier, mono">
<% $orf_stop %>
</font></strong></div>
</td>
<td width="33%">
<div align="center"><strong><font color="Red" face="Courier New, Courier, mono">
Stop Codon
</font></strong></div>
</td>
<td width="33%"><div align="center"><strong> </strong></div>
</td>
</tr>
<tr>
<td width="33%">
<div align="center"><strong><font face="Courier New, Courier, mono">
<a href="/detail.html?accession=<% $accession %>" title="View the detailed information for all slipsites of <% $accession %>">All</a>
</font></strong></div>
</td>
<td width="33%"></td>
<td width="33%"></td>
</tr>
</table>
<%args>
$accession => "SGDID:S000001"
$species => "saccharomyces_cerevisiae"
$comment => "my_comment"
$omim_id => "omim_id"
$orf_start => "1"
$orf_stop => "0"
</%args>