53 lines
1.3 KiB
Perl
53 lines
1.3 KiB
Perl
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 $root = get_page_array(@userinfo);
|
|
|
|
#check if query is set
|
|
if($query->param('query'))
|
|
{
|
|
my ($dbquery, @args) = get_sqlquery($query->param('query'));
|
|
|
|
if($dbquery)
|
|
{
|
|
$root->appendChild(fill_results($dbquery, @args));
|
|
$root->setAttribute('query', $query->param('query'));
|
|
|
|
$doc->setDocumentElement($root);
|
|
|
|
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");
|
|
}
|