[Bio] / FigKernelPackages / Observation.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/Observation.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.63, Tue Jul 15 16:28:06 2008 UTC revision 1.64, Tue Jul 15 20:06:55 2008 UTC
# Line 1149  Line 1149 
1149          my $organism = $fig->org_of($id);          my $organism = $fig->org_of($id);
1150          my $single_domain = [];          my $single_domain = [];
1151          push(@$single_domain,$who);          push(@$single_domain,$who);
1152          push(@$single_domain,&HTML::set_prot_links($cgi,$id));          push(@$single_domain,"<a href='?page=Annotation&feature=$id'>$id</a>");
1153          push(@$single_domain,$organism);          push(@$single_domain,$organism);
1154          push(@$single_domain,$assignment);          push(@$single_domain,$assignment);
1155          push(@$all_domains,$single_domain);          push(@$all_domains,$single_domain);
# Line 2254  Line 2254 
2254    
2255          # get the linked fig id          # get the linked fig id
2256          my $anchor_link = "graph_" . $replace_id;          my $anchor_link = "graph_" . $replace_id;
2257          my $fig_data =  "<table><tr><td>" . &HTML::set_prot_links($cgi,$id) . "</td>" . "&nbsp;" x 2;          my $fig_data =  "<table><tr><td><a href='?page=Annotation&feature=$id'>$id</a></td>" . "&nbsp;" x 2;
2258          $fig_data .= qq(<td><img height='10px' width='20px' src='./Html/anchor_alignment.png' alt='View Graphic View of Alignment' onClick='changeSimsLocation("$anchor_link", 0)'/></td></tr></table>);          $fig_data .= qq(<td><img height='10px' width='20px' src='./Html/anchor_alignment.png' alt='View Graphic View of Alignment' onClick='changeSimsLocation("$anchor_link", 0)'/></td></tr></table>);
2259          my $fig_col = {'data'=> $fig_data,          my $fig_col = {'data'=> $fig_data,
2260                         'highlight'=>$white};                         'highlight'=>$white};
# Line 2305  Line 2305 
2305          }          }
2306    
2307          if ( ( $application->session->user) ){          if ( ( $application->session->user) ){
2308              #my $user = $application->session->user;              my $user = $application->session->user;
2309              #if ($user && $user->has_right($application, 'annotate', 'genome', $fig->genome_of($id))) {              if ($user && $user->has_right(undef, 'annotate', 'genome', $fig->genome_of($id))) {
             #if ( ($application->session->user->login) && ($application->session->user->login eq "arodri")){  
2310                  push (@$single_domain,$radio_cell);                  push (@$single_domain,$radio_cell);
2311              #}              }
2312          }          }
2313    
2314          my ($ff) = $figfams->families_containing_peg($id);          my ($ff) = $figfams->families_containing_peg($id);

Legend:
Removed from v.1.63  
changed lines
  Added in v.1.64

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3