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

[Henri-Damien LAURENT]

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

Modified Files:
      Tag: rel_2_2
        MARCdetail.pl 
Log Message:
Displaying Frameworks in MarcDetail...
Enabling change in Framework comming soon.

Index: MARCdetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/MARCdetail.pl,v
retrieving revision 1.25.2.5
retrieving revision 1.25.2.6
diff -C2 -r1.25.2.5 -r1.25.2.6
*** MARCdetail.pl       25 Mar 2005 17:06:20 -0000      1.25.2.5
--- MARCdetail.pl       24 May 2005 15:06:45 -0000      1.25.2.6
***************
*** 71,74 ****
--- 71,76 ----
  $biblionumber = &MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid) unless 
$biblionumber;
  my $itemtype = &MARCfind_frameworkcode($dbh,$bibid);
+ warn "itemtype :".$itemtype;
+ 
  my $tagslib = &MARCgettagslib($dbh,1,$itemtype);
  
***************
*** 84,87 ****
--- 86,112 ----
                             });
  
+ #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=$itemtype;
+ warn "current fwk :".$curfwk ;
+ my $framework=CGI::scrolling_list( -name     => 'Frameworks',
+                       -id => 'Frameworks',
+                       -default => $curfwk,
+                       -values   => address@hidden,
+                       -labels   => \%select_fwk,
+                       -size     => 1,
+                       -multiple => 0 );
+ 
+ $template->param( framework => $framework);
  # fill arrays
  my @loop_data =();