yolanda/trunk/search.pl

require "functions.pl";

#initialize session data
CGI::Session->name($config->{"page_cookie_name"});
$query = new CGI;
$session = new CGI::Session;

@userinfo = get_userinfo_from_sid($session->id);

my $doc = XML::LibXML::Document->new( "1.0", "UTF-8" );

my $page = get_page_array(@userinfo);

#check if query is set
if($query->param('query'))
{
    my ($dbquery, @args) = get_sqlquery($query->param('query'));
    
    if($dbquery)
    {
        $page->appendChild(fill_results($dbquery, @args));
        $page->setAttribute('query', $query->param('query'));
        
        $doc->setDocumentElement($page);
        
        my @results = $doc->findnodes( "//results/result" );
        
        if($#results == -1)
        {
            print $query->redirect("index.pl?warning=warning_no_results");
        }
        elsif(($#results == 0) and (not $query->param('page') or $query->param('page') == 1))
        {
            print $query->redirect(@{$doc->findnodes( "//results/result/rdf:RDF/cc:Work/dc:identifier/text()" )}[0]->data);
        }
        else
        {
            output_page($doc);
        }
    }
    else
    {
        print $query->redirect("index.pl?error=error_no_query");
    }
}
elsif($query->param('advanced'))
{
    print $query->redirect("index.pl?error=error_202c");
}
else
{
    print $query->redirect("index.pl?error=error_no_query");
}