[Koha-cvs] CVS: koha/C4 Output.pm,1.6.2.8,1.6.2.9

[Alan Millar]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv19686/C4

Modified Files:
      Tag: rel-1-2
        Output.pm 
Log Message:
Subroutine for pull-down list from key table

Index: Output.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Output.pm,v
retrieving revision 1.6.2.8
retrieving revision 1.6.2.9
diff -C2 -r1.6.2.8 -r1.6.2.9
*** Output.pm   25 Apr 2002 23:35:17 -0000      1.6.2.8
--- Output.pm   26 Jun 2002 07:21:28 -0000      1.6.2.9
***************
*** 1,3 ****
! package C4::Output; #asummes C4/Output
  
  #package to deal with marking up output
--- 1,5 ----
! package C4::Output;
! 
! # $Id$
  
  #package to deal with marking up output
***************
*** 8,11 ****
--- 10,15 ----
  require Exporter;
  
+ use C4::Database;
+ 
  use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
  
***************
*** 14,20 ****
  
  @ISA = qw(Exporter);
! @EXPORT = qw(&startpage &endpage &mktablehdr &mktableft &mktablerow &mklink
! &startmenu &endmenu &mkheadr &center &endcenter &mkform &mkform2 &bold
! &gotopage &mkformnotable &mkform3);
  %EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
  
--- 18,30 ----
  
  @ISA = qw(Exporter);
! @EXPORT = qw(
!       &startpage &endpage 
!       &mktablehdr &mktableft &mktablerow &mklink
!       &startmenu &endmenu &mkheadr 
!       &center &endcenter 
!       &mkform &mkform2 &bold
!       &gotopage &mkformnotable &mkform3
!       &getkeytableselectoptions
! );
  %EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
  
***************
*** 456,461 ****
  }
  
! END { }       # module clean-up code here (global destructor)
!     
  
  
--- 466,512 ----
  }
  
! #---------------------------------------------
! # Create an HTML option list for a <SELECT> form tag by using
! #    values from a DB file
! sub getkeytableselectoptions {
!       use strict;
!       # inputs
!       my (
!               $dbh,           # DBI handle
!               $tablename,     # name of table containing list of choices
!               $keyfieldname,  # column name of code to use in option list
!               $descfieldname, # column name of descriptive field
!               $showkey,       # flag to show key in description
!       )address@hidden;
!       my $selectclause;       # return value
! 
!       my (
!               $sth, $query, 
!               $key, $desc, $orderfieldname,
!       );
!       my $debug=0;
! 
!       requireDBI($dbh,"getkeytableselectoptions");
! 
!       if ( $showkey ) {
!               $orderfieldname=$keyfieldname;
!       } else {
!               $orderfieldname=$descfieldname;
!       }
!       $query= "select $keyfieldname,$descfieldname
!               from $tablename
!               order by $orderfieldname ";
!       print "<PRE>Query=$query </PRE>\n" if $debug; 
!       $sth=$dbh->prepare($query);
!       $sth->execute;
!       while ( ($key, $desc) = $sth->fetchrow) {
!           if ($showkey || ! $desc ) { $desc="$key - $desc"; }
!           $selectclause.="<option value='$key'>$desc\n";
!           print "<PRE>Sel=$selectclause </PRE>\n" if $debug; 
!       }
!       return $selectclause;
! } # sub getkeytableselectoptions
  
+ #---------------------------------
  
+ END { }       # module clean-up code here (global destructor)