+++ /dev/null
-#!/usr/bin/perl
-
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-## This script allows you to export a rel_2_2 bibliographic db in
-#MARC21 format from the command line.
-#
-
-use strict;
-require Exporter;
-use C4::Auth;
-use C4::Output; # contains gettemplate
-use C4::Biblio;
-use CGI;
-use C4::Auth;
-
-my $outfile = $ARGV[0];
-open( OUT, ">$outfile" ) or die $!;
-my $query = new CGI;
-my $StartingBiblionumber = $query->param("StartingBiblionumber");
-my $EndingBiblionumber = $query->param("EndingBiblionumber");
-my $dbh = C4::Context->dbh;
-my $sth;
-
-if ( $StartingBiblionumber && $EndingBiblionumber ) {
- my $query =
- "SELECT biblionumber
- FROM biblioitems
- WHERE biblionumber >=?
- AND biblionumber <=?
- ORDER BY biblionumber
- ";
- $sth = $dbh->prepare($query);
- $sth->execute( $StartingBiblionumber, $EndingBiblionumber );
-} else {
- my $query = "
- SELECT biblionumber
- FROM biblioitems
- ORDER BY biblionumber
- ";
- $sth = $dbh->prepare($query);
- $sth->execute;
-}
-binmode(OUT, 'utf8');
-my $i = 0;
-while ( my ($biblionumber) = $sth->fetchrow ) {
- my $record = GetMarcBiblio($biblionumber);
- print $i++ . "\n";
-
- print OUT $record->as_usmarc();
-}
-
-close(OUT);
+++ /dev/null
-#!/usr/bin/perl
-
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-## This script allows you to export a rel_2_2 bibliographic db in
-#MARC21 format from the command line.
-#
-
-use strict;
-require Exporter;
-use C4::Auth;
-use C4::Output; # contains gettemplate
-use C4::Biblio;
-use CGI;
-use C4::Auth;
-
-my $outfile = $ARGV[0];
-open( OUT, ">$outfile" ) or die $!;
-my $query = new CGI;
-# my $StartingBiblionumber = $query->param("StartingBiblionumber");
-# my $EndingBiblionumber = $query->param("EndingBiblionumber");
-my $StartingBiblionumber = $ARGV[1];
-my $EndingBiblionumber = $ARGV[2];
-my $dbh = C4::Context->dbh;
-my $sth;
-
-warn "start ->".$StartingBiblionumber;
-warn "stop ->".$EndingBiblionumber;
-
- my $query =
- my $query = "
- SELECT biblionumber
- FROM biblioitems
- WHERE biblionumber >=?
- AND biblionumber <=?
- AND NOT EXISTS (
- SELECT DISTINCT (biblio_auth_number) FROM zebraqueue
- WHERE ( biblioitems.biblionumber = zebraqueue.biblio_auth_number)
- AND (zebraqueue.server = 'biblioserver'
- OR zebraqueue.server = '')
- )
- ORDER BY biblionumber
- ";
- $sth = $dbh->prepare($query);
- $sth->execute( $StartingBiblionumber, $EndingBiblionumber );
-binmode(OUT, 'utf8');
-my $i = 0;
-while ( my ($biblionumber) = $sth->fetchrow ) {
- my $record = GetMarcBiblio($biblionumber);
- print $i++ . "\n";
-
- print OUT $record->as_usmarc();
-}
-
-close(OUT);
+++ /dev/null
-#!/usr/bin/perl
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-# $Id$
-
-use C4::Branch; # GetBranches
-use strict;
-require Exporter;
-
-use C4::Auth;
-use C4::Output; # contains gettemplate
-use C4::Biblio;
-use CGI;
-use C4::Koha;
-
-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');
- my $StartingBiblionumber = $query->param("StartingBiblionumber");
- my $EndingBiblionumber = $query->param("EndingBiblionumber");
- 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 ";
- if ($StartingBiblionumber && $EndingBiblionumber) {
- $strsth.=" where biblionumber>=$StartingBiblionumber and biblionumber<=$EndingBiblionumber ";
- }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\' ";
- }
- }
- }
- $strsth.=" order by marc_biblio.biblionumber ";
- $strsth.= "LIMIT 0,$limit " if ($limit);
- warn "requete marc.pl : ".$strsth;
- my $req=$dbh->prepare($strsth);
- $req->execute;
- while (my ($bibid) = $req->fetchrow) {
- my $record = GetMarcBiblio($bibid);
-
- print $record->as_usmarc();
- }
-} 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,
- -tabindex=>'',
- -multiple => 0 );
- $sth->finish;
-
- my $branches = GetBranches;
- 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,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {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;
-}
-
projects / koha_gimpoz / commitdiff