[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 => address@hidden,
      );