[Koha-cvs] CVS: koha moredetail.pl,1.17,1.18

[Steve Tonnesen]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv12872

Modified Files:
	moredetail.pl 
Log Message:
Merging from rel-1-2 to trunk


Index: moredetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/moredetail.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -r1.17 -r1.18
*** moredetail.pl	16 Oct 2002 12:41:10 -0000	1.17
--- moredetail.pl	28 Oct 2002 22:29:08 -0000	1.18
***************
*** 28,31 ****
--- 28,33 ----
  use C4::Catalogue;
  use C4::Output; # contains gettemplate
+ use C4::Auth;
+   
  my $query=new CGI;
  
***************
*** 42,45 ****
--- 44,52 ----
  	$template = gettemplate("catalogue/moredetail.tmpl");
  }
+ my $flagsrequired;
+ $flagsrequired->{catalogue}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($query, 0, $flagsrequired);
+ 
+ # get variables 
  
  my $biblionumber=$query->param('bib');
***************
*** 66,69 ****
--- 73,79 ----
  my ($order,$ordernum)=getorder($bi,$biblionumber);
  
+ my $env;
+ $env->{itemcount}=1;
+ 
  $results[0]=$data;
  
***************
*** 93,96 ****
--- 103,107 ----
  $template->param(BIBITEM_DATA => \@results);
  $template->param(ITEM_DATA => \@items);
+ $template->param(loggedinuser => $loggedinuser);
  print "Content-Type: text/html\n\n", $template->output;