April 2002 - Koha-devel - lists.koha-community.org

First cut of a tarball
by Chris Cormack 26 Apr '02

26 Apr '02

Hi all Ive put up http://developer.koha.org/koha-1.1.2-rc1.tgz Basically for ppl to take a look at, and check the structure. Ive included the most current html and perl. As well as the 1.1.2 changelog. Basically my idea was that if ppl could grab a copy and take a look, then when we talk about replacing such and such with something else. Everyone will have an idea of what we are talking about. So take a look, tell me whats its missing, or whats its got that it doesnt need, and we'll go from there. Chris -- Chris Cormack Programmer 025 500 789 Katipo Communications Ltd chris(a)katipo.co.nz www.katipo.co.nz

2 1

CVS: koha-html/opac-html/members fines.html,1.1.1.1,NONE
by Chris Cormack 26 Apr '02

26 Apr '02

Update of /cvsroot/koha/koha-html/opac-html/members In directory usw-pr-cvs1:/tmp/cvs-serv17500 Removed Files: fines.html Log Message: Another not used file --- fines.html DELETED ---

1 0

CVS: koha-html/opac-html/members index.html,1.1.1.1,1.2 error.html,1.1.1.1,NONE jo.html,1.1.1.1,NONE test.html,1.1.1.1,NONE
by Chris Cormack 26 Apr '02

26 Apr '02

Update of /cvsroot/koha/koha-html/opac-html/members In directory usw-pr-cvs1:/tmp/cvs-serv16954 Modified Files: index.html Removed Files: error.html jo.html test.html Log Message: Cleaning out cruft Index: index.html =================================================================== RCS file: /cvsroot/koha/koha-html/opac-html/members/index.html,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** index.html 4 Feb 2001 20:52:50 -0000 1.1.1.1 --- index.html 26 Apr 2002 11:52:59 -0000 1.2 *************** *** 1,148 **** ! <!doctype html public "-//w3c//dtd html 4.0 transitional//en"> !  ! ! <script language="javascript" type="text/javascript"> !  ! </script> ! !  ! ! ! <table align=right cellpadding=10 cellspacing=0 border=1 width=200 > ! <tr bgcolor="#fecc99" > ! <td><b>ARE OUR RECORDS CORRECT?</B></td></tr> ! <tr> ! <td><font size=1 face="arial,helvetica"> ! Library Card: #123456. <p> ! Rosalie Jo Leonard (Ms)<br> ! 10 Bath St, Levin <br> ! 06-333 3333 (hm) ! <br> ! 06-444 4444 (wk)<br> ! ! E-mail jo(a)levin.org.nz<p> ! ! You are the guarantor for <b><a href="jo.html">Jo Leonard, Bruce Leonard and Constance Jones</A></b>. ! <P> ! Are any of our records incorrect? Have you moved recently, got a new phone number or e-mail address?<p> ! ! <A HREF="error.html" onclick="update(); return false">Update Details</a> ! ! </td></tr></table> ! ! ! ! <font size=6><em>Hi Rosalie</em></font><p> ! ! ! ! <P>We are still developing these services, but would love to know what you'd like to see here, so feel free to send us your feedback - koha(a)library.org.nz</P> ! ! ! ! <table cellpadding=10 cellspacing=0 border=1 > ! <tr bgcolor="#fecc99" > ! <td><font face="arial,helvetica"><B>You have Outstanding charges and fines of <A HREF="error.html" onclick="fines(); return false">$4.00</B></font><P></td></tr></table> ! ! ! <p> ! ! ! <TABLE CELLPADDING=10 CELLSPACING=0 border=0 > ! ! <TR VALIGN=TOP bgcolor="#99cccc"> ! <TD><B>Summary of Account</B></TD> ! <TD><B>Due</B></TD> ! <TD><B>Charges to date</B></TD> ! <TD><B>Status</B></TD> ! </TR> ! ! ! ! <TR VALIGN=TOP > ! <TD><font color='red'>Christmas made hard</font></TD> ! <TD>1/12/99</TD> ! <TD>$30.00</TD> ! <TD>Overdue -<A HREF="error.html" onclick="messenger(200,250,requested); return false">Requested</a></TR> !  ! <TR VALIGN=TOP bgcolor="fae2c9"> ! <TD><font color='red'>Christmas made easy</font></TD> ! <TD>1/1/99</TD> ! <TD>$3.00</TD> ! <TD>Overdue -<A HREF="error.html" onclick="messenger(200,250,requested); return false">Requested</a></TR> ! ! ! <TR VALIGN=TOP > ! <TD><font color='red'>Christmas made hard</font></TD> ! <TD>1/12/99</TD> ! <TD>2.20</TD> ! <TD>Overdue -<A HREF="error.html" onclick="messenger(200,250,requested); return false">Requested</a></TR> ! ! <TR VALIGN=TOP bgcolor="fae2c9"> ! <TD><font color='red'>Dogs - a drivers manual</font></TD> ! <TD>11/12/99</TD> ! <TD>-</TD> ! <TD>Overdue -<A HREF="error.html" onclick="messenger(200,250, renew_start + 'Dogs- a drivers manual' + renew_end + '<input type=hidden name=renew value=\'Dogs - a drivers manual\'><input type=hidden name=borrower value=user#>','renewal-opac.pl'); return false">Renew</a></TR> !  ! <TR VALIGN=TOP> ! <TD>Christmas made easy</TD> ! <TD>1/4/2000</TD> ! <TD>-</TD> ! <TD>Issued -<A HREF="error.html" onclick="messenger(200,250, renew_start + 'Christmas made Easy' + renew_end + '<input type=hidden name=renew value=\'Christmas made easy\'><input type=hidden name=borrower value=user#>','http://sunflowerimages.co.nz/cgi-bin/search.pl'); return false">Renew</a></TR> ! ! </table> ! !  --- 1,3 ---- ! <html> ! place holder, members section will go here ! </html> --- error.html DELETED --- --- jo.html DELETED --- --- test.html DELETED ---

1 0

CVS: koha/t format.t,NONE,1.1.2.1 koha.t,NONE,1.1.2.1 output.t,NONE,1.1.2.1
by Pat Eyler 25 Apr '02

25 Apr '02

Update of /cvsroot/koha/koha/t In directory usw-pr-cvs1:/tmp/cvs-serv15626/t Added Files: Tag: rel-1-2 format.t koha.t output.t Log Message: restructured tests into a separate directory --- NEW FILE --- BEGIN { $| = 1; print "1..5\n"; } END {print "not ok 1\n" unless $loaded;} use C4::Format; $loaded = 1; print "ok 1\n"; # # ensure &startint returns a reasonable value # # try right formatting if (" foo" eq fmtstr('','foo','R5')) { print "ok 2\n"; } else { print "not ok 2\n"; } # try left formatting if ("foo " eq fmtstr('','foo','L5')) { print "ok 3\n"; } else { print "not ok 3\n"; } # try centering with even spacing if (" foo " eq fmtstr('','foo','C5')) { print "ok 4\n"; } else { print "not ok 4\n"; } # try centering with uneven spacing if ("foo " eq fmtstr('','foo','C4')) { print "ok 5\n"; } else { print "not ok 5\n"; } --- NEW FILE --- BEGIN { $| = 1; print "1..6\n"; } END {print "not ok 1\n" unless $loaded;} use C4::Koha; $loaded = 1; print "ok 1\n"; # # test that &slashifyDate returns correct (non-US) date # $date = "01/01/2002"; $newdate = &slashifyDate("2002-01-01"); if ($date eq $newdate) { print "ok 2\n"; } else { print "not ok 2\n"; } # # Check that &fixEthnicity returns correct values # if ('Maori' eq fixEthnicity('maori')) { print "ok 3\n"; } else { print "not ok 3\n"; } if ('European/Pakeha' eq fixEthnicity('european')) { print "ok 4\n"; } else { print "not ok 4\n"; } if ('Pacific Islander' eq fixEthnicity('pi')) { print "ok 5\n"; } else { print "not ok 5\n"; } if ('Asian' eq fixEthnicity('asian')) { print "ok 6\n"; } else { print "not ok 6\n"; } --- NEW FILE --- BEGIN { $| = 1; print "1..25\n"; } END {print "not ok 1\n" unless $loaded;} use C4::Output; $loaded = 1; print "ok 1\n"; # # ensure &startpage returns correct value # if ("<html>\n" eq startpage()) { print "ok 2\n"; } else { print "not ok 2\n"; } # # Check that &gotopage returns proper value # if ("<META HTTP-EQUIV=Refresh CONTENT=\"0;URL=http:foo\">" eq gotopage('foo')) { print "ok 3\n"; } else { print "not ok 3\n"; } # # skipping &startmenu for now # # # skipping &endmenu for now # # ensure &mktablehdr returns a proper value # if ("<table border=0 cellspacing=0 cellpadding=5>\n" eq mktablehdr()) { print "ok 4\n"; } else { print "not ok 4\n"; } # # ensure &mktablerow returns a proper value # # 1 row, no background image if ("<tr valign=top bgcolor=red><td>text</td></tr>\n" eq mktablerow(1,'red','text')) { print "ok 5\n"; } else { print "not ok 5\n"; } # 1 row, background image if ("<tr valign=top bgcolor=red><td background=\"foo.jpg\">text</td></tr>\n" eq mktablerow(1,'red','text','foo.jpg')) { print "ok 6\n"; } else { print "not ok 6\n"; } #2 rows, no background image if ("<tr valign=top bgcolor=red><td>text</td><td>text</td></tr>\n" eq mktablerow(2,'red','text','text')) { print "ok 7\n"; } else { print "not ok 7\n"; } # 2 rows, background image if ("<tr valign=top bgcolor=red><td background=\"foo.jpg\">text</td><td background=\"foo.jpg\">text</td></tr>\n" eq mktablerow(2,'red','text','text', 'foo.jpg')) { print "ok 8\n"; } else { print "not ok 8\n"; } # # ensure mktableft returns the proper value # if ("</table>\n" eq mktableft()) { print "ok 9\n"; } else { print "not ok 9\n"; } # # skipping mkform for now # # # skipping mkform3 for now # # # skipping mkform2 for now # # # ensure endpage returns the proper value # if ("</body></html>\n" eq endpage()) { print "ok 10\n"; } else { print "not ok 10\n"; } # # ensure mklink returns the right value # if ("<a href=\"foo.html\">foo</a>" eq mklink('foo.html', 'foo')) { print "ok 11\n"; } else { print "not ok 11\n"; } # # ensure mkheadr returns the proper value # if ("<FONT SIZE=6><em>foo</em></FONT><br>" eq mkheadr(1,'foo')) { print "ok 12\n"; } else { print "not ok 12\n"; } if ("<FONT SIZE=6><em>foo</em></FONT>" eq mkheadr(2,'foo')) { print "ok 13\n"; } else { print "not ok 13\n"; } if ("<FONT SIZE=6><em>foo</em></FONT><p>" eq mkheadr(3,'foo')) { print "ok 14\n"; } else { print "not ok 14\n"; } # # test &center and &endcenter # if ("<CENTER>\n" eq center()) { print "ok 15\n"; } else { print "not ok15\n"; } if ("</CENTER>\n" eq endcenter()) { print "ok 16\n"; } else { print "not ok 16\n"; } # # ensure bold returns proper value # if ("<b>foo</b>" eq bold('foo')) { print "ok 17\n"; } else { print "not ok\n"; } # # ensure &mkformnotable returns a valid value # @inputHidden = qw(hidden hiddenname hiddenvalue); @inputRadio = qw(radio radioname radiovalue); @inputText = qw(text textname textvalue); @inputTextarea = qw(textarea textareaname textareavalue); @inputSubmit = qw(submit submitname submitvalue); @inputReset = qw(reset resetname resetvalue); # 1 input; hidden @inputs = (\@inputHidden); $return ="<form action=actionurl method=post>\n"; $return .= "<input type=hidden name=hiddenname value=\"hiddenvalue\">\n"; $return .= "</form>"; if ($return eq mkformnotable('actionurl', @inputs)) { print "ok 18\n"; } else { print "not ok 18\n"; } # 1 input; radio @inputs = (\@inputRadio); $return ="<form action=actionurl method=post>\n"; $return .= "<input type=radio name=radioname value=\"radiovalue\">radiovalue\n"; $return .= "</form>"; if ($return eq mkformnotable('actionurl', @inputs)) { print "ok 19\n"; } else { print "not ok 19\n"; } # 1 input; text @inputs = (\@inputText); $return = "<form action=actionurl method=post>\n"; $return .= "<input type=text name=textname value=\"textvalue\">\n"; $return .= "</form>"; if ($return eq mkformnotable('actionurl', @inputs)) { print "ok 20\n"; } else { print "not ok 20\n"; } # 1 input; textarea @inputs = (\@inputTextarea); $return = "<form action=actionurl method=post>\n"; $return .= "<textarea name=textareaname wrap=physical cols=40 rows=4>textareavalue</textarea>\n"; $return .= "</form>"; if ($return eq mkformnotable('actionurl', @inputs)) { print "ok 21\n"; } else { print "not ok 21\n"; } # 1 input; submit @inputs = (\@inputSubmit); $return = "<form action=actionurl method=post>\n"; $return .= "<input type=submit name=submitname value=\"submitvalue\">\n"; $return .= "</form>"; if ($return eq mkformnotable('actionurl', @inputs)) { print "ok 22\n"; } else { print "not ok 22\n"; } # 1 input; reset @inputs = (\@inputReset); $return = "<form action=actionurl method=post>\n"; $return .= "<input type=reset name=resetname value=\"resetvalue\">\n"; $return .= "</form>"; if ($return eq mkformnotable('actionurl', @inputs)) { print "ok 23\n"; } else { print "not ok 23\n"; } # 2 inputs; hidden and submit @inputs = (\@inputHidden, \@inputSubmit); $return = "<form action=actionurl method=post>\n"; $return .= "<input type=hidden name=hiddenname value=\"hiddenvalue\">\n"; $return .= "<input type=submit name=submitname value=\"submitvalue\">\n"; $return .= "</form>"; if ($return eq mkformnotable('actionurl', @inputs)) { print "ok 24\n"; } else { print "not ok 24\n"; } # 3 inputs; text, submit, and reset @inputs = (\@inputText, \@inputSubmit, \@inputReset); $return = "<form action=actionurl method=post>\n"; $return .= "<input type=text name=textname value=\"textvalue\">\n"; $return .= "<input type=submit name=submitname value=\"submitvalue\">\n"; $return .= "<input type=reset name=resetname value=\"resetvalue\">\n"; $return .= "</form>"; if ($return eq mkformnotable('actionurl', @inputs)) { print "ok 25\n"; } else { print "not ok 25\n"; }

1 0

CVS: koha testKoha.pl,1.1.2.4,1.1.2.5 format.t,1.1.2.1,NONE koha.t,1.1.2.2,NONE output.t,1.1.2.5,NONE
by Pat Eyler 25 Apr '02

25 Apr '02

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv15626 Modified Files: Tag: rel-1-2 testKoha.pl Removed Files: Tag: rel-1-2 format.t koha.t output.t Log Message: restructured tests into a separate directory Index: testKoha.pl =================================================================== RCS file: /cvsroot/koha/koha/testKoha.pl,v retrieving revision 1.1.2.4 retrieving revision 1.1.2.5 diff -C2 -r1.1.2.4 -r1.1.2.5 *** testKoha.pl 25 Apr 2002 21:51:09 -0000 1.1.2.4 --- testKoha.pl 26 Apr 2002 01:29:29 -0000 1.1.2.5 *************** *** 5,8 **** # please add many tests here ! runtests ('koha.t', 'output.t', 'format.t'); --- 5,8 ---- # please add many tests here ! runtests ('t/koha.t', 't/output.t', 't/format.t'); --- format.t DELETED --- --- koha.t DELETED --- --- output.t DELETED ---

1 0

CVS: koha/t - New directory
by Pat Eyler 25 Apr '02

25 Apr '02

Update of /cvsroot/koha/koha/t In directory usw-pr-cvs1:/tmp/cvs-serv15066/t Log Message: Directory /cvsroot/koha/koha/t added to the repository --> Using per-directory sticky tag `rel-1-2'

1 0

CVS: koha/C4 Output.pm,1.6.2.7,1.6.2.8
by Pat Eyler 25 Apr '02

25 Apr '02

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv11205/C4 Modified Files: Tag: rel-1-2 Output.pm Log Message: found a cleaner way to do &mkformnotable, and refactored tests to allow it. Index: Output.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Output.pm,v retrieving revision 1.6.2.7 retrieving revision 1.6.2.8 diff -C2 -r1.6.2.7 -r1.6.2.8 *** Output.pm 25 Apr 2002 20:16:50 -0000 1.6.2.7 --- Output.pm 25 Apr 2002 23:35:17 -0000 1.6.2.8 *************** *** 268,291 **** my $string="<form action=$action method=post>\n"; foreach my $input (@inputs){ ! if ($$input[0] eq 'hidden'){ $string .= ! "<input type=hidden name=$$input[1] value=\"$$input[2]\">\n"; ! } elsif ($$input[0] eq 'radio') { $string .= ! "<input type=radio name=$$input[1] value=$$input[2]>$$input[2]"; ! } elsif ($$input[0] eq 'text') { $string .= "<input type=$$input[0] name=$$input[1] value=\"$$input[2]\">"; ! } elsif ($$input[0] eq 'textarea') { ! $string .= ! "<textarea name=$$input[1] wrap=physical cols=40 rows=4>"; ! $string .= ! "$$input[2]</textarea>"; ! } elsif ($$input[0] eq 'reset'){ ! $string .= ! "<input type=reset name=$$input[1] value=\"$$input[2]\">"; ! } elsif ($$input[0] eq 'submit'){ ! $string.="<input type=submit name=$$input[1] value=\"$$input[2]\">"; ! } } $string=$string."</form>"; --- 268,285 ---- my $string="<form action=$action method=post>\n"; foreach my $input (@inputs){ ! if ($$input[0] eq 'textarea') { $string .= ! "<textarea name=$$input[1] wrap=physical cols=40 rows=4>"; $string .= ! "$$input[2]</textarea>"; ! } else { $string .= "<input type=$$input[0] name=$$input[1] value=\"$$input[2]\">"; ! if ($$input[0] eq 'radio') { ! $string .= ! "$$input[2]"; ! } ! } ! $string .= "\n"; } $string=$string."</form>";

1 0

CVS: koha output.t,1.1.2.4,1.1.2.5
by Pat Eyler 25 Apr '02

25 Apr '02

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv11205 Modified Files: Tag: rel-1-2 output.t Log Message: found a cleaner way to do &mkformnotable, and refactored tests to allow it. Index: output.t =================================================================== RCS file: /cvsroot/koha/koha/Attic/output.t,v retrieving revision 1.1.2.4 retrieving revision 1.1.2.5 diff -C2 -r1.1.2.4 -r1.1.2.5 *** output.t 25 Apr 2002 20:15:32 -0000 1.1.2.4 --- output.t 25 Apr 2002 23:35:17 -0000 1.1.2.5 *************** *** 191,195 **** @inputs = (\@inputRadio); $return ="<form action=actionurl method=post>\n"; ! $return .= "<input type=radio name=radioname value=radiovalue>radiovalue"; $return .= "</form>"; --- 191,195 ---- @inputs = (\@inputRadio); $return ="<form action=actionurl method=post>\n"; ! $return .= "<input type=radio name=radioname value=\"radiovalue\">radiovalue\n"; $return .= "</form>"; *************** *** 203,207 **** @inputs = (\@inputText); $return = "<form action=actionurl method=post>\n"; ! $return .= "<input type=text name=textname value=\"textvalue\">"; $return .= "</form>"; --- 203,207 ---- @inputs = (\@inputText); $return = "<form action=actionurl method=post>\n"; ! $return .= "<input type=text name=textname value=\"textvalue\">\n"; $return .= "</form>"; *************** *** 216,220 **** @inputs = (\@inputTextarea); $return = "<form action=actionurl method=post>\n"; ! $return .= "<textarea name=textareaname wrap=physical cols=40 rows=4>textareavalue</textarea>"; $return .= "</form>"; --- 216,220 ---- @inputs = (\@inputTextarea); $return = "<form action=actionurl method=post>\n"; ! $return .= "<textarea name=textareaname wrap=physical cols=40 rows=4>textareavalue</textarea>\n"; $return .= "</form>"; *************** *** 228,232 **** @inputs = (\@inputSubmit); $return = "<form action=actionurl method=post>\n"; ! $return .= "<input type=submit name=submitname value=\"submitvalue\">"; $return .= "</form>"; --- 228,232 ---- @inputs = (\@inputSubmit); $return = "<form action=actionurl method=post>\n"; ! $return .= "<input type=submit name=submitname value=\"submitvalue\">\n"; $return .= "</form>"; *************** *** 240,244 **** @inputs = (\@inputReset); $return = "<form action=actionurl method=post>\n"; ! $return .= "<input type=reset name=resetname value=\"resetvalue\">"; $return .= "</form>"; --- 240,244 ---- @inputs = (\@inputReset); $return = "<form action=actionurl method=post>\n"; ! $return .= "<input type=reset name=resetname value=\"resetvalue\">\n"; $return .= "</form>"; *************** *** 253,257 **** $return = "<form action=actionurl method=post>\n"; $return .= "<input type=hidden name=hiddenname value=\"hiddenvalue\">\n"; ! $return .= "<input type=submit name=submitname value=\"submitvalue\">"; $return .= "</form>"; --- 253,257 ---- $return = "<form action=actionurl method=post>\n"; $return .= "<input type=hidden name=hiddenname value=\"hiddenvalue\">\n"; ! $return .= "<input type=submit name=submitname value=\"submitvalue\">\n"; $return .= "</form>"; *************** *** 266,272 **** @inputs = (\@inputText, \@inputSubmit, \@inputReset); $return = "<form action=actionurl method=post>\n"; ! $return .= "<input type=text name=textname value=\"textvalue\">"; ! $return .= "<input type=submit name=submitname value=\"submitvalue\">"; ! $return .= "<input type=reset name=resetname value=\"resetvalue\">"; $return .= "</form>"; --- 266,272 ---- @inputs = (\@inputText, \@inputSubmit, \@inputReset); $return = "<form action=actionurl method=post>\n"; ! $return .= "<input type=text name=textname value=\"textvalue\">\n"; ! $return .= "<input type=submit name=submitname value=\"submitvalue\">\n"; ! $return .= "<input type=reset name=resetname value=\"resetvalue\">\n"; $return .= "</form>";

1 0

25 Apr '02

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv3235 Modified Files: Tag: rel-1-2 Accounts.pm Accounts2.pm Acquisitions.pm Catalogue.pm Circmain.pm Circulation.pm Database.pm Format.pm Groups.pm Input.pm InterfaceCDK.pm Maintainance.pm Print.pm Reserves2.pm Scan.pm Search.pm Security.pm Stats.pm Stock.pm Log Message: cleaned out boilerplate and fixed some speeling erorz Index: Accounts.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Accounts.pm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.1.2.1 diff -C2 -r1.1.1.1 -r1.1.1.1.2.1 *** Accounts.pm 19 Dec 2000 23:45:53 -0000 1.1.1.1 --- Accounts.pm 25 Apr 2002 21:59:55 -0000 1.1.1.1.2.1 *************** *** 1,6 **** ! package C4::Accounts; #asummes C4/Accounts ! ! #requires DBI.pm to be installed ! #uses DBD:Pg use strict; --- 1,3 ---- ! package C4::Accounts; #assumes C4/Accounts use strict; *************** *** 13,17 **** use C4::InterfaceCDK; use C4::Interface::AccountsCDK; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 10,14 ---- use C4::InterfaceCDK; use C4::Interface::AccountsCDK; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 20,58 **** @ISA = qw(Exporter); @EXPORT = qw(&checkaccount &reconcileaccount &getnextacctno); - %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], - - # your exported package globals go here, - # as well as any optionally exported functions - - @EXPORT_OK = qw($Var1 %Hashit); - - - # non-exported package globals go here - use vars qw(@more $stuff); - - # initalize package globals, first exported ones - - my $Var1 = ''; - my %Hashit = (); - - # then the others (which are still accessible as $Some::Module::stuff) - my $stuff = ''; - my @more = (); - - # all file-scoped lexicals must be created before - # the functions below that use them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - - # here's a file-private function as a closure, - # callable as &$priv_func; it cannot be prototyped. - my $priv_func = sub { - # stuff goes here. - }; - - # make all your functions, whether exported or not; - sub displayaccounts{ my ($env)=@_; --- 17,20 ---- Index: Accounts2.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Accounts2.pm,v retrieving revision 1.9 retrieving revision 1.9.2.1 diff -C2 -r1.9 -r1.9.2.1 *** Accounts2.pm 11 Mar 2002 03:36:41 -0000 1.9 --- Accounts2.pm 25 Apr 2002 21:59:55 -0000 1.9.2.1 *************** *** 1,6 **** ! package C4::Accounts2; #asummes C4/Accounts2 ! ! #requires DBI.pm to be installed ! #uses DBD:Pg use strict; --- 1,3 ---- ! package C4::Accounts2; #assummes C4/Accounts2 use strict; *************** *** 11,15 **** use C4::Search; use C4::Circulation::Circ2; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 8,12 ---- use C4::Search; use C4::Circulation::Circ2; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 19,56 **** @EXPORT = qw(&recordpayment &fixaccounts &makepayment &manualinvoice &getnextacctno); - %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], - - # your exported package globals go here, - # as well as any optionally exported functions - - @EXPORT_OK = qw($Var1 %Hashit); - - - # non-exported package globals go here - use vars qw(@more $stuff); - - # initalize package globals, first exported ones - - my $Var1 = ''; - my %Hashit = (); - - # then the others (which are still accessible as $Some::Module::stuff) - my $stuff = ''; - my @more = (); - - # all file-scoped lexicals must be created before - # the functions below that use them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - - # here's a file-private function as a closure, - # callable as &$priv_func; it cannot be prototyped. - my $priv_func = sub { - # stuff goes here. - }; - - # make all your functions, whether exported or not; sub displayaccounts{ --- 16,19 ---- Index: Acquisitions.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Acquisitions.pm,v retrieving revision 1.5 retrieving revision 1.5.2.1 diff -C2 -r1.5 -r1.5.2.1 *** Acquisitions.pm 21 Apr 2002 06:33:32 -0000 1.5 --- Acquisitions.pm 25 Apr 2002 21:59:55 -0000 1.5.2.1 *************** *** 1,3 **** ! package C4::Acquisitions; #asummes C4/Acquisitions.pm use strict; --- 1,3 ---- ! package C4::Acquisitions; #assumes C4/Acquisitions.pm use strict; *************** *** 5,9 **** use C4::Database; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 5,9 ---- use C4::Database; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 19,59 **** &getallorders &getrecorders &updatecurrencies &getorder &getcurrency &updaterecorder &updatecost &checkitems &modnote &getitemtypes &getbiblio); - - %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], - - # your exported package globals go here, - # as well as any optionally exported functions - - @EXPORT_OK = qw($Var1 %Hashit); - - - # non-exported package globals go here - use vars qw(@more $stuff); - - # initalize package globals, first exported ones - - my $Var1 = ''; - my %Hashit = (); - - - - # then the others (which are still accessible as $Some::Module::stuff) - my $stuff = ''; - my @more = (); - - # all file-scoped lexicals must be created before - # the functions below that use them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - - # here's a file-private function as a closure, - # callable as &$priv_func; it cannot be prototyped. - my $priv_func = sub { - # stuff goes here. - }; - - # make all your functions, whether exported or not; sub getorders { --- 19,22 ---- Index: Catalogue.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Catalogue.pm,v retrieving revision 1.11 retrieving revision 1.11.2.1 diff -C2 -r1.11 -r1.11.2.1 *** Catalogue.pm 6 Nov 2001 18:15:34 -0000 1.11 --- Catalogue.pm 25 Apr 2002 21:59:55 -0000 1.11.2.1 *************** *** 1,3 **** ! package C4::Catalogue; #asummes C4/Acquisitions.pm # Continue working on updateItem!!!!!! --- 1,3 ---- ! package C4::Catalogue; #assumes C4/Acquisitions.pm # Continue working on updateItem!!!!!! *************** *** 14,18 **** use C4::Database; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 14,18 ---- use C4::Database; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 22,62 **** @EXPORT = qw(&newBiblio &newBiblioItem &newItem &updateBiblio &updateBiblioItem &updateItem &changeSubfield); - %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], - - # your exported package globals go here, - # as well as any optionally exported functions - - @EXPORT_OK = qw($Var1 %Hashit); - - - # non-exported package globals go here - use vars qw(@more $stuff); - - # initalize package globals, first exported ones - - my $Var1 = ''; - my %Hashit = (); - - - # then the others (which are still accessible as $Some::Module::stuff) - my $stuff = ''; - my @more = (); - - # all file-scoped lexicals must be created before - # the functions below that use them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - - # here's a file-private function as a closure, - # callable as &$priv_func; it cannot be prototyped. - my $priv_func = sub { - # stuff goes here. - }; - - # make all your functions, whether exported or not; - - sub newBiblio { --- 22,25 ---- Index: Circmain.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Circmain.pm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.1.2.1 diff -C2 -r1.1.1.1 -r1.1.1.1.2.1 *** Circmain.pm 19 Dec 2000 23:45:54 -0000 1.1.1.1 --- Circmain.pm 25 Apr 2002 21:59:55 -0000 1.1.1.1.2.1 *************** *** 1,3 **** ! package C4::Circmain; #asummes C4/Circulation #package to deal with circulation --- 1,3 ---- ! package C4::Circmain; #assumes C4/Circulation #package to deal with circulation *************** *** 16,20 **** use C4::Security; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 16,20 ---- use C4::Security; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 23,60 **** @ISA = qw(Exporter); @EXPORT = qw(&Start_circ); - %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], - - # your exported package globals go here, - # as well as any optionally exported functions - - @EXPORT_OK = qw($Var1 %Hashit); - - - # non-exported package globals go here - use vars qw(@more $stuff); - - # initalize package globals, first exported ones - - my $Var1 = ''; - my %Hashit = (); - - # then the others (which are still accessible as $Some::Module::stuff) - my $stuff = ''; - my @more = (); - - # all file-scoped lexicals must be created before - # the functions below that use them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - - # here's a file-private function as a closure, - # callable as &$priv_func; it cannot be prototyped. - my $priv_func = sub { - # stuff goes here. - }; - - # make all your functions, whether exported or not; sub Start_circ{ --- 23,26 ---- *************** *** 99,100 **** --- 65,71 ---- END { } # module clean-up code here (global destructor) + + + + + Index: Circulation.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Circulation.pm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.1.2.1 diff -C2 -r1.1.1.1 -r1.1.1.1.2.1 *** Circulation.pm 19 Dec 2000 23:45:54 -0000 1.1.1.1 --- Circulation.pm 25 Apr 2002 21:59:55 -0000 1.1.1.1.2.1 *************** *** 1,3 **** ! package C4::Circulation; #asummes C4/Circulation #package to deal with circulation --- 1,3 ---- ! package C4::Circulation; #assumes C4/Circulation #package to deal with circulation *************** *** 15,19 **** use C4::Security; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 15,19 ---- use C4::Security; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 22,60 **** @ISA = qw(Exporter); @EXPORT = qw(&Start_circ &scanborrower); - #@EXPORT = qw(&Start_circ checkoverdues); - %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], - - # your exported package globals go here, - # as well as any optionally exported functions - - @EXPORT_OK = qw($Var1 %Hashit); - - - # non-exported package globals go here - use vars qw(@more $stuff); - - # initalize package globals, first exported ones - - my $Var1 = ''; - my %Hashit = (); - - # then the others (which are still accessible as $Some::Module::stuff) - my $stuff = ''; - my @more = (); - - # all file-scoped lexicals must be created before - # the functions below that use them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - - # here's a file-private function as a closure, - # callable as &$priv_func; it cannot be prototyped. - my $priv_func = sub { - # stuff goes here. - }; - - # make all your functions, whether exported or not; sub Start_circ{ --- 22,25 ---- Index: Database.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Database.pm,v retrieving revision 1.2 retrieving revision 1.2.2.1 diff -C2 -r1.2 -r1.2.2.1 *** Database.pm 21 Dec 2000 19:56:43 -0000 1.2 --- Database.pm 25 Apr 2002 21:59:55 -0000 1.2.2.1 *************** *** 1,11 **** ! package C4::Database; #asummes C4/Database ! ! #requires DBI.pm to be installed ! #uses DBD:Pg use strict; require Exporter; use DBI; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 1,8 ---- ! package C4::Database; #assumes C4/Database use strict; require Exporter; use DBI; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 15,54 **** @EXPORT = qw(&C4Connect &sqlinsert &sqlupdate &getmax &makelist &OpacConnect); - %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], - - # your exported package globals go here, - # as well as any optionally exported functions - - @EXPORT_OK = qw($Var1 %Hashit); - - - # non-exported package globals go here - use vars qw(@more $stuff); - - # initalize package globals, first exported ones - - my $Var1 = ''; - my %Hashit = (); - - # then the others (which are still accessible as $Some::Module::stuff) - my $stuff = ''; - my @more = (); - - # all file-scoped lexicals must be created before - # the functions below that use them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - - # here's a file-private function as a closure, - # callable as &$priv_func; it cannot be prototyped. - my $priv_func = sub { - # stuff goes here. - }; - - # make all your functions, whether exported or not; - - sub C4Connect { --- 12,15 ---- Index: Format.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Format.pm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.1.2.1 diff -C2 -r1.1.1.1 -r1.1.1.1.2.1 *** Format.pm 19 Dec 2000 23:45:54 -0000 1.1.1.1 --- Format.pm 25 Apr 2002 21:59:55 -0000 1.1.1.1.2.1 *************** *** 1,3 **** ! package C4::Format; #asummes C4/Format use strict; --- 1,3 ---- ! package C4::Format; #assummes C4/Format use strict; *************** *** 5,9 **** ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 5,9 ---- ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 12,49 **** @ISA = qw(Exporter); @EXPORT = qw(&fmtstr &fmtdec); - %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], - - # your exported package globals go here, - # as well as any optionally exported functions - - @EXPORT_OK = qw($Var1 %Hashit); - - - # non-exported package globals go here - use vars qw(@more $stuff); - - # initalize package globals, first exported ones - - my $Var1 = ''; - my %Hashit = (); - - # then the others (which are still accessible as $Some::Module::stuff) - my $stuff = ''; - my @more = (); - - # all file-scoped lexicals must be created before - # the functions below that use them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - - # here's a file-private function as a closure, - # callable as &$priv_func; it cannot be prototyped. - my $priv_func = sub { - # stuff goes here. - }; - - # make all your functions, whether exported or not; sub fmtstr { --- 12,15 ---- Index: Groups.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Groups.pm,v retrieving revision 1.1 retrieving revision 1.1.2.1 diff -C2 -r1.1 -r1.1.2.1 *** Groups.pm 2 May 2001 23:06:44 -0000 1.1 --- Groups.pm 25 Apr 2002 21:59:55 -0000 1.1.2.1 *************** *** 19,23 **** #use C4::Print; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 19,23 ---- #use C4::Print; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 26,64 **** @ISA = qw(Exporter); @EXPORT = qw(&getgroups &groupmembers); - %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], - - # your exported package globals go here, - # as well as any optionally exported functions - - @EXPORT_OK = qw($Var1 %Hashit); - - - # non-exported package globals go here - #use vars qw(@more $stuff); - - # initalize package globals, first exported ones - - my $Var1 = ''; - my %Hashit = (); - - # then the others (which are still accessible as $Some::Module::stuff) - my $stuff = ''; - my @more = (); - - # all file-scoped lexicals must be created before - # the functions below that use them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - - # here's a file-private function as a closure, - # callable as &$priv_func; it cannot be prototyped. - my $priv_func = sub { - # stuff goes here. - }; - - # make all your functions, whether exported or not; - sub getgroups { --- 26,29 ---- Index: Input.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Input.pm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.1.2.1 diff -C2 -r1.1.1.1 -r1.1.1.1.2.1 *** Input.pm 19 Dec 2000 23:45:54 -0000 1.1.1.1 --- Input.pm 25 Apr 2002 21:59:55 -0000 1.1.1.1.2.1 *************** *** 1,10 **** ! package C4::Input; #asummes C4/Input ! ! #package to deal with marking up output use strict; require Exporter; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 1,8 ---- ! package C4::Input; #assumes C4/Input use strict; require Exporter; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 13,51 **** @ISA = qw(Exporter); @EXPORT = qw(&checkflds &checkdigit); - %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], - - # your exported package globals go here, - # as well as any optionally exported functions - - @EXPORT_OK = qw($Var1 %Hashit); - - - # non-exported package globals go here - use vars qw(@more $stuff); - - # initalize package globals, first exported ones - - my $Var1 = ''; - my %Hashit = (); - - - # then the others (which are still accessible as $Some::Module::stuff) - my $stuff = ''; - my @more = (); - - # all file-scoped lexicals must be created before - # the functions below that use them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - - # here's a file-private function as a closure, - # callable as &$priv_func; it cannot be prototyped. - my $priv_func = sub { - # stuff goes here. - }; - - # make all your functions, whether exported or not; sub checkflds { --- 11,14 ---- Index: InterfaceCDK.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/InterfaceCDK.pm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.1.2.1 diff -C2 -r1.1.1.1 -r1.1.1.1.2.1 *** InterfaceCDK.pm 19 Dec 2000 23:45:54 -0000 1.1.1.1 --- InterfaceCDK.pm 25 Apr 2002 21:59:55 -0000 1.1.1.1.2.1 *************** *** 1,9 **** ! ! package C4::InterfaceCDK; #asummes C4/InterfaceCDK #uses Newt use C4::Format; use strict; ! use Cdk; use Date::Manip; use C4::Accounts; --- 1,8 ---- ! package C4::InterfaceCDK; #assumes C4/InterfaceCDK #uses Newt use C4::Format; use strict; ! #use Cdk; use Date::Manip; use C4::Accounts; *************** *** 14,18 **** require Exporter; use DBI; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 13,17 ---- require Exporter; use DBI; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 24,66 **** &info_msg &selborrower &returnwindow &logondialog &borrowerwindow &titlepanel &borrbind &borrfill &preeborr &borrowerbox &brmenu &prmenu); - %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], - - # your exported package globals go here, - # as well as any optionally exported functions - - @EXPORT_OK = qw($Var1 %Hashit); - # non-exported package globals go here - use vars qw(@more $stuff); - - # initalize package globals, first exported ones - - my $Var1 = ''; - my %Hashit = (); - - # then the others (which are still accessible as $Some::Module::stuff) - my $stuff = ''; - my @more = (); - - # all file-scoped lexicals must be created before - # the functions below that se them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - #defining keystrokes used for screens - my $key_tab = chr(9); - my $key_ctlr = chr(18); - my $lastval = $key_ctlr; - - # here's a file-private function as a closure, - # callable as &$priv_func; it cannot be prototyped. - my $priv_func = sub { - # stuff goes here. - }; - - # make all your functions, whether exported or not; sub suspend_cb { ! } --- 23,29 ---- &info_msg &selborrower &returnwindow &logondialog &borrowerwindow &titlepanel &borrbind &borrfill &preeborr &borrowerbox &brmenu &prmenu); sub suspend_cb { ! # is this planned for something? } Index: Maintainance.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Maintainance.pm,v retrieving revision 1.4 retrieving revision 1.4.2.1 diff -C2 -r1.4 -r1.4.2.1 *** Maintainance.pm 26 Feb 2002 09:31:14 -0000 1.4 --- Maintainance.pm 25 Apr 2002 21:59:55 -0000 1.4.2.1 *************** *** 1,3 **** ! package C4::Maintainance; #asummes C4/Maintainance #package to deal with marking up output --- 1,3 ---- ! package C4::Maintainance; #assumes C4/Maintainance #package to deal with marking up output *************** *** 8,12 **** require Exporter; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 8,12 ---- require Exporter; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 16,54 **** @EXPORT = qw(&listsubjects &updatesub &shiftgroup &deletedbib &undeletebib &updatetype); - %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], - - # your exported package globals go here, - # as well as any optionally exported functions - - @EXPORT_OK = qw($Var1 %Hashit); - - - # non-exported package globals go here - use vars qw(@more $stuff); - - # initalize package globals, first exported ones - - my $Var1 = ''; - my %Hashit = (); - - - # then the others (which are still accessible as $Some::Module::stuff) - my $stuff = ''; - my @more = (); - - # all file-scoped lexicals must be created before - # the functions below that use them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - - # here's a file-private function as a closure, - # callable as &$priv_func; it cannot be prototyped. - my $priv_func = sub { - # stuff goes here. - }; - - # make all your functions, whether exported or not; sub listsubjects { --- 16,19 ---- Index: Print.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Print.pm,v retrieving revision 1.3 retrieving revision 1.3.2.1 diff -C2 -r1.3 -r1.3.2.1 *** Print.pm 4 Feb 2001 22:25:42 -0000 1.3 --- Print.pm 25 Apr 2002 21:59:55 -0000 1.3.2.1 *************** *** 1,3 **** ! package C4::Print; #asummes C4/Print.pm use strict; --- 1,3 ---- ! package C4::Print; #assumes C4/Print.pm use strict; *************** *** 5,9 **** #use C4::InterfaceCDK; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 5,9 ---- #use C4::InterfaceCDK; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 12,50 **** @ISA = qw(Exporter); @EXPORT = qw(&remoteprint &printreserve); - %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], - - # your exported package globals go here, - # as well as any optionally exported functions - - @EXPORT_OK = qw($Var1 %Hashit); - - - # non-exported package globals go here - use vars qw(@more $stuff); - - # initalize package globals, first exported ones - - my $Var1 = ''; - my %Hashit = (); - - - # then the others (which are still accessible as $Some::Module::stuff) - my $stuff = ''; - my @more = (); - - # all file-scoped lexicals must be created before - # the functions below that use them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - - # here's a file-private function as a closure, - # callable as &$priv_func; it cannot be prototyped. - my $priv_func = sub { - # stuff goes here. - }; - - # make all your functions, whether exported or not; sub remoteprint { --- 12,15 ---- Index: Reserves2.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v retrieving revision 1.5 retrieving revision 1.5.2.1 diff -C2 -r1.5 -r1.5.2.1 *** Reserves2.pm 23 Apr 2002 00:34:16 -0000 1.5 --- Reserves2.pm 25 Apr 2002 21:59:55 -0000 1.5.2.1 *************** *** 1,6 **** ! package C4::Reserves2; #asummes C4/Reserves2 ! ! #requires DBI.pm to be installed ! #uses DBD:Pg use strict; --- 1,3 ---- ! package C4::Reserves2; #assumes C4/Reserves2 use strict; *************** *** 17,53 **** @ISA = qw(Exporter); @EXPORT = qw(&FindReserves &CreateReserve &updatereserves &getreservetitle &Findgroupreserve); - %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], - - # your exported package globals go here, - # as well as any optionally exported functions - - @EXPORT_OK = qw($Var1 %Hashit); - - - # non-exported package globals go here - use vars qw(@more $stuff); - - # initalize package globals, first exported ones - my $Var1 = ''; - my %Hashit = (); - - # then the others (which are still accessible as $Some::Module::stuff) - my $stuff = ''; - my @more = (); - - # all file-scoped lexicals must be created before - # the functions below that use them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - - # here's a file-private function as a closure, - # callable as &$priv_func; it cannot be prototyped. - my $priv_func = sub { - # stuff goes here. - }; - # make all your functions, whether exported or not; --- 14,18 ---- Index: Scan.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Scan.pm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.1.2.1 diff -C2 -r1.1.1.1 -r1.1.1.1.2.1 *** Scan.pm 19 Dec 2000 23:45:55 -0000 1.1.1.1 --- Scan.pm 25 Apr 2002 21:59:55 -0000 1.1.1.1.2.1 *************** *** 1,3 **** ! package C4::Scan; #asummes C4/Scan.pm use strict; --- 1,3 ---- ! package C4::Scan; #assumes C4/Scan.pm use strict; *************** *** 11,49 **** @ISA = qw(Exporter); @EXPORT = qw(&getbarcode); - %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], - - # your exported package globals go here, - # as well as any optionally exported functions - - @EXPORT_OK = qw($Var1 %Hashit); - - - # non-exported package globals go here - use vars qw(@more $stuff); - - # initalize package globals, first exported ones - - my $Var1 = ''; - my %Hashit = (); - - - # then the others (which are still accessible as $Some::Module::stuff) - my $stuff = ''; - my @more = (); - - # all file-scoped lexicals must be created before - # the functions below that use them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - - # here's a file-private function as a closure, - # callable as &$priv_func; it cannot be prototyped. - my $priv_func = sub { - # stuff goes here. - }; - - # make all your functions, whether exported or not; sub Getbarcode { --- 11,14 ---- Index: Search.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Search.pm,v retrieving revision 1.18 retrieving revision 1.18.2.1 diff -C2 -r1.18 -r1.18.2.1 *** Search.pm 10 Apr 2002 09:55:17 -0000 1.18 --- Search.pm 25 Apr 2002 21:59:55 -0000 1.18.2.1 *************** *** 1,6 **** ! package C4::Search; #asummes C4/Search ! ! #requires DBI.pm to be installed ! #uses DBD:Pg use strict; --- 1,3 ---- ! package C4::Search; #assumes C4/Search use strict; *************** *** 23,60 **** &addauthor &bibitems &barcodes &findguarantees &allissues &systemprefs &findguarantor); - %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], - - # your exported package globals go here, - # as well as any optionally exported functions - - @EXPORT_OK = qw($Var1 %Hashit); - - - # non-exported package globals go here - use vars qw(@more $stuff); - - # initalize package globals, first exported ones - my $Var1 = ''; - my %Hashit = (); - - # then the others (which are still accessible as $Some::Module::stuff) - my $stuff = ''; - my @more = (); - - # all file-scoped lexicals must be created before - # the functions below that use them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - - # here's a file-private function as a closure, - # callable as &$priv_func; it cannot be prototyped. - my $priv_func = sub { - # stuff goes here. - }; - - # make all your functions, whether exported or not; sub findguarantees{ my ($bornum)=@_; --- 20,24 ---- Index: Security.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Security.pm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.1.2.1 diff -C2 -r1.1.1.1 -r1.1.1.1.2.1 *** Security.pm 19 Dec 2000 23:45:55 -0000 1.1.1.1 --- Security.pm 25 Apr 2002 21:59:55 -0000 1.1.1.1.2.1 *************** *** 1,6 **** ! package C4::Security; #asummes C4/Security ! ! #requires DBI.pm to be installed ! #uses DBD:Pg use strict; --- 1,3 ---- ! package C4::Security; #assumes C4/Security use strict; *************** *** 16,55 **** @ISA = qw(Exporter); @EXPORT = qw(&Login &CheckAccess); - %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], - - # your exported package globals go here, - # as well as any optionally exported functions - - @EXPORT_OK = qw($Var1 %Hashit); - - - # non-exported package globals go here - use vars qw(@more $stuff); - - # initalize package globals, first exported ones - - my $Var1 = ''; - my %Hashit = (); - - - # then the others (which are still accessible as $Some::Module::stuff) - my $stuff = ''; - my @more = (); - - # all file-scoped lexicals must be created before - # the functions below that use them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - # here's a file-private function as a closure, - # callable as &$priv_func; it cannot be prototyped. - my $priv_func = sub { - # stuff goes here. - }; - - # make all your functions, whether exported or not; - sub Login { my ($env)=@_; --- 13,17 ---- Index: Stats.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Stats.pm,v retrieving revision 1.3 retrieving revision 1.3.2.1 diff -C2 -r1.3 -r1.3.2.1 *** Stats.pm 2 Apr 2001 22:51:26 -0000 1.3 --- Stats.pm 25 Apr 2002 21:59:55 -0000 1.3.2.1 *************** *** 1,6 **** ! package C4::Stats; #asummes C4/Stats ! ! #requires DBI.pm to be installed ! #uses DBD:Pg use strict; --- 1,3 ---- ! package C4::Stats; #assumes C4/Stats use strict; *************** *** 16,54 **** @EXPORT = qw(&UpdateStats &statsreport &Count &Overdues &TotalOwing &TotalPaid &getcharges &Getpaidbranch &unfilledreserves); - %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], - - # your exported package globals go here, - # as well as any optionally exported functions - - @EXPORT_OK = qw($Var1 %Hashit); - - - # non-exported package globals go here - use vars qw(@more $stuff); - - # initalize package globals, first exported ones - - my $Var1 = ''; - my %Hashit = (); - - - # then the others (which are still accessible as $Some::Module::stuff) - my $stuff = ''; - my @more = (); - - # all file-scoped lexicals must be created before - # the functions below that use them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - # here's a file-private function as a closure, - # callable as &$priv_func; it cannot be prototyped. - my $priv_func = sub { - # stuff goes here. - }; - - # make all your functions, whether exported or not; sub UpdateStats { --- 13,17 ---- Index: Stock.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Stock.pm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.1.2.1 diff -C2 -r1.1.1.1 -r1.1.1.1.2.1 *** Stock.pm 19 Dec 2000 23:45:55 -0000 1.1.1.1 --- Stock.pm 25 Apr 2002 21:59:55 -0000 1.1.1.1.2.1 *************** *** 1,3 **** ! package C4::Stock; #asummes C4/Stock.pm use strict; --- 1,3 ---- ! package C4::Stock; #assumes C4/Stock.pm use strict; *************** *** 12,50 **** @ISA = qw(Exporter); @EXPORT = qw(&stockreport); - %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], - - # your exported package globals go here, - # as well as any optionally exported functions - - @EXPORT_OK = qw($Var1 %Hashit); - - - # non-exported package globals go here - use vars qw(@more $stuff); - - # initalize package globals, first exported ones - - my $Var1 = ''; - my %Hashit = (); - - - # then the others (which are still accessible as $Some::Module::stuff) - my $stuff = ''; - my @more = (); - - # all file-scoped lexicals must be created before - # the functions below that use them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - - # here's a file-private function as a closure, - # callable as &$priv_func; it cannot be prototyped. - my $priv_func = sub { - # stuff goes here. - }; - - # make all your functions, whether exported or not; sub stockreport { --- 12,15 ---- *************** *** 70,71 **** --- 35,37 ---- +

1 0

CVS: koha format.t,NONE,1.1.2.1 testKoha.pl,1.1.2.3,1.1.2.4
by Pat Eyler 25 Apr '02

25 Apr '02

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv31657 Modified Files: Tag: rel-1-2 testKoha.pl Added Files: Tag: rel-1-2 format.t Log Message: started adding tests for C4::Format --- NEW FILE --- BEGIN { $| = 1; print "1..5\n"; } END {print "not ok 1\n" unless $loaded;} use C4::Format; $loaded = 1; print "ok 1\n"; # # ensure &startint returns a reasonable value # # try right formatting if (" foo" eq fmtstr('','foo','R5')) { print "ok 2\n"; } else { print "not ok 2\n"; } # try left formatting if ("foo " eq fmtstr('','foo','L5')) { print "ok 3\n"; } else { print "not ok 3\n"; } # try centering with even spacing if (" foo " eq fmtstr('','foo','C5')) { print "ok 4\n"; } else { print "not ok 4\n"; } # try centering with uneven spacing if ("foo " eq fmtstr('','foo','C4')) { print "ok 5\n"; } else { print "not ok 5\n"; } Index: testKoha.pl =================================================================== RCS file: /cvsroot/koha/koha/testKoha.pl,v retrieving revision 1.1.2.3 retrieving revision 1.1.2.4 diff -C2 -r1.1.2.3 -r1.1.2.4 *** testKoha.pl 25 Apr 2002 16:11:50 -0000 1.1.2.3 --- testKoha.pl 25 Apr 2002 21:51:09 -0000 1.1.2.4 *************** *** 5,8 **** # please add many tests here ! runtests ('koha.t', 'output.t'); --- 5,8 ---- # please add many tests here ! runtests ('koha.t', 'output.t', 'format.t');

1 0