[Bio] / FigWebServices / search_log.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/search_log.cgi

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

revision 1.1, Wed Jun 14 21:22:04 2006 UTC revision 1.3, Wed Jun 14 22:11:08 2006 UTC
# Line 176  Line 176 
176      my($fig,$cgi,$msg) = @_;      my($fig,$cgi,$msg) = @_;
177      my($hdr,$genomeF);      my($hdr,$genomeF);
178    
179        my $data_location= "$FIG_Config::data";
180    
181      if (($msg->[0] =~ /^(Replaced genome \d+\.\d+ with \d+\.\d+)/) && ($hdr = $1) &&      if (($msg->[0] =~ /^(Replaced genome \d+\.\d+ with \d+\.\d+)/) && ($hdr = $1) &&
182          ($msg->[2] =~ /^(\S[^,]+),(\S[^,]+)/) && ($genomeF = $1) && ($map = $2))          ($msg->[2] =~ /^(\S[^,]+),(\S[^,]+)/) && ($genomeF = $1) && ($map = $2))
183      {      {
184            #must replace map with relative urls
185            $map =~ s/.*Data/$data_location/;
186          my $mapE = $cgi->escape($map);          my $mapE = $cgi->escape($map);
187          my $link = $cgi->url(-relative => 1) . "?request=display_map&map=$mapE";          my $link = $cgi->url(-relative => 1) . "?request=display_map&map=$mapE";
188          my $url  = "<a href=$link>map</a>";          my $url  = "<a href=$link>map</a>";
# Line 186  Line 190 
190      }      }
191      elsif (($msg->[0] =~ /^Logged correspondence/) && ($map = $msg->[1]))      elsif (($msg->[0] =~ /^Logged correspondence/) && ($map = $msg->[1]))
192      {      {
193            $map =~ s/.*Data/$data_location/;
194          my $mapE = $cgi->escape($map);          my $mapE = $cgi->escape($map);
195          my $link = $cgi->url(-relative => 1) . "?request=display_map&map=$mapE";          my $link = $cgi->url(-relative => 1) . "?request=display_map&map=$mapE";
196          my $url  = "<a href=$link>map</a>";          my $url  = "<a href=$link>map</a>";
# Line 215  Line 220 
220                               $x <=> $y                               $x <=> $y
221                             }                             }
222                        `cat $tmpD/$expanded[0]`;                        `cat $tmpD/$expanded[0]`;
   
223          push(@$html,"<pre>\n",@entries,"</pre>\n");          push(@$html,"<pre>\n",@entries,"</pre>\n");
224      }      }
225      system "rm -r $tmpD";      system "rm -r $tmpD";
# Line 308  Line 312 
312  sub process_request {  sub process_request {
313      my($fig,$cgi,$html,$request) = @_;      my($fig,$cgi,$html,$request) = @_;
314    
315      if (($request eq "display_map") && ($map = $cgi->param('map')) && (-s $map))      if (($request eq "display_map") && ($map = $cgi->param('map')))
316      {      {
317          &show_map($fig,$cgi,$html,$map);          &show_map($fig,$cgi,$html,$map);
318      }      }

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3