[Koha-cvs] CVS: koha/acqui.simple isbnsearch.pl,1.13,1.14

[Paul POULAIN]

Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28806/acqui.simple

Modified Files:
	isbnsearch.pl 
Log Message:
cataloguing, in isbnsearch, after searching a title/ISBN, the librarian can choose the framework (+ it's a cataloguing screen, not an acquisition one)

Index: isbnsearch.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/isbnsearch.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** isbnsearch.pl	13 Aug 2004 16:37:25 -0000	1.13
--- isbnsearch.pl	2 Dec 2004 16:37:12 -0000	1.14
***************
*** 21,25 ****
  use CGI;
  use C4::Auth;
- # use C4::Catalogue;
  use C4::Biblio;
  use C4::Search;
--- 21,24 ----
***************
*** 27,30 ****
--- 26,30 ----
  use C4::Interface::CGI::Output;
  use HTML::Template;
+ use C4::Koha;
  
  my $input      = new CGI;
***************
*** 152,155 ****
--- 152,165 ----
  
  
+ 	# get framework list
+ 	my $frameworks = getframeworks;
+ 	my @frameworkcodeloop;
+ 	foreach my $thisframeworkcode (keys %$frameworks) {
+ 		my %row =(value => $thisframeworkcode,
+ 					frameworktext => $frameworks->{$thisframeworkcode}->{'frameworktext'},
+ 				);
+ 		push @frameworkcodeloop, \%row;
+ 	}
+ 
      $template->param(
          isbn          => $isbn,
***************
*** 163,167 ****
          term          => $term,
          value         => $value,
!         NOTMARC       => !$marc_p
      );
  
--- 173,178 ----
          term          => $term,
          value         => $value,
!         NOTMARC       => !$marc_p,
! 		frameworkcodeloop => \@frameworkcodeloop,
      );