[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");