[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.91, Wed May 17 17:50:38 2006 UTC revision 1.92, Thu Jun 1 16:08:18 2006 UTC
# Line 898  Line 898 
898          my $response = $ua->request($request);          my $response = $ua->request($request);
899          $out = $response->content;          $out = $response->content;
900      }      }
901      else  
902        if ($type =~/internal/i)
903        {
904            my $pegid;
905            #If type is internal, then url is a perl script
906            my $script = $url;
907            $script=~ s/\.pl//g;
908            $pegid = @$kv_pairs[0]->[1];
909    
910            my $test_out =    &FIG::run("$FIG_Config::bin/$script \"$pegid\"");
911            $out = $test_out->content;
912            print $out;
913         }
914    
915        if ($type =~/get/i)
916      {      {
917          @args = ();          @args = ();
918          foreach $x (@$kv_pairs)          foreach $x (@$kv_pairs)

Legend:
Removed from v.1.91  
changed lines
  Added in v.1.92

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3