[Koha-cvs] koha/misc/info Installation Koha sous Windows.s... [rel_2_2]
Henri-Damien LAURENT
laurenthdl at alinto.com
Tue Jan 31 12:08:06 CET 2006
CVSROOT: /cvsroot/koha
Module name: koha
Branch: rel_2_2
Changes by: Henri-Damien LAURENT <hdl at savannah.gnu.org> 06/01/31 11:08:06
Removed files:
misc/info : Installation Koha sous Windows.sxw
misc/info/.bdp : import.pl nettoie_bdp.pl
misc/info/etc : koha-httpd.conf koha.conf
misc/info/nautilus-scripts: importe.sh supprime.sh
Log message:
Pruning documentation files
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/misc/info/Installation.diff?only_with_tag=rel_2_2&tr1=&tr2=&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/misc/info/Koha.diff?only_with_tag=rel_2_2&tr1=&tr2=&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/misc/info/sous.diff?only_with_tag=rel_2_2&tr1=&tr2=&r1=text&r2=text
Patches:
Index: koha/misc/info/.bdp/import.pl
diff -u koha/misc/info/.bdp/import.pl:1.1.2.1 koha/misc/info/.bdp/import.pl:removed
--- koha/misc/info/.bdp/import.pl:1.1.2.1 Fri Jan 27 15:29:12 2006
+++ koha/misc/info/.bdp/import.pl Tue Jan 31 11:08:06 2006
@@ -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 <<EOF
-Script pour importer un fichier iso2709 dans Koha.
-Paramètres :
-\th : Cet écran d'aide
-\tfile /chemin/vers/fichier/fichier.iso2709 : Le fichier à importer
-\tt : test mode : Ne fait rien, sauf parser le fichier.
-\tc : L'encodate des caractères. UNIMARC (valeur par défaut) ou MARC21
-SAMPLE : ./import.pl -file /home/koha/bdp82-janvier.iso2709
-EOF
-;#'/
-die;
-}
-
-my $dbh = C4::Context->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/\<//g;
- $pair->[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";
Index: koha/misc/info/.bdp/nettoie_bdp.pl
diff -u koha/misc/info/.bdp/nettoie_bdp.pl:1.1.2.1 koha/misc/info/.bdp/nettoie_bdp.pl:removed
--- koha/misc/info/.bdp/nettoie_bdp.pl:1.1.2.1 Fri Jan 27 15:29:12 2006
+++ koha/misc/info/.bdp/nettoie_bdp.pl Tue Jan 31 11:08:06 2006
@@ -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 <<EOF
-Script pour supprimer des notices en série dans Koha
-Paramètres :
-\th : Cet écran d'aide
-\tfile /chemin/vers/fichier/fichier.codebarres : Le fichier contenant les code-barres à supprimer. Chaque code-barre est sur une ligne différente.
-\tt : test mode : Ne fait rien, sauf parser le fichier.
-SAMPLE : ./nettoie_bdp.pl -file /home/koha/liste_barcodes.txt
-EOF
-;#'
-die;
-}
-
-my $dbh = C4::Context->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 = <FILE> ) {
- $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";
Index: koha/misc/info/etc/koha-httpd.conf
diff -u koha/misc/info/etc/koha-httpd.conf:1.1.2.1 koha/misc/info/etc/koha-httpd.conf:removed
--- koha/misc/info/etc/koha-httpd.conf:1.1.2.1 Fri Jan 27 15:29:12 2006
+++ koha/misc/info/etc/koha-httpd.conf Tue Jan 31 11:08:06 2006
@@ -1,23 +0,0 @@
-
-NameVirtualHost *
-
-
-<VirtualHost *>
- ServerAdmin webmaster at 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"
-</VirtualHost>
-
-<VirtualHost *>
- ServerAdmin webmaster at 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"
-</VirtualHost>
Index: koha/misc/info/etc/koha.conf
diff -u koha/misc/info/etc/koha.conf:1.1.2.1 koha/misc/info/etc/koha.conf:removed
--- koha/misc/info/etc/koha.conf:1.1.2.1 Fri Jan 27 15:29:12 2006
+++ koha/misc/info/etc/koha.conf Tue Jan 31 11:08:06 2006
@@ -1,9 +0,0 @@
-database=koha
-hostname=localhost
-user=kohaadmin
-pass=K0h at 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
Index: koha/misc/info/nautilus-scripts/importe.sh
diff -u koha/misc/info/nautilus-scripts/importe.sh:1.1.2.1 koha/misc/info/nautilus-scripts/importe.sh:removed
--- koha/misc/info/nautilus-scripts/importe.sh:1.1.2.1 Fri Jan 27 15:29:12 2006
+++ koha/misc/info/nautilus-scripts/importe.sh Tue Jan 31 11:08:06 2006
@@ -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 <acid at twcny.rr.com>
-#
-# 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"
-
-
Index: koha/misc/info/nautilus-scripts/supprime.sh
diff -u koha/misc/info/nautilus-scripts/supprime.sh:1.1.2.1 koha/misc/info/nautilus-scripts/supprime.sh:removed
--- koha/misc/info/nautilus-scripts/supprime.sh:1.1.2.1 Fri Jan 27 15:29:12 2006
+++ koha/misc/info/nautilus-scripts/supprime.sh Tue Jan 31 11:08:06 2006
@@ -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 <acid at twcny.rr.com>
-#
-# 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"
-
-
More information about the Koha-cvs
mailing list