From pate@users.sourceforge.net Thu Apr 25 09:33:30 2002
From: Pat Eyler <pate@users.sourceforge.net>
To: koha-devel@lists.koha-community.org
Subject: [Koha-devel] CVS: koha/C4 Output.pm,1.6.2.2,1.6.2.3
Date: Thu, 25 Apr 2002 09:34:08 +0000
Message-ID: <E170lrT-0005EC-00@usw-pr-cvs1.sourceforge.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============6966242255916423448=="

--===============6966242255916423448==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: 7bit

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

Modified Files:
      Tag: rel-1-2
	Output.pm 
Log Message:
more prototypes in Output.pm

Index: Output.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Output.pm,v
retrieving revision 1.6.2.2
retrieving revision 1.6.2.3
diff -C2 -r1.6.2.2 -r1.6.2.3
*** Output.pm	25 Apr 2002 15:51:33 -0000	1.6.2.2
--- Output.pm	25 Apr 2002 16:12:45 -0000	1.6.2.3
***************
*** 163,167 ****
  }
  
! sub mktableft {
    return("</table>\n");
  }
--- 163,167 ----
  }
  
! sub mktableft() {
    return("</table>\n");
  }
***************
*** 350,358 ****
  
  
! sub endpage{
    return("</body></html>\n");
  }
  
! sub mklink {
    my ($url,$text)=@_;
    my $string="<a href=\"$url\">$text</a>";
--- 350,358 ----
  
  
! sub endpage() {
    return("</body></html>\n");
  }
  
! sub mklink($$)  {
    my ($url,$text)=@_;
    my $string="<a href=\"$url\">$text</a>";
***************
*** 375,387 ****
  }
  
! sub center {
    return ("<CENTER>\n");
  }  
  
! sub endcenter {
    return ("</CENTER>\n");
  }  
  
! sub bold {
    my ($text)=@_;
    my $string="<b>$text</b>";
--- 375,387 ----
  }
  
! sub center() {
    return ("<CENTER>\n");
  }  
  
! sub endcenter() {
    return ("</CENTER>\n");
  }  
  
! sub bold($) {
    my ($text)=@_;
    my $string="<b>$text</b>";



--===============6966242255916423448==--