From 5347b92619d3730822fa58592088cdd95e73354d Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Tue, 18 Mar 2003 11:14:50 +0000
Subject: [PATCH] bugfix

---
 MARCdetail.pl  | 2 +-
 memberentry.pl | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/MARCdetail.pl b/MARCdetail.pl
index 80745c9164..b6f5a94b32 100755
--- a/MARCdetail.pl
+++ b/MARCdetail.pl
@@ -65,7 +65,7 @@ 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 $tagslib = &MARCgettagslib($dbh,1);
 
 my $record =MARCgetbiblio($dbh,$bibid);
diff --git a/memberentry.pl b/memberentry.pl
index 5624b9aee1..054a1522bc 100755
--- a/memberentry.pl
+++ b/memberentry.pl
@@ -35,6 +35,7 @@ use C4::Search;
 use C4::Members;
 use C4::Koha;
 use HTML::Template;
+use Date::Manip;
 
 my $input = new CGI;
 
-- 
2.39.5