[Koha-cvs] CVS: koha/C4 Biblio.pm,1.89,1.90

[Paul POULAIN]

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

Modified Files:
	Biblio.pm 
Log Message:
hidding hidden & isurl constraints into MARC subfield structure

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.89
retrieving revision 1.90
diff -C2 -r1.89 -r1.90
*** Biblio.pm	27 May 2004 21:47:21 -0000	1.89
--- Biblio.pm	28 May 2004 08:25:53 -0000	1.90
***************
*** 240,244 ****
  	}
  
! 	$sth=$dbh->prepare("select tagfield,tagsubfield,$libfield as lib,tab, mandatory, repeatable,authorised_value,thesaurus_category,value_builder,kohafield,seealso from marc_subfield_structure where itemtype=? order by tagfield,tagsubfield");
  	$sth->execute($itemtype);
  
--- 240,244 ----
  	}
  
! 	$sth=$dbh->prepare("select tagfield,tagsubfield,$libfield as lib,tab, mandatory, repeatable,authorised_value,thesaurus_category,value_builder,kohafield,seealso,hidden,isurl from marc_subfield_structure where itemtype=? order by tagfield,tagsubfield");
  	$sth->execute($itemtype);
  
***************
*** 249,253 ****
  	my $kohafield;
  	my $seealso;
! 	while ( ($tag, $subfield, $lib, $tab, $mandatory, $repeatable,$authorised_value,$thesaurus_category,$value_builder,$kohafield,$seealso) = $sth->fetchrow) {
  		$res->{$tag}->{$subfield}->{lib}=$lib;
  		$res->{$tag}->{$subfield}->{tab}=$tab;
--- 249,255 ----
  	my $kohafield;
  	my $seealso;
! 	my $hidden;
! 	my $isurl;
! 	while ( ($tag, $subfield, $lib, $tab, $mandatory, $repeatable,$authorised_value,$thesaurus_category,$value_builder,$kohafield,$seealso,$hidden,$isurl) = $sth->fetchrow) {
  		$res->{$tag}->{$subfield}->{lib}=$lib;
  		$res->{$tag}->{$subfield}->{tab}=$tab;
***************
*** 259,262 ****
--- 261,266 ----
  		$res->{$tag}->{$subfield}->{kohafield}=$kohafield;
  		$res->{$tag}->{$subfield}->{seealso}=$seealso;
+ 		$res->{$tag}->{$subfield}->{hidden}=$hidden;
+ 		$res->{$tag}->{$subfield}->{isurl}=$isurl;
  	}
  	return $res;
***************
*** 2200,2203 ****
--- 2204,2210 ----
  # $Id$
  # $Log$
+ # Revision 1.90  2004/05/28 08:25:53  tipaul
+ # hidding hidden & isurl constraints into MARC subfield structure
+ #
  # Revision 1.89  2004/05/27 21:47:21  rangi
  # Fix for bug 787