[Koha-cvs] CVS: koha/opac opac-detail.pl,1.13,1.14 opac-search.pl,1.18,1.19

[Paul POULAIN]

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

Modified Files:
	opac-detail.pl opac-search.pl 
Log Message:
commiting stephen hedges modifs to css template & fixing a bug in variable name (same name in TMPL_LOOP and TMPL_VAR confuses a lot HTML::Template)

Index: opac-detail.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-detail.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** opac-detail.pl	17 Aug 2004 20:50:41 -0000	1.13
--- opac-detail.pl	18 Aug 2004 16:44:37 -0000	1.14
***************
*** 50,54 ****
  my $marc = C4::Context->preference("marc");
  if ($marc eq "yes") {
!         my $dbh = C4::Context->dbh;
  	my $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber);
  	my $marcflavour = C4::Context->preference("marcflavour");
--- 50,54 ----
  my $marc = C4::Context->preference("marc");
  if ($marc eq "yes") {
! 	my $dbh = C4::Context->dbh;
  	my $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber);
  	my $marcflavour = C4::Context->preference("marcflavour");

Index: opac-search.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-search.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -r1.18 -r1.19
*** opac-search.pl	16 Aug 2004 12:48:53 -0000	1.18
--- opac-search.pl	18 Aug 2004 16:44:37 -0000	1.19
***************
*** 12,16 ****
  use C4::Acquisition;
  use C4::Biblio;
! use C4::Search;
  
  my $classlist='';
--- 12,16 ----
  use C4::Acquisition;
  use C4::Biblio;
! # use C4::Search;
  
  my $classlist='';
***************
*** 49,53 ****
  	foreach my $marc (@marclist) {
  		if ($marc) {
! 			my ($tag,$subfield) = MARCfind_marc_from_kohafield($dbh,$marc);
  			if ($tag) {
  				push @tags,$dbh->quote("$tag$subfield");
--- 49,53 ----
  	foreach my $marc (@marclist) {
  		if ($marc) {
! 			my ($tag,$subfield) = MARCfind_marc_from_kohafield($dbh,$marc,'');
  			if ($tag) {
  				push @tags,$dbh->quote("$tag$subfield");