From pate@users.sourceforge.net Thu Apr 25 07:50:20 2002 From: Pat Eyler To: koha-devel@lists.koha-community.org Subject: [Koha-devel] CVS: koha/C4 Output.pm,1.6,1.6.2.1 Date: Thu, 25 Apr 2002 07:51:04 +0000 Message-ID: MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============2265162985613648722==" --===============2265162985613648722== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: 7bit Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv19867 Modified Files: Tag: rel-1-2 Output.pm Log Message: adding prototypes, and fixing compiler warnings Index: Output.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Output.pm,v retrieving revision 1.6 retrieving revision 1.6.2.1 diff -C2 -r1.6 -r1.6.2.1 *** Output.pm 21 Apr 2002 04:45:21 -0000 1.6 --- Output.pm 25 Apr 2002 14:50:16 -0000 1.6.2.1 *************** *** 72,82 **** # make all your functions, whether exported or not; ! sub startpage{ return("\n"); } ! sub gotopage{ ! my ($target) = @_; ! print "
goto target = $target
"; my $string = ""; return $string; --- 72,82 ---- # make all your functions, whether exported or not; ! sub startpage() { return("\n"); } ! sub gotopage($) { ! my ($target) = shift; ! #print "
goto target = $target
"; my $string = ""; return $string; *************** *** 84,90 **** ! sub startmenu{ # edit the paths in here ! my ($type)=@_; if ($type eq 'issue') { open (FILE,"$path/issues-top.inc") || die; --- 84,90 ---- ! sub startmenu($) { # edit the paths in here ! my ($type)=shift; if ($type eq 'issue') { open (FILE,"$path/issues-top.inc") || die; *************** *** 104,109 **** my @string=; close FILE; ! my $count=@string; ! # $string[$count]="
"; return @string; } --- 104,109 ---- my @string=; close FILE; ! # my $count=@string; ! # $string[$count]="
"; return @string; } *************** *** 132,136 **** } ! sub mktablehdr { return("\n"); } --- 132,136 ---- } ! sub mktablehdr() { return("
\n"); } *************** *** 341,345 **** $ltext = $ltext." (Req)"; } ! @order[$posn] =mktablerow(2,'white',$ltext,$text); } } --- 341,345 ---- $ltext = $ltext." (Req)"; } ! $order[$posn] =mktablerow(2,'white',$ltext,$text); } } --===============2265162985613648722==--