use C4::Output;
use C4::Circulation;
use C4::Reserves;
use Data::Dumper;
my $cgi= new CGI;
use Storable qw(thaw freeze);
use URI::Escape;
use C4::Members;
use MARC::File::XML;
-