diff --git a/misc/info/.bdp/import.pl b/misc/info/.bdp/import.pl deleted file mode 100755 index 60e2229511..0000000000 --- a/misc/info/.bdp/import.pl +++ /dev/null @@ -1,230 +0,0 @@ -#!/usr/bin/perl -# small script that import an iso2709 file into koha 2.0 - -use strict; - -use MARC::File::USMARC; -use MARC::Record; -use MARC::Batch; -use C4::Context; -use C4::Biblio; -use C4::Date; -use Time::HiRes qw(gettimeofday); - -use Getopt::Long; -my ( $input_marc_file) = (''); -my ($version, $test_parameter,$char_encoding, $annexe); -GetOptions( - 'file:s' => \$input_marc_file, - 'h' => \$version, - 't' => \$test_parameter, - 'c:s' => \$char_encoding, - 'a:s' => \$annexe, -); - -if ($version || ($input_marc_file eq '')) { - print <dbh; -if ($test_parameter) { - print "TESTING MODE ONLY\n DOING NOTHING\n===============\n"; -} -$|=1; # flushes output - -$char_encoding = 'UNIMARC' unless ($char_encoding); -my $starttime = gettimeofday; -my $batch = MARC::Batch->new( 'USMARC', $input_marc_file ); -$batch->warnings_off(); -$batch->strict_off(); -my $i=0; -#1st of all, find item MARC tag. -my ($tagfield,$tagsubfield) = &MARCfind_marc_from_kohafield($dbh,"items.itemnumber"); -while ( my $record = $batch->next() ) { - $i++; - print "."; - my $timeneeded = gettimeofday - $starttime; - print "$i in $timeneeded s\n" unless ($i % 50); - #now, parse the record, extract the item fields, and store them in somewhere else. - - ## create an empty record object to populate - my $newRecord = MARC::Record->new(); - -# noter le champ 908 (public visé). => ca ne doit rien donner dans les fichiers BDP - - # go through each field in the existing record - foreach my $oldField ( $record->fields() ) { - # just reproduce tags < 010 in our new record - if ( $oldField->tag() < 10 ) { - $newRecord->append_fields( $oldField ); - next(); - } - - # store our new subfield data in this list - my @newSubfields = (); - - # go through each subfield code/data pair - foreach my $pair ( $oldField->subfields() ) { - $pair->[1] =~ s/\[1] =~ s/\>//g; - # supprimer les - dans l'ISBN - if ($oldField->tag() eq '010' && $pair->[0] eq 'a') { - $pair->[1] =~ s/-//g; - } - # supprimer les () dans le titre - if ($oldField->tag() eq '200' && $pair->[0] eq 'a') { -# warn "==>".$pair->[1]; - $pair->[1] =~ s/\x88//g; - $pair->[1] =~ s/\x89//g; - } - if ($oldField->tag() eq '995' && $pair->[0] eq 'f') { -# warn "==>".$pair->[1]; - $pair->[0] = 'j'; - $pair->[1] = "a".$pair->[1]."b"; - } - if ($oldField->tag() eq '995' && $pair->[0] eq 'c') { -# warn "==>".$pair->[1]; - $pair->[1] = "BIB"; - } - if ($oldField->tag() eq '995' && $pair->[0] eq 'a') { -# warn "==>".$pair->[1]; - $pair->[1] = "Med"; - $pair->[0] = 'b'; - } - # on ignore le 995$o (notforloan dans Koha) - push( @newSubfields, $pair->[0], char_decode($pair->[1],$char_encoding)) unless ($oldField->tag() eq 995 and $pair->[0] eq 'o'); - } - - # Ajouter le nouveau champ dans le MARC::Record, en déplacant le 906 en 610 (indexation libre) - my $newField; -# if ($oldField->tag() eq 906) { -# $newField = MARC::Field->new( -# 610, -# $oldField->indicator(1), -# $oldField->indicator(2), -# @newSubfields -# ); -# } else { - $newField = MARC::Field->new( - $oldField->tag(), - $oldField->indicator(1), - $oldField->indicator(2), - @newSubfields - ); -# } - $newRecord->append_fields( $newField ); - } - # ajouter itemtypes -# print $record->as_formatted unless $record->field("995"); - my $cote =$record->field("995")->subfield("k"); - my $itemtypefield; - if ($newRecord->field('200')) { - my $type; - $type = "SF" if $cote=~/^SF /; - $type = "RP" if $cote=~/^RP /; - $type = "BDA" if ($cote=~/^BD / && $cote!~/\([J|R|B]\)/); - $type = "BD" if ($cote=~/^BD / && $cote=~/\([J|R|B]\)\s*$/); - $type = "JR" if ($cote=~/^R? / && $cote=~/\([J|R|B]\)\s*$/); - $type = "R" if ($cote=~/^R / && $cote!~/\([J|R|B]\)/); - $type = "RP" if ($cote=~/^RP / && $cote!~/\([J|R|B]\)/); - $type = "RV" if ($cote=~/^RV / && $cote!~/\([J|R|B]\)/); - $type = "RH" if ($cote=~/^RH / && $cote!~/\([J|R|B]\)/); - $type = "JD" if ($cote=~/^[0-9.]* / && $cote=~/\([J|R|B]\)\s*$/); - $type = "RP" if ($cote=~/^RP / && $cote!~/\([J|R|B]\)/); - $type = "ED" if ($cote=~/^C / && $cote=~/\([J|R|B]\)\s*$/); - $type = "RV" if ($cote=~/^[0-9.]* / && $cote!~/\([J|R|B]\)/); - $type = "A" if ($cote=~/^A /); - $type = "N" if ($cote=~/^N /); - $type = "BDP" unless ($type); - $newRecord->field('200')->add_subfields('b' => $type, - ); - } - if ($newRecord->field('317')) { - my $date; - $date = format_date('today'); - $newRecord->field('317')->add_subfields('a' => $date, - ); - } else { - my $date; - $date = format_date('today'); - my $newField = MARC::Field->new('317','','','a'=>$date); - $newRecord->append_fields($newField) - } - if ($newRecord->field('010') && $newRecord->field('010')->subfield('d')){ - my $tmpField = $newRecord->field('010')->clone; - $newRecord->delete_field($tmpField); - if ($newRecord->field('995')){ - $newRecord->field('995')->add_subfields('u'=>$tmpField->subfield('d')); - }else{ - my $Field= MARC::Field->new('995','','','u'=>$tmpField->subfield('d')); - $newRecord->insert_fields_ordered($Field); - } - } - - my @fields = $newRecord->field($tagfield); - my @items; - my $nbitems=0; - - foreach my $field (@fields) { - my $item = MARC::Record->new(); - if ($field->subfield('b')){$field->update('b' => 'Med');} else {$field->add_subfields('b' => 'Med');} - if ($field->subfield('c')){$field->update('c' => 'BIB');} else {$field->add_subfields('c' => 'BIB');} - $field->add_subfields('s' => 'Médiathèque'); -# if ($public_vise eq "A partir de 1 an") { -# $field->update('q' => '0-5'); -# } elsif ($public_vise eq "A partir de 2 ans") { -# $field->update('q' => '0-5'); -# } elsif ($public_vise eq "A partir de 3 ans") { -# $field->update('q' => '0-5'); -# } elsif ($public_vise eq "A partir de 4 ans") { -# $field->update('q' => '0-5'); -# } elsif ($public_vise eq "A partir de 6 ans") { -# $field->update('q' => '06-09'); -# } elsif ($public_vise eq "A partir de 7 ans") { -# $field->update('q' => '06-09'); -# } elsif ($public_vise eq "A partir de 8 ans") { -# $field->update('q' => '06-09'); -# } elsif ($public_vise eq "A partir de 9 ans") { -# $field->update('q' => '06-09'); -# } elsif ($public_vise eq "A partir de 10 ans") { -# $field->update('q' => '10-11'); -# } elsif ($public_vise eq "A partir de 11 ans") { -# $field->update('q' => '10-11'); -# } elsif ($public_vise eq "A partir de 12 ans") { -# $field->update('q' => '12-16'); -# } elsif ($public_vise eq "A partir de 13 ans") { -# $field->update('q' => '12-16'); -# } elsif ($public_vise eq "A partir de 14 ans") { -# $field->update('q' => '12-16'); -# } else { -# $field->update('q' => '18'); -# } - $item->append_fields($field); - push @items,$item; - $newRecord->delete_field($field); - $nbitems++; - } - # now, create biblio and items with NEWnewXX call. - unless ($test_parameter) { - warn "biblio : ".$newRecord->as_formatted; - my ($bibid,$oldbibnum,$oldbibitemnum) = NEWnewbiblio($dbh,$newRecord,'') if $nbitems>0; - for (my $i=0;$i<$nbitems;$i++) { - my $itemfield = $items[$i]; - warn "Exemplaire $i : ".$itemfield->as_formatted; - NEWnewitem($dbh,$itemfield,$bibid,''); - } - } -} -# $dbh->do("unlock tables"); -my $timeneeded = gettimeofday - $starttime; -print "$i MARC record done in $timeneeded seconds\n"; diff --git a/misc/info/.bdp/nettoie_bdp.pl b/misc/info/.bdp/nettoie_bdp.pl deleted file mode 100755 index b40928a4f1..0000000000 --- a/misc/info/.bdp/nettoie_bdp.pl +++ /dev/null @@ -1,78 +0,0 @@ -#!/usr/bin/perl -# small script that deletes biblios which barcodes are in the parameter file. - -use strict; - -use MARC::File::USMARC; -use MARC::Record; -use MARC::Batch; -use C4::Context; -use C4::Biblio; -use Time::HiRes qw(gettimeofday); - -use Getopt::Long; -my ( $input_file) = (''); -my ($version, $test_parameter,$char_encoding, $annexe); -GetOptions( - 'file:s' => \$input_file, - 'h' => \$version, - 't' => \$test_parameter, -); - -if ($version || ($input_file eq '')) { - print <dbh; -if ($test_parameter) { - print "TESTING MODE ONLY\n DOING NOTHING\n===============\n"; -} -$|=1; # flushes output - -my $starttime = gettimeofday; -open FILE, $input_file || die "erreur : fichier introuvable"; - -my $i=0; -#1st of all, find barcode MARC tag. -my ($tagfield,$tagsubfield) = &MARCfind_marc_from_kohafield($dbh,"items.barcode"); -my $sth = $dbh->prepare("select bibid from marc_subfield_table where tag=$tagfield and subfieldcode='$tagsubfield' and subfieldvalue=?"); - -while ( my $barcode = ) { - $barcode=~tr#\n\r\l# #; - $barcode=~s/\s//g; - chomp $barcode; - $barcode="a".$barcode."b" if not ($barcode=~/a|b/); - $i++; - $sth->execute($barcode); - my ($bibid) = $sth->fetchrow; - if ($test_parameter) { - if ($bibid) { - print "suppression de $bibid (code barre $barcode)\n"; - } else { - print "Problème avec le code barre $barcode : introuvable dans la base\n"; - } - } else { - if ($bibid) { - &NEWdelbiblio($dbh,$bibid); - } else { - print "Problème avec le code barre $barcode : introuvable dans la base\n"; - } - print "."; - my $timeneeded = gettimeofday - $starttime; - print "$i in $timeneeded s\n" unless ($i % 50); - - } -# print "B : $barcode"; -} -# $dbh->do("unlock tables"); -my $timeneeded = gettimeofday - $starttime; -print "$i MARC record done in $timeneeded seconds\n"; diff --git a/misc/info/Installation Koha sous Windows.sxw b/misc/info/Installation Koha sous Windows.sxw deleted file mode 100644 index 35da75a8c2..0000000000 Binary files a/misc/info/Installation Koha sous Windows.sxw and /dev/null differ diff --git a/misc/info/etc/koha-httpd.conf b/misc/info/etc/koha-httpd.conf deleted file mode 100755 index 4519921b98..0000000000 --- a/misc/info/etc/koha-httpd.conf +++ /dev/null @@ -1,23 +0,0 @@ - -NameVirtualHost * - - - - ServerAdmin webmaster@dummy-opac - DocumentRoot /koha-2.2.5/opac-html - ScriptAlias /cgi-bin/koha/ /koha-2.2.5/opac-cgi/ - ServerName opac - ErrorLog logs/opac-error_log - CustomLog logs/opac-access_log common - SetEnv PERL5LIB "c:/koha-2.2.5/modules" - - - - ServerAdmin webmaster@dummy-opac - DocumentRoot /koha-2.2.5/intranet-html - ScriptAlias /cgi-bin/koha/ /koha-2.2.5/intranet-cgi/ - ServerName intranet - ErrorLog logs/intranet-error_log - CustomLog logs/intranet-access_log common - SetEnv PERL5LIB "c:/koha-2.2.5/modules" - diff --git a/misc/info/etc/koha.conf b/misc/info/etc/koha.conf deleted file mode 100755 index 1df1d505f9..0000000000 --- a/misc/info/etc/koha.conf +++ /dev/null @@ -1,9 +0,0 @@ -database=koha -hostname=localhost -user=kohaadmin -pass=K0h@dm1n -intranetdir=c:/koha-2.2.5/intranet-cgi -opacdir=c:/koha-2.2.5/opac-cgi -kohaversion=2.2.2 -opachtdocs=c:/koha-2.2.5/opac-html/opac-tmpl -intrahtdocs=c:/koha-2.2.5/intranet-html/intranet-tmpl diff --git a/misc/info/nautilus-scripts/importe.sh b/misc/info/nautilus-scripts/importe.sh deleted file mode 100755 index 707c923b5a..0000000000 --- a/misc/info/nautilus-scripts/importe.sh +++ /dev/null @@ -1,16 +0,0 @@ -#!/bin/sh -# -# This script opens a gnome-terminal in the directory you select. -# -# Distributed under the terms of GNU GPL version 2 or later -# -# Copyright (C) Keith Conger -# -# Install in your ~/Nautilus/scripts directory. -# You need to be running Nautilus 1.0.3+ to use scripts. - -export KOHA_CONF="/etc/koha/koha.conf" -export PERL5LIB='/usr/local/koha/intranet/modules' -/home/responsables/valerie/.bdp/import.pl -file "$1" - - diff --git a/misc/info/nautilus-scripts/supprime.sh b/misc/info/nautilus-scripts/supprime.sh deleted file mode 100755 index 80815d3227..0000000000 --- a/misc/info/nautilus-scripts/supprime.sh +++ /dev/null @@ -1,16 +0,0 @@ -#!/bin/sh -# -# This script opens a gnome-terminal in the directory you select. -# -# Distributed under the terms of GNU GPL version 2 or later -# -# Copyright (C) Keith Conger -# -# Install in your ~/Nautilus/scripts directory. -# You need to be running Nautilus 1.0.3+ to use scripts. - -export KOHA_CONF="/etc/koha/koha.conf" -export PERL5LIB='/usr/local/koha/intranet/modules' -/home/responsables/valerie/.bdp/nettoie_bdp.pl -file "$1" - -