[Koha-cvs] koha/catalogue MARCdetail.pl

[Chris Cormack]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         
Changes by:     Chris Cormack <address@hidden>  06/03/06 21:18:00

Modified files:
        catalogue      : MARCdetail.pl 

Log message:
        Working now

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/catalogue/MARCdetail.pl.diff?tr1=1.1&tr2=1.2&r1=text&r2=text

Patches:
Index: koha/catalogue/MARCdetail.pl
diff -u koha/catalogue/MARCdetail.pl:1.1 koha/catalogue/MARCdetail.pl:1.2
--- koha/catalogue/MARCdetail.pl:1.1    Tue Jan 17 16:16:16 2006
+++ koha/catalogue/MARCdetail.pl        Mon Mar  6 21:18:00 2006
@@ -58,25 +58,30 @@
 use C4::Acquisition;
 use C4::Bull; #uses getsubscriptionsfrombiblionumber
 use HTML::Template;
+use C4::Search;
 
 my $query=new CGI;
 
 my $dbh=C4::Context->dbh;
 
 my $biblionumber=$query->param('biblionumber');
+if (!$biblionumber){
+    $biblionumber = $query->param('bib');
+}
 # my $bibid = $query->param('bibid');
 my $itemtype = $query->param('frameworkcode');
 my $popup = $query->param('popup'); # if set to 1, then don't insert links, 
it's just to show the biblio
 
 # $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber) unless 
$bibid;
 # $biblionumber = &MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid) unless 
$biblionumber;
-$itemtype = &MARCfind_frameworkcode($dbh,$biblionumber) if not ($itemtype);
-$itemtype = '' if ($itemtype eq 'Default');
+# $itemtype = &MARCfind_frameworkcode($dbh,$biblionumber) if not ($itemtype);
+# $itemtype = '' if ($itemtype eq 'Default');
 # warn "itemtype :".$itemtype;
 
 my $tagslib = &MARCgettagslib($dbh,1,$itemtype);
+my $record = get_record($biblionumber);
 
-my $record =MARCgetbiblio($dbh,$biblionumber);
+# my $record =MARCgetbiblio($dbh,$biblionumber);
 # open template
 my ($template, $loggedinuser, $cookie)
                = get_template_and_user({template_name => 
"catalogue/MARCdetail.tmpl",
@@ -235,13 +240,13 @@
 
    #---- 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" ) {
-               my $itemtypedef = getitemtypeinfo($itemtype);
-       return $itemtypedef->{description};
+ #             my $itemtypedef = getitemtypeinfo($itemtype);
+ #      return $itemtypedef->{description};
     }
 
    #---- "true" authorized value