[Koha-cvs] CVS: koha/C4 Biblio.pm,1.115.2.6,1.115.2.7

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16975/C4

Modified Files:
      Tag: rel_2_2
	Biblio.pm 
Log Message:
* adding glass to opac marc detail.
* changing glasses behaviour : It now appears only on subfields that have a "link" value. Avoid useless glasses and removes nothing. **** WARNING **** : if you don't change you MARC parameters, glasses DISAPPEAR, because no subfields have a link value. So you MUST "reactivate" them manually. If you want to enable the search glass on field 225$a (collection in UNIMARC), just put 225a to "link" field (Koha >> parameters >> framework >> 225 field >> subfield >> modify $a >> enter 225a in link input field (without quotes or anything else)
* fixing bug with libopac

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.115.2.6
retrieving revision 1.115.2.7
diff -C2 -r1.115.2.6 -r1.115.2.7
*** Biblio.pm	9 Mar 2005 15:56:01 -0000	1.115.2.6
--- Biblio.pm	10 Mar 2005 15:52:28 -0000	1.115.2.7
***************
*** 242,252 ****
      $sth =
        $dbh->prepare(
! "select tagfield,$libfield as lib,mandatory,repeatable from marc_tag_structure where frameworkcode=? order by tagfield"
      );
      $sth->execute($frameworkcode);
!     my ( $lib, $tag, $res, $tab, $mandatory, $repeatable );
  
!     while ( ( $tag, $lib, $mandatory, $repeatable ) = $sth->fetchrow ) {
!         $res->{$tag}->{lib}        = $lib;
          $res->{$tab}->{tab}        = "";            # XXX
          $res->{$tag}->{mandatory}  = $mandatory;
--- 242,252 ----
      $sth =
        $dbh->prepare(
! "select tagfield,liblibrarian,libopac,mandatory,repeatable from marc_tag_structure where frameworkcode=? order by tagfield"
      );
      $sth->execute($frameworkcode);
!     my ( $liblibrarian, $libopac, $tag, $res, $tab, $mandatory, $repeatable );
  
!     while ( ( $tag, $liblibrarian, $libopac, $mandatory, $repeatable ) = $sth->fetchrow ) {
!         $res->{$tag}->{lib}        = ($forlibrarian or !$libopac)?$liblibrarian:$libopac;
          $res->{$tab}->{tab}        = "";            # XXX
          $res->{$tag}->{mandatory}  = $mandatory;
***************
*** 256,260 ****
      $sth =
        $dbh->prepare(
! "select tagfield,tagsubfield,$libfield as lib,tab, mandatory, repeatable,authorised_value,authtypecode,value_builder,kohafield,seealso,hidden,isurl,link from marc_subfield_structure where frameworkcode=? order by tagfield,tagsubfield"
      );
      $sth->execute($frameworkcode);
--- 256,260 ----
      $sth =
        $dbh->prepare(
! "select tagfield,tagsubfield,liblibrarian,libopac,tab, mandatory, repeatable,authorised_value,authtypecode,value_builder,kohafield,seealso,hidden,isurl,link from marc_subfield_structure where frameworkcode=? order by tagfield,tagsubfield"
      );
      $sth->execute($frameworkcode);
***************
*** 271,275 ****
  
      while (
!         ( $tag,         $subfield,   $lib,              $tab,
          $mandatory,     $repeatable, $authorised_value, $authtypecode,
          $value_builder, $kohafield,  $seealso,          $hidden,
--- 271,275 ----
  
      while (
!         ( $tag,         $subfield,   $liblibrarian,   , $libopac,      $tab,
          $mandatory,     $repeatable, $authorised_value, $authtypecode,
          $value_builder, $kohafield,  $seealso,          $hidden,
***************
*** 278,282 ****
        )
      {
!         $res->{$tag}->{$subfield}->{lib}              = $lib;
          $res->{$tag}->{$subfield}->{tab}              = $tab;
          $res->{$tag}->{$subfield}->{mandatory}        = $mandatory;
--- 278,282 ----
        )
      {
!         $res->{$tag}->{$subfield}->{lib}              = ($forlibrarian or !$libopac)?$liblibrarian:$libopac;
          $res->{$tag}->{$subfield}->{tab}              = $tab;
          $res->{$tag}->{$subfield}->{mandatory}        = $mandatory;
***************
*** 2619,2622 ****
--- 2619,2627 ----
  # $Id$
  # $Log$
+ # Revision 1.115.2.7  2005/03/10 15:52:28  tipaul
+ # * adding glass to opac marc detail.
+ # * changing glasses behaviour : It now appears only on subfields that have a "link" value. Avoid useless glasses and removes nothing. **** WARNING **** : if you don't change you MARC parameters, glasses DISAPPEAR, because no subfields have a link value. So you MUST "reactivate" them manually. If you want to enable the search glass on field 225$a (collection in UNIMARC), just put 225a to "link" field (Koha >> parameters >> framework >> 225 field >> subfield >> modify $a >> enter 225a in link input field (without quotes or anything else)
+ # * fixing bug with libopac
+ #
  # Revision 1.115.2.6  2005/03/09 15:56:01  tipaul
  # Changing MARCmoditem to be like MARCmodbiblio : a modif is a delete & create.