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

Diff of /FigKernelPackages/HTML.pm

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

revision 1.93, Mon Jun 5 00:40:56 2006 UTC revision 1.94, Tue Jun 6 03:14:43 2006 UTC
# Line 899  Line 899 
899          $out = $response->content;          $out = $response->content;
900      }      }
901    
     if ($type =~/internal/i)  
     {  
         my $pegid;  
         #If type is internal, then url is a perl script  
         my $script = $url;  
         $script=~ s/\.pl//g;  
         $pegid = @$kv_pairs[0]->[1];  
   
         my $test_out =    &FIG::run("$FIG_Config::bin/$script \"$pegid\"");  
         $out = $test_out->content;  
         print $out;  
      }  
   
902      if ($type =~/get/i)      if ($type =~/get/i)
903      {      {
904          @args = ();          @args = ();

Legend:
Removed from v.1.93  
changed lines
  Added in v.1.94

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3