[Koha-cvs] CVS: koha MARCdetail.pl,1.25.2.6,1.25.2.7

[Henri-Damien LAURENT]

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

Modified Files:
      Tag: rel_2_2
        MARCdetail.pl 
Log Message:
Adding Framework Change "On-line", i.e. Not yet saved in database.

Index: MARCdetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/MARCdetail.pl,v
retrieving revision 1.25.2.6
retrieving revision 1.25.2.7
diff -C2 -r1.25.2.6 -r1.25.2.7
*** MARCdetail.pl       24 May 2005 15:06:45 -0000      1.25.2.6
--- MARCdetail.pl       24 May 2005 15:52:35 -0000      1.25.2.7
***************
*** 66,74 ****
  my $biblionumber=$query->param('bib');
  my $bibid = $query->param('bibid');
  my $popup = $query->param('popup'); # if set to 1, then don't insert links, 
it's just to show the biblio
  
  $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber) unless 
$bibid;
  $biblionumber = &MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid) unless 
$biblionumber;
! my $itemtype = &MARCfind_frameworkcode($dbh,$bibid);
  warn "itemtype :".$itemtype;
  
--- 66,75 ----
  my $biblionumber=$query->param('bib');
  my $bibid = $query->param('bibid');
+ my $itemtype = $query->param('fwk');
  my $popup = $query->param('popup'); # if set to 1, then don't insert links, 
it's just to show the biblio
  
  $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber) unless 
$bibid;
  $biblionumber = &MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid) unless 
$biblionumber;
! $itemtype = &MARCfind_frameworkcode($dbh,$bibid) if not ($itemtype);
  warn "itemtype :".$itemtype;
  
***************
*** 103,106 ****
--- 104,108 ----
                        -id => 'Frameworks',
                        -default => $curfwk,
+                       -OnChange => 'Changefwk(this);',
                        -values   => address@hidden,
                        -labels   => \%select_fwk,