[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.52.2.6,1.52.2.7

[Henri-Damien LAURENT]

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

Modified Files:
      Tag: rel_2_2
        addbiblio.pl 
Log Message:
Coping With Frameworks al allong MARC Editing.
BUG to be Fixed: Framework to save when editing a biblio.

Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.52.2.6
retrieving revision 1.52.2.7
diff -C2 -r1.52.2.6 -r1.52.2.7
*** addbiblio.pl        19 May 2005 22:17:33 -0000      1.52.2.6
--- addbiblio.pl        24 May 2005 20:29:40 -0000      1.52.2.7
***************
*** 341,351 ****
  my $dbh = C4::Context->dbh;
  my $bibid;
  if ($oldbiblionumber) {
        $bibid = 
&MARCfind_MARCbibid_from_oldbiblionumber($dbh,$oldbiblionumber);
        # find framework type
!       $frameworkcode = &MARCfind_frameworkcode($dbh,$bibid) if $bibid;
  }else {
        $bibid = $input->param('bibid');
!       $frameworkcode = &MARCfind_frameworkcode($dbh,$bibid) if $bibid;
  }
  my ($template, $loggedinuser, $cookie)
--- 341,353 ----
  my $dbh = C4::Context->dbh;
  my $bibid;
+ 
+ 
  if ($oldbiblionumber) {
        $bibid = 
&MARCfind_MARCbibid_from_oldbiblionumber($dbh,$oldbiblionumber);
        # find framework type
!       $frameworkcode = &MARCfind_frameworkcode($dbh,$bibid) if ($bibid and 
not ($frameworkcode));
  }else {
        $bibid = $input->param('bibid');
!       $frameworkcode = &MARCfind_frameworkcode($dbh,$bibid) if ($bibid and 
not ($frameworkcode));
  }
  my ($template, $loggedinuser, $cookie)
***************
*** 358,361 ****
--- 360,386 ----
                             });
  
+ #Getting the list of all frameworks
+ my $queryfwk =$dbh->prepare("select frameworktext, frameworkcode from 
biblio_framework");
+ $queryfwk->execute;
+ my %select_fwk;
+ my @select_fwk;
+ my $curfwk;
+ push @select_fwk,"";
+ $select_fwk{""} = "Default";
+ while (my ($description, $fwk) =$queryfwk->fetchrow) {
+       push @select_fwk, $fwk;
+       $select_fwk{$fwk} = $description;
+ }
+ $curfwk=$frameworkcode;
+ my $framework=CGI::scrolling_list( -name     => 'Frameworks',
+                       -id => 'Frameworks',
+                       -default => $curfwk,
+                       -OnChange => 'Changefwk(this);',
+                       -values   => address@hidden,
+                       -labels   => \%select_fwk,
+                       -size     => 1,
+                       -multiple => 0 );
+ $template->param( framework => $framework);
+ 
  $tagslib = &MARCgettagslib($dbh,1,$frameworkcode);
  my $record=-1;