[Koha-cvs] CVS: koha/C4 SearchMarc.pm,1.36.2.11,1.36.2.12

[Joshua Ferraro]

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

Modified Files:
      Tag: rel_2_2
	SearchMarc.pm 
Log Message:
Adds new sub getMARCurls which allows opac-detail.pl to display
Table of Contents and Descriptions when they exist in the MARC
record (in 856u).


Index: SearchMarc.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/SearchMarc.pm,v
retrieving revision 1.36.2.11
retrieving revision 1.36.2.12
diff -C2 -r1.36.2.11 -r1.36.2.12
*** SearchMarc.pm	6 Jun 2005 15:23:35 -0000	1.36.2.11
--- SearchMarc.pm	1 Jul 2005 18:26:10 -0000	1.36.2.12
***************
*** 42,46 ****
  
  @ISA = qw(Exporter);
! @EXPORT = qw(&catalogsearch &findseealso &findsuggestion &getMARCnotes &getMARCsubjects);
  
  =head1 findsuggestion($dbh,$values);
--- 42,46 ----
  
  @ISA = qw(Exporter);
! @EXPORT = qw(&catalogsearch &findseealso &findsuggestion &getMARCurls &getMARCnotes &getMARCsubjects);
  
  =head1 findsuggestion($dbh,$values);
***************
*** 164,168 ****
--- 164,173 ----
  
  =cut
+ =head2 my $marcurlsarray = &getMARCurls($dbh,$bibid,$marcflavour);
  
+ Returns a reference to an array containing all the URLS stored in the MARC database for the given bibid.
+ $marcflavour ("MARC21" or "UNIMARC") isn't used in this version because both flavours of MARC use the same subfield for URLS (but eventually when we get the lables working we'll need to change this.
+ 
+ =cut
  sub catalogsearch {
  	my ($dbh, $tags, $and_or, $excluding, $operator, $value, $offset,$length,$orderby,$desc_or_asc) = @_;
***************
*** 612,615 ****
--- 617,638 ----
  }  #end getMARCsubjects
  
+ sub getMARCurls {
+ # same for MARC21 and UNIMARC with current functionality
+ # FIXME: really, this is a temporary hack
+    my ($dbh, $bibid, $marcflavour) = @_;
+ my $sth=$dbh->prepare("SELECT subfieldvalue FROM marc_subfield_table WHERE bibid=? AND tag = '856' and subfieldcode = 'u'");
+ $sth->execute($bibid);
+ my @marcurls;
+         while (my $data=$sth->fetchrow_array) {
+ 		my %line;
+ 		$line{MARCURL} = $data;
+                 push @marcurls, \%line;
+ 	}
+ 	$sth->finish;
+ 	$dbh->disconnect;
+ my $marcurlsarray=\@marcurls;
+ return $marcurlsarray;
+ }  #end getMARCurls
+ 				
  END { }       # module clean-up code here (global destructor)