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

[Henri-Damien LAURENT]

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

Modified Files:
      Tag: rel_2_2
        addbiblio.pl 
Log Message:
Fixing :
- Enabling Selection of Default Framework, event though it wasnot the framework 
of the biblio.
Adding
- Saving Framework Changes when editing a biblio.
Display improvements

Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.52.2.7
retrieving revision 1.52.2.8
diff -C2 -r1.52.2.7 -r1.52.2.8
*** addbiblio.pl        24 May 2005 20:29:40 -0000      1.52.2.7
--- addbiblio.pl        25 May 2005 09:34:40 -0000      1.52.2.8
***************
*** 351,354 ****
--- 351,355 ----
        $frameworkcode = &MARCfind_frameworkcode($dbh,$bibid) if ($bibid and 
not ($frameworkcode));
  }
+ $frameworkcode='' if ($frameworkcode eq 'Default');
  my ($template, $loggedinuser, $cookie)
      = get_template_and_user({template_name => "acqui.simple/addbiblio.tmpl",
***************
*** 366,371 ****
  my @select_fwk;
  my $curfwk;
! push @select_fwk,"";
! $select_fwk{""} = "Default";
  while (my ($description, $fwk) =$queryfwk->fetchrow) {
        push @select_fwk, $fwk;
--- 367,372 ----
  my @select_fwk;
  my $curfwk;
! push @select_fwk,"Default";
! $select_fwk{"Default"} = "Default";
  while (my ($description, $fwk) =$queryfwk->fetchrow) {
        push @select_fwk, $fwk;
***************
*** 426,429 ****
--- 427,431 ----
                my $oldbibitemnum;
                if ($is_a_modif) {
+                       NEWmodbiblioframework($dbh,$bibid,$frameworkcode);
                        NEWmodbiblio($dbh,$record,$bibid,$frameworkcode);
                } else {