[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   => \@select_fwk,
  			-labels   => \%select_fwk,