[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/opac opac-MARCdetail.pl
From: |
Chris Cormack |
Subject: |
[Koha-cvs] koha/opac opac-MARCdetail.pl |
Date: |
Tue, 21 Feb 2006 00:12:26 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch:
Changes by: Chris Cormack <address@hidden> 06/02/21 00:12:26
Modified files:
opac : opac-MARCdetail.pl
Log message:
Using get_record() from Search.pm
Not ready for production, its just set to always use the default
framework at the moment
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/opac/opac-MARCdetail.pl.diff?tr1=1.10&tr2=1.11&r1=text&r2=text
Patches:
Index: koha/opac/opac-MARCdetail.pl
diff -u koha/opac/opac-MARCdetail.pl:1.10 koha/opac/opac-MARCdetail.pl:1.11
--- koha/opac/opac-MARCdetail.pl:1.10 Fri Jan 6 16:39:42 2006
+++ koha/opac/opac-MARCdetail.pl Tue Feb 21 00:12:26 2006
@@ -63,13 +63,15 @@
my $dbh=C4::Context->dbh;
my $biblionumber=$query->param('bib');
-my $bibid = $query->param('bibid');
-$bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber) unless
$bibid;
-$biblionumber = &MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid) unless
$biblionumber;
-my $itemtype = &MARCfind_frameworkcode($dbh,$bibid);
-my $tagslib = &MARCgettagslib($dbh,0,$itemtype);
+# my $bibid = $query->param('bibid');
+# $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber) unless
$bibid;
+# $biblionumber = &MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid) unless
$biblionumber;
+# my $itemtype = &MARCfind_frameworkcode($dbh,$bibid);
+my $framework = "";
+my $itemtype = "";
+my $tagslib = &MARCgettagslib($dbh,0,$framework);
-my $record =MARCgetbiblio($dbh,$bibid);
+my $record = get_record($biblionumber);
# open template
my ($template, $loggedinuser, $cookie)
= get_template_and_user({template_name =>
"opac-MARCdetail.tmpl",
@@ -147,11 +149,11 @@
}
if ($#subfields_data>=0) {
my %tag_data;
- if ($fields[$x_i]->tag() eq $fields[$x_i-1]->tag()) {
- $tag_data{tag}="";
- } else {
+ # if ($fields[$x_i]->tag() eq $fields[$x_i-1]->tag()) {
+ # $tag_data{tag}="";
+ # } else {
$tag_data{tag}=$fields[$x_i]->tag().' -'.
$tagslib->{$fields[$x_i]->tag()}->{lib};
- }
+ # }
my @tmp = @subfields_data;
$tag_data{subfield} = address@hidden;
push (@loop_data, \%tag_data);
@@ -210,8 +212,7 @@
$template->param(item_loop => address@hidden,
item_header_loop =>
address@hidden,
- biblionumber => $biblionumber,
- bibid => $bibid,
+# bibid => $bibid,
biblionumber => $biblionumber);
output_html_with_http_headers $query, $cookie, $template->output;
@@ -220,12 +221,12 @@
#---- branch
if ($tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "branches" ) {
- return getbranchdetail($value)->{branchname};
+# return getbranchdetail($value)->{branchname};
}
#---- itemtypes
if ($tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "itemtypes" ) {
- return ItemType($value);
+# return ItemType($value);
}
#---- "true" authorized value
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/opac opac-MARCdetail.pl,
Chris Cormack <=