From 67d1dcf1f7907a92cc203e2c252080924328e6b2 Mon Sep 17 00:00:00 2001 From: tipaul Date: Wed, 23 May 2007 16:19:40 +0000 Subject: [PATCH] various bugfixes (minor) and french translation updated --- C4/Biblio.pm | 6 +- C4/Circulation.pm | 4 +- C4/Serials.pm | 44 +- catalogue/search.pl | 4 +- .../value_builder/unimarc_field_4XX.pl | 2 +- .../prog/fr/help/bull/bull-home.tmpl | 9 + .../prog/fr/help/bull/statecollection.tmpl | 30 + .../prog/fr/help/bull/subscription-add.tmpl | 34 + .../fr/help/bull/subscription-detail.tmpl | 32 + .../prog/fr/help/circ/circulation.tmpl | 18 + .../prog/fr/help/circ/returns.tmpl | 16 + misc/translator/po/prog_intranet_fr_FR.po | 13259 ++++++++-------- misc/translator/po/prog_opac_fr.po | 90 +- opac/opac-authoritiesdetail.pl | 2 +- opac/opac-user.pl | 13 +- 15 files changed, 6839 insertions(+), 6724 deletions(-) create mode 100644 koha-tmpl/intranet-tmpl/prog/fr/help/bull/bull-home.tmpl create mode 100644 koha-tmpl/intranet-tmpl/prog/fr/help/bull/statecollection.tmpl create mode 100644 koha-tmpl/intranet-tmpl/prog/fr/help/bull/subscription-add.tmpl create mode 100644 koha-tmpl/intranet-tmpl/prog/fr/help/bull/subscription-detail.tmpl create mode 100644 koha-tmpl/intranet-tmpl/prog/fr/help/circ/circulation.tmpl create mode 100644 koha-tmpl/intranet-tmpl/prog/fr/help/circ/returns.tmpl diff --git a/C4/Biblio.pm b/C4/Biblio.pm index e86dd24c8d..995962dcff 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -1455,9 +1455,6 @@ sub GetMarcStructure { ( $forlibrarian or !$libopac ) ? $liblibrarian : $libopac; # why the hell do we need to explicitly decode utf8 ? # that's a good question, but we must do it... - use utf8; - utf8::decode($res->{$tag}->{lib}); -# warn "$liblibrarian"; $res->{$tab}->{tab} = ""; # XXX $res->{$tag}->{mandatory} = $mandatory; $res->{$tag}->{repeatable} = $repeatable; @@ -3920,6 +3917,9 @@ Joshua Ferraro jmf@liblime.com # $Id$ # $Log$ +# Revision 1.209 2007/05/23 16:19:40 tipaul +# various bugfixes (minor) and french translation updated +# # Revision 1.208 2007/05/22 09:13:54 tipaul # Bugfixes & improvements (various and minor) : # - updating templates to have tmpl_process3.pl running without any errors diff --git a/C4/Circulation.pm b/C4/Circulation.pm index e6cd4a5b00..64c86c16b2 100755 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -1602,11 +1602,11 @@ sub CanBookBeRenewed { $renewokay = 1; } $sth2->finish; - my ( $resfound, $resrec ) = CheckReserves($itemnumber); + my ( $resfound, $resrec ) = C4::Reserves::CheckReserves($itemnumber); if ($resfound) { $renewokay = 0; } - ( $resfound, $resrec ) = CheckReserves($itemnumber); + ( $resfound, $resrec ) = C4::Reserves::CheckReserves($itemnumber); if ($resfound) { $renewokay = 0; } diff --git a/C4/Serials.pm b/C4/Serials.pm index a8e61e32ef..88085d4bbd 100644 --- a/C4/Serials.pm +++ b/C4/Serials.pm @@ -1052,8 +1052,9 @@ sub GetExpirationDate { # we don't do the same test if the subscription is based on X numbers or on X weeks/months # warn "SUBSCRIPTIONID :$subscriptionid"; -# use Data::Dumper; warn Dumper($subscription); + use Data::Dumper; warn Dumper($subscription); + warn "dateCHECKRESERV :".$subscription->{startdate}; if ( $subscription->{numberlength} ) { #calculate the date of the last issue. my $length = $subscription->{numberlength}; @@ -1064,7 +1065,6 @@ sub GetExpirationDate { } } elsif ( $subscription->{monthlength} ){ -# warn "dateCHECKRESERV :".$subscription->{startdate}; my @date=split (/-/,$subscription->{startdate}); my @enddate = Add_Delta_YM($date[0],$date[1],$date[2],0,$subscription->{monthlength}); $enddate=sprintf("%04d-%02d-%02d",$enddate[0],$enddate[1],$enddate[2]); @@ -1745,20 +1745,40 @@ sub HasSubscriptionExpired { my ($subscriptionid) = @_; my $dbh = C4::Context->dbh; my $subscription = GetSubscription($subscriptionid); - my $expirationdate = GetExpirationDate($subscriptionid); - my $query = qq| + if ($subscription->{periodicity}){ + my $expirationdate = GetExpirationDate($subscriptionid); + my $query = qq| SELECT max(planneddate) FROM serial WHERE subscriptionid=? - |; - my $sth = $dbh->prepare($query); - $sth->execute($subscriptionid); - my ($res) = $sth->fetchrow ; - my @res=split (/-/,$res); - my @endofsubscriptiondate=split(/-/,$expirationdate); - return 1 if ( (@endofsubscriptiondate && Delta_Days($res[0],$res[1],$res[2], + |; + my $sth = $dbh->prepare($query); + $sth->execute($subscriptionid); + my ($res) = $sth->fetchrow ; + my @res=split (/-/,$res); +# warn "date expiration :$expirationdate"; + my @endofsubscriptiondate=split(/-/,$expirationdate); + return 1 if ( (@endofsubscriptiondate && Delta_Days($res[0],$res[1],$res[2], $endofsubscriptiondate[0],$endofsubscriptiondate[1],$endofsubscriptiondate[2]) <= 0) || (!$res)); + return 0; + } else { + if ($subscription->{numberlength}){ + my $query = qq| + SELECT count(*) + FROM serial + WHERE subscriptionid=? + AND serial.publisheddate>? + |; + my $sth=$dbh->prepare($query); + $sth->execute($subscriptionid, $subscription->{startdate}); + my ($countreceived)=$sth->fetchrow; + return 1 if ($countreceived) >$subscription->{numberlentgh}-3; + return 0; + } else { + return 0; + } + } return 0; } @@ -2274,7 +2294,7 @@ sub abouttoexpire { "select max(planneddate) from serial where subscriptionid=?"); $sth->execute($subscriptionid); my ($res) = $sth->fetchrow ; -# warn "date expiration : ".$expirationdate." date courante ".$res; + warn "date expiration : ".$expirationdate." date courante ".$res; my @res=split /-/,$res; my @endofsubscriptiondate=split/-/,$expirationdate; my $per = $subscription->{'periodicity'}; diff --git a/catalogue/search.pl b/catalogue/search.pl index 4698cef529..89f3f43925 100755 --- a/catalogue/search.pl +++ b/catalogue/search.pl @@ -228,11 +228,11 @@ my $cnt; my $imgdir = getitemtypeimagesrc(); foreach my $thisitemtype (sort keys %$itemtypes) { my %row =( number=>$cnt++, - imageurl=>$imgdir."/".$itemtypes->{$thisitemtype}->{'imageurl'}, + imageurl=> $itemtypes->{$thisitemtype}->{'imageurl'}?($imgdir."/".$itemtypes->{$thisitemtype}->{'imageurl'}):"", code => $thisitemtype, selected => $selected, description => $itemtypes->{$thisitemtype}->{'description'}, - count5 => $cnt % 5, + count5 => $cnt % 4, ); $selected = 0 if ($selected) ; push @itemtypesloop, \%row; diff --git a/cataloguing/value_builder/unimarc_field_4XX.pl b/cataloguing/value_builder/unimarc_field_4XX.pl index 95edbe38c5..9f90665a2f 100755 --- a/cataloguing/value_builder/unimarc_field_4XX.pl +++ b/cataloguing/value_builder/unimarc_field_4XX.pl @@ -300,7 +300,7 @@ sub plugin { from=>$from, to=>$to, numbers=>\@numbers, - searchdesc=> $searchdesc, + search=> $search, $defaultview => 1, Search =>0 ); diff --git a/koha-tmpl/intranet-tmpl/prog/fr/help/bull/bull-home.tmpl b/koha-tmpl/intranet-tmpl/prog/fr/help/bull/bull-home.tmpl new file mode 100644 index 0000000000..5aee551351 --- /dev/null +++ b/koha-tmpl/intranet-tmpl/prog/fr/help/bull/bull-home.tmpl @@ -0,0 +1,9 @@ + +Aide en ligne › Abonnements périodiques + + +

Aide de abonnement périodiques

+

Rechercher un abonnement en utilisant le bouton "Sélectionner"(avec un ISSN ou un titre)Si vous saisissez un titre, vous pouvez utiliser le joker % : %Monde% renverra tous les abonnement contenant Monde dans le titre

+

Si vous voulez créer un nouvel abonnement, cliquez sur "Ajouter un abonnement"

+ + diff --git a/koha-tmpl/intranet-tmpl/prog/fr/help/bull/statecollection.tmpl b/koha-tmpl/intranet-tmpl/prog/fr/help/bull/statecollection.tmpl new file mode 100644 index 0000000000..60f7875be8 --- /dev/null +++ b/koha-tmpl/intranet-tmpl/prog/fr/help/bull/statecollection.tmpl @@ -0,0 +1,30 @@ + +Aide en ligne › Périodiques › Numéros et résumé + + +

Abonnement périodiques et résumé

+

Cet écran est divisé en 2 parties

+

La partie droite

+

La partie droite concerne les parutions.Quand vous créez un nouvel abonnement, le 1er numéro est calculé automatiquement.Lorsque vous voulez/ avez besoin,vous pouvez définir les numéros qui ont un nouveau statut :

+ +

La partie gauche

+

Il y a 6 informations différentes dans la partie gauche, qui sont calculées automatiquement pour la plupart, mais vous pouvez les changer

+

+

Renouvellements d'abonnement

+

Koha calcule automatiquement la fin de l'abonnement (à partir de la date de début et du nombre d'exemplaires reçus). Lorsqu'un abonnement a pris fin, vous ne pouvez plus changer l'état du dernier "exemplaire en attente" (car il n'est plus attendu en fait). Pour pouvoir "recevoir" ce numéro, vous devez renouveler votre abonnement.

+

Renouveler un abonnement signifie que vous devez compléter quelques informations pour le renouvellement.Lorsque ces informations sont saisies, une suggestion est automatiquement créée dans Koha.Cette suggestion peut- être gérée par la/le bibliothécaire qui commande les livres, comme n'importe quelle autre commande (= budget et fournisseur sont définis ici).

+

Noter que le renouvellement de l'abonnement fait par le bibliothécaire responsable des périodiques est censé être immédiat.Nous avons choisi de rendre Koha aussi simple que possible.En fait, le renouvellement de l'abonnement ne peut pas être immédiat, mais nous n'avons pas voulu ajouter trop de complications.

+

+ + diff --git a/koha-tmpl/intranet-tmpl/prog/fr/help/bull/subscription-add.tmpl b/koha-tmpl/intranet-tmpl/prog/fr/help/bull/subscription-add.tmpl new file mode 100644 index 0000000000..2a6a40461d --- /dev/null +++ b/koha-tmpl/intranet-tmpl/prog/fr/help/bull/subscription-add.tmpl @@ -0,0 +1,34 @@ + +Aide en ligne › Périodiques › Ajout d'abonnements + + +

Aide de ajout et modification d'abonnement

+