gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Export from biblioitems (very fast)

This commit is contained in:
tgarip1957 2006-05-09 09:09:34 +00:00
parent 0000b05c84
commit 11b021d69c
1 changed files with 15 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

99
export/marc.pl
View File

@ -8,94 +8,31 @@ use C4::Interface::CGI::Output;
use C4::Output; # contains gettemplate
use C4::Biblio;
use CGI;
use C4::Koha;
use C4::Auth;
my $query = new CGI;
my $op=$query->param("op");
my $dbh=C4::Context->dbh;
if ($op eq "export") {
print $query->header( -type => 'application/octet-stream',
-attachment=>'koha.mrc');
print $query->header('Content-Type: text/marc');
my $start_bib = $query->param("start_bib");
my $end_bib = $query->param("end_bib");
my $format = $query->param("format");
my $branch = $query->param("branch");
my $start_callnumber = $query->param("start_callnumber");
my $end_callnumber = $query->param("end_callnumber");
my $limit = $query->param("limit");
my $strsth;
$strsth="select bibid from marc_biblio ";
my $dbh=C4::Context->dbh;
my $sth;
if ($start_bib && $end_bib) {
$strsth.=" where biblionumber>=$start_bib and biblionumber<=$end_bib ";
}elsif ($format) {
if ($strsth=~/ where/){
$strsth=~s/ where (.*)/,biblioitems where biblioitems.biblionumber=marc_biblio.biblionumber and biblioitems.itemtype=\'$format\' and $1/;
}else {
$strsth.=",biblioitems where biblioitems.biblionumber=marc_biblio.biblionumber and biblioitems.itemtype=\'$format\'";
}
} elsif ($branch) {
if ($strsth=~/ where/){
$strsth=~s/ where (.*)/,items where items.biblionumber=marc_biblio.biblionumber and items.homebranch=\'$branch\' and $1/;
}else {
$strsth.=",items where items.biblionumber=marc_biblio.biblionumber and items.homebranch=\'$branch\'";
}
} elsif ($start_callnumber && $end_callnumber) {
$start_callnumber=~s/\*/\%/g;
$start_callnumber=~s/\?/\_/g;
$end_callnumber=~s/\*/\%/g;
$end_callnumber=~s/\?/\_/g;
if ($strsth=~/,items/){
$strsth.=" and items.itemcallnumber between \'$start_callnumber\' and \'$end_callnumber\'";
} else {
if ($strsth=~/ where/){
$strsth=~s/ where (.*)/,items where items.biblionumber=marc_biblio.biblionumber and items.itemcallnumber between \'$start_callnumber\' and \'$end_callnumber\' and $1/;
}else {
$strsth=~",items where items.biblionumber=marc_biblio.biblionumber and items.itemcallnumber between \'$start_callnumber\' and \'$end_callnumber\' ";
}
}
$sth=$dbh->prepare("select marc from biblioitems where biblionumber >=? and biblionumber <=? order by biblionumber");
$sth->execute($start_bib,$end_bib);
} elsif ($start_bib ) {
$sth=$dbh->prepare("select marc from biblioitems where biblionumber >=? order by biblionumber");
$sth->execute($start_bib);
}else {
$sth=$dbh->prepare("select marc from biblioitems order by biblionumber");
$sth->execute();
}
$strsth.=" order by marc_biblio.biblionumber ";
$strsth.= "LIMIT 0,$limit " if ($limit);
warn "requête marc.pl : ".$strsth;
my $req=$dbh->prepare($strsth);
$req->execute;
while (my ($bibid) = $req->fetchrow) {
my $record = MARCgetbiblio($dbh,$bibid);
print $record->as_usmarc();
while (my ($marc) = $sth->fetchrow) {
if ($marc){print $marc;}
}
} else {
my $sth=$dbh->prepare("Select itemtype,description from itemtypes order by description");
$sth->execute;
my @itemtype;
my %itemtypes;
push @itemtype, "";
$itemtypes{''} = "";
while (my ($value,$lib) = $sth->fetchrow_array) {
push @itemtype, $value;
$itemtypes{$value}=$lib;
}
my $CGIitemtype=CGI::scrolling_list( -name => 'format',
-values => \@itemtype,
-default => '',
-labels => \%itemtypes,
-size => 1,
-multiple => 0 );
$sth->finish;
my $branches = getallbranches;
my @branchloop;
foreach my $thisbranch (keys %$branches) {
# my $selected = 1 if $thisbranch eq $branch;
my %row =(value => $thisbranch,
# selected => $selected,
branchname => $branches->{$thisbranch}->{'branchname'},
);
push @branchloop, \%row;
}
my ($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "export/marc.tmpl",
query => $query,
@ -104,12 +41,6 @@ if ($op eq "export") {
flagsrequired => {parameters => 1, management => 1, tools => 1},
debug => 1,
});
$template->param(branchloop=>\@branchloop,
CGIitemtype=>$CGIitemtype,
intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
intranetstylesheet => C4::Context->preference("intranetstylesheet"),
IntranetNav => C4::Context->preference("IntranetNav"),
);
output_html_with_http_headers $query, $cookie, $template->output;
}