## All rights reserved.
## Redistribution and use in source and binary forms, with or without
## modification, are permitted provided that the following conditions are met:
## All rights reserved.
## Redistribution and use in source and binary forms, with or without
## modification, are permitted provided that the following conditions are met:
$args->{ENTRIES} = $entries;
$args->{STATUS} = Net::Z3950::SimpleServer::ScanPartial;
print "Welcome to scan....\n";
$args->{ENTRIES} = $entries;
$args->{STATUS} = Net::Z3950::SimpleServer::ScanPartial;
print "Welcome to scan....\n";
print "------------------------------------------------------------\n";
$args->{OUTPUTFACETS} = $facets;
print "------------------------------------------------------------\n";
$args->{OUTPUTFACETS} = $facets;