Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv15969 Modified Files: Tag: rel-1-2 Output.pm Log Message: added a simple POD style comment to &bold to show how it can be done. Index: Output.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Output.pm,v retrieving revision 1.6.2.3 retrieving revision 1.6.2.4 diff -C2 -r1.6.2.3 -r1.6.2.4 *** Output.pm 25 Apr 2002 16:12:45 -0000 1.6.2.3 --- Output.pm 25 Apr 2002 17:30:03 -0000 1.6.2.4 *************** *** 383,390 **** } sub bold($) { ! my ($text)=@_; ! my $string="<b>$text</b>"; ! return($string); } --- 383,395 ---- } + =pod + =head2 &bold + &bold requires that a single string be passed in by the caller. &bold + will return "<b>$text</b>" where $text is the string passed in. + =cut + sub bold($) { ! my ($text)=shift; ! return("<b>$text</b>"); }