2a3,4
> print "Content-type: image/svg-xml\n\n";
> 
3a6,7
> use lib ( '.' );
> use lib ( '../lib' );
6,9c10,12
< use CGI_Lite;
< 
< print "Content-type: image/svg-xml\n\n";
< 
---
> use CGI;
> use CGI::Carp qw(fatalsToBrowser);
> use File::Temp qw/ tempfile /;
18,20c21
< # create CGI object, CGI.pm could be used instead
< my $cgi = new CGI_Lite;
< my %data = $cgi->parse_form_data;
---
> my $query = new CGI;
21a23,24
> &TWiki::initialize( $query->path_info(), $query->remote_user(), $query->param('topic'), $query->url, $query );
> 
23,24c26,28
< my $web = $data{web};
< my $startNode = $data{topicname};
---
> my $web = $query->param( 'web' );
> my $startNode = $query->param( 'topic' );
> my $includeSearch = $query->param('search') || "yes";
37c41
< 
---
>     
43c47,50
<     $rawPage =~ s/%SEARCH\{([^\}]*)\}%/TWiki::handleSearchWeb($1.qq[ web="$web"])/emg;
---
>     if ($includeSearch eq "yes") 
>     {
>     	$rawPage =~ s/%SEARCH\{([^\}]*)\}%/TWiki::handleSearchWeb($1.qq[ web="$web"])/emg;
>     }
80a88
> #my $output = $g->_as_debug;
97c105
<     return qq[<a xlink:href="/cgi-bin/twiki/bin/view/$web/$text">$xml</a>];
---
>     return qq[<a xlink:href="$TWiki::scriptUrlPath/view$TWiki::scriptSuffix/$web/$text">$xml</a>];