[Koha-cvs] CVS: koha/C4 SearchMarc.pm,1.21,1.22

[skemotah]

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

Modified Files:
        SearchMarc.pm 
Log Message:
added getMARCnotes and getMARCsubjects functions.

Index: SearchMarc.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/SearchMarc.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -r1.21 -r1.22
*** SearchMarc.pm       22 Jun 2004 15:33:30 -0000      1.21
--- SearchMarc.pm       17 Aug 2004 20:53:34 -0000      1.22
***************
*** 50,57 ****
  =over 2
  
  =cut
  
  @ISA = qw(Exporter);
! @EXPORT = qw(&catalogsearch &findseealso &findsuggestion);
  
  # make all your functions, whether exported or not;
--- 50,67 ----
  =over 2
  
+ =item my $marcnotesarray = &getMARCnotes($dbh,$bibid,$marcflavour);
+ 
+ Returns a reference to an array containing all the notes stored in the MARC 
database for the given bibid.
+ $marcflavour ("MARC21" or "UNIMARC") determines which tags are used for 
retrieving subjects.
+ 
+ =item my $marcsubjctsarray = &getMARCsubjects($dbh,$bibid,$marcflavour);
+ 
+ Returns a reference to an array containing all the subjects stored in the 
MARC database for the given bibid.
+ $marcflavour ("MARC21" or "UNIMARC") determines which tags are used for 
retrieving subjects.
+ 
  =cut
  
  @ISA = qw(Exporter);
! @EXPORT = qw(&catalogsearch &findseealso &findsuggestion &getMARCnotes 
&getMARCsubjects);
  
  # make all your functions, whether exported or not;
***************
*** 395,398 ****
--- 405,494 ----
  }
  
+ sub getMARCnotes {
+         my ($dbh, $bibid, $marcflavour) = @_;
+       my ($mintag, $maxtag);
+       if ($marcflavour eq "MARC21") {
+               $mintag = "500";
+               $maxtag = "599";
+       } else {           # assume unimarc if not marc21
+               $mintag = "300";
+               $maxtag = "399";
+       }
+ 
+       my $sth=$dbh->prepare("SELECT subfieldvalue,tag FROM 
marc_subfield_table WHERE bibid=? AND tag BETWEEN ? AND ? ORDER BY tagorder");
+ 
+       $sth->execute($bibid,$mintag,$maxtag);
+ 
+       my @marcnotes;
+       my $note = "";
+       my $tag = "";
+       my $marcnote;
+ 
+       while (my $data=$sth->fetchrow_arrayref) {
+               my $value=$data->[0];
+               my $thistag=$data->[1];
+               if ($value=~/\.$/) {
+                       $value=$value . "  ";
+               }
+               if ($thistag ne $tag && $note ne "") {
+                       $marcnote = {MARCNOTES => $note,};
+                       push @marcnotes, $marcnote;
+                       $note=$value;
+                       $tag=$thistag;
+               }
+               if ($note ne $value) {
+                       $note = $note." ".$value;
+               }
+       }
+ 
+       if ($note) {
+               $marcnote = {MARCNOTES => $note};
+               push @marcnotes, $marcnote;   #load last tag into array
+       }
+ 
+       $sth->finish;
+       $dbh->disconnect;
+ 
+       my address@hidden;
+       return $marcnotesarray;
+ }  # end getMARCnotes
+ 
+ 
+ sub getMARCsubjects {
+     my ($dbh, $bibid, $marcflavour) = @_;
+       my ($mintag, $maxtag);
+       if ($marcflavour eq "MARC21") {
+               $mintag = "600";
+               $maxtag = "699";
+       } else {           # assume unimarc if not marc21
+               $mintag = "600";
+               $maxtag = "619";
+       }
+ 
+       my $sth=$dbh->prepare("SELECT subfieldvalue,subfieldcode FROM 
marc_subfield_table WHERE bibid=? AND tag BETWEEN ? AND ? ORDER BY tagorder");
+ 
+       $sth->execute($bibid,$mintag,$maxtag);
+ 
+       my @marcsubjcts;
+       my $subjct = "";
+       my $subfield = "";
+       my $marcsubjct;
+ 
+       while (my $data=$sth->fetchrow_arrayref) {
+               my $value = $data->[0];
+               my $subfield = $data->[1];
+               if ($subfield eq "a" && $value ne $subjct) {
+                       $marcsubjct = {MARCSUBJCTS => $value,};
+                       push @marcsubjcts, $marcsubjct;
+                       $subjct = $value;
+               }
+       }
+ 
+       $sth->finish;
+       $dbh->disconnect;
+ 
+       my address@hidden;
+         return $marcsubjctsarray;
+ }  #end getMARCsubjects
  
  END { }       # module clean-up code here (global destructor)