Deleting Date::Manip

[koha_fer] / catalogue / ISBDdetail.pl

diff --git a/catalogue/ISBDdetail.pl b/catalogue/ISBDdetail.pl
index 487105b..72f6b5e 100755 (executable)
--- a/catalogue/ISBDdetail.pl
+++ b/catalogue/ISBDdetail.pl
@@ -39,7 +39,6 @@ require Exporter;
 use C4::Auth;
 use C4::Context;
 use C4::Output;
-use C4::Interface::CGI::Output;
 use CGI;
 use C4::Koha;
 use C4::Biblio;
@@ -86,8 +85,8 @@ my $query = new CGI;
 my $dbh = C4::Context->dbh;
 
 my $biblionumber = $query->param('biblionumber');
-my $itemtype     = &MARCfind_frameworkcode($biblionumber);
-my $tagslib      = &MARCgettagslib( $dbh, 1, $itemtype );
+my $itemtype     = &GetFrameworkCode($biblionumber);
+my $tagslib      = &GetMarcStructure( 1, $itemtype );
 
 my $record = GetMarcBiblio($biblionumber);
 
@@ -97,7 +96,8 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
         template_name => "catalogue/ISBDdetail.tmpl",
         query         => $query,
         type          => "intranet",
-        debug         => 1,
+       authnotrequired => 0,
+       flagsrequired   => { catalogue => 1 },
     }
 );
 
@@ -171,7 +171,9 @@ $res =~ s/\n/<br\/>/g;
 
 # remove empty ()
 $res =~ s/\(\)//g;
-
+# count of item linked with biblio
+my $itemcount = GetItemsCount($biblionumber);
+$template->param( count => $itemcount);
 my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber);
  
 if ($subscriptionsnumber) {