Permalink
Browse files

Added magic RCS comment.

Removed trailing whitespace.
  • Loading branch information...
1 parent d5c8d40 commit 7197a3735b36b22261776f93f3aa2407dcf55ba6 arensb committed Oct 13, 2002
View
@@ -1,6 +1,8 @@
-package C4::Circmain; #assumes C4/Circulation
+package C4::Circmain;
-#package to deal with circulation
+# $Id$
+
+#package to deal with circulation
# Copyright 2000-2002 Katipo Communications
@@ -36,10 +38,10 @@ use C4::InterfaceCDK;
use C4::Security;
use vars qw($VERSION @ISA @EXPORT);
-
+
# set the version for version checking
$VERSION = 0.01;
-
+
@ISA = qw(Exporter);
@EXPORT = qw(&Start_circ);
@@ -55,32 +57,29 @@ sub Start_circ{
my $data;
while ($donext ne 'Quit') {
if ($donext eq "Circ") {
- #($reason,$data) = menu($env,'console','Circulation',
+ #($reason,$data) = menu($env,'console','Circulation',
# ('Issues','Returns','Borrower Enquiries','Reserves','Log In'));
#&startint($env,"Menu");
($reason,$data) = menu($env,'console','Circulation',
- ('Issues','Returns','Select Branch','Select Printer'));
+ ('Issues','Returns','Select Branch','Select Printer'));
} else {
$data = $donext;
}
- if ($data eq 'Issues') {
- $donext=Issue($env); #C4::Circulation::Issues
+ if ($data eq 'Issues') {
+ $donext=Issue($env); #C4::Circulation::Issues
} elsif ($data eq 'Returns') {
- $donext=Returns($env); #C4::Circulation::Returns
+ $donext=Returns($env); #C4::Circulation::Returns
} elsif ($data eq 'Select Branch') {
getbranch($env);
} elsif ($data eq 'Select Printer') {
- getprinter($env);
+ getprinter($env);
} elsif ($data eq 'Borrower Enquiries') {
# $donext=Borenq($env); #C4::Circulation::Borrower - conversion
} elsif ($data eq 'Reserves'){
- $donext=EnterReserves($env); #C4::Reserves
- } elsif ($data eq 'Quit') {
+ $donext=EnterReserves($env); #C4::Reserves
+ } elsif ($data eq 'Quit') {
$donext = $data;
}
}
- &endint($env)
+ &endint($env)
}
-
-
-END { } # module clean-up code here (global destructor)
View
@@ -1,5 +1,7 @@
package C4::Database;
+# $Id$
+
# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.
@@ -21,9 +23,9 @@ use strict;
require Exporter;
use DBI;
use vars qw($VERSION @ISA @EXPORT);
-
+
$VERSION = 0.01;
-
+
@ISA = qw(Exporter);
@EXPORT = qw( );
View
@@ -1,5 +1,7 @@
package C4::Groups;
+# $Id$
+
#package to deal with Returns
#written 3/11/99 by olwen@katipo.co.nz
@@ -39,10 +41,10 @@ use C4::Stats;
#use C4::Print;
use vars qw($VERSION @ISA @EXPORT);
-
+
# set the version for version checking
$VERSION = 0.01;
-
+
@ISA = qw(Exporter);
@EXPORT = qw(&getgroups &groupmembers);
View
@@ -1,5 +1,6 @@
-package C4::Security; #assumes C4/Security
+package C4::Security;
+# $Id$
# Copyright 2000-2002 Katipo Communications
#
@@ -43,7 +44,7 @@ sub Login {
my $sth=$dbh->prepare($query);
$sth->execute;
while (my $branchrec=$sth->fetchrow_hashref) {
- my $branchdet =
+ my $branchdet =
fmtstr($env,$branchrec->{'branchcode'},"L2")." ".$branchrec->{'branchname'};
push @branches,$branchdet;
}
@@ -67,7 +68,7 @@ sub Login {
$env->{'usercode'} = $username;
$env->{'branchcode'} = $branch;
}
-
+
} else {
debug_msg("","not found");
}
@@ -76,10 +77,7 @@ sub Login {
}
&endint();
}
-
+
sub CheckAccess {
my ($env)=@_;
}
-
-END { } # module clean-up code here (global destructor)
-
@@ -1,5 +1,7 @@
#!/usr/bin/perl
+# $Id$
+
#
# TODO
#
@@ -38,7 +40,7 @@
print << "EOF";
<FONT SIZE=6><em>Adding a new Biblio</em></FONT><br>
-
+
<table bgcolor="#ffcc00" width="80%" cellpadding="5">
<tr>
<td><FONT SIZE=5>Section One: Copyright Information </font></td>
@@ -1,10 +1,12 @@
#!/usr/bin/perl
+# $Id$
+
#
# Modified saas@users.sf.net 12:00 01 April 2001
# The biblioitemnumber was not correctly initialised
# The max(barcode) value was broken - koha 'barcode' is a string value!
-# - If left blank, barcode value now defaults to max(biblionumber)
+# - If left blank, barcode value now defaults to max(biblionumber)
#
# TODO
@@ -126,14 +128,14 @@ sub searchscreen {
<tr valign="center">
<td><FONT SIZE=5>Help</font></td>
</tr>
-</table>
+</table>
<FONT SIZE=5>Koha stores data in three sections</font>
<p />
<h2>Biblio</h2>
The first section records bibliographic data such as title, author and copyright for a particular work.
<p />
-<h2>Group</h2>
-The second records bibliographic data for a particular publication of that work, such as ISBN number, physical description, publisher information, etc
+<h2>Group</h2>
+The second records bibliographic data for a particular publication of that work, such as ISBN number, physical description, publisher information, etc
<p />
<h2>Item</h2>
The third section holds specific item information, such as the bar code number
@@ -1,10 +1,12 @@
#!/usr/bin/perl
+# $Id$
+
#
# Modified saas@users.sf.net 12:00 01 April 2001
# The biblioitemnumber was not correctly initialised
# The max(barcode) value was broken - koha 'barcode' is a string value!
-# - If left blank, barcode value now defaults to max(biblionumber)
+# - If left blank, barcode value now defaults to max(biblionumber)
#
# TODO
@@ -345,13 +347,13 @@ sub newitem {
<input type=hidden name=biblionumber value=$biblionumber>
<input type=hidden name=biblioitemnumber value=$biblioitemnumber>
<table>
-<!-- tr><td>BARCODE</td><td><input name=barcode size=10 value=\$maxbarcode -->
-<tr><td>BARCODE</td><td><input name=barcode size=10 value=$biblionumber>
+<!-- tr><td>BARCODE</td><td><input name=barcode size=10 value=\$maxbarcode -->
+<tr><td>BARCODE</td><td><input name=barcode size=10 value=$biblionumber>
Home Branch: <select name=homebranch>
EOF
-my $branches=getbranches();
- foreach my $key (sort(keys %$branches)) {
- print "<option value=\"$key\">$branches->{$key}->{'branchname'}</option>";
+my $branches=getbranches();
+ foreach my $key (sort(keys %$branches)) {
+ print "<option value=\"$key\">$branches->{$key}->{'branchname'}</option>";
}
print << "EOF";
</select></td></tr>
@@ -1,5 +1,6 @@
#!/usr/bin/perl
+# $Id$
# Copyright 2000-2002 Katipo Communications
#
@@ -55,11 +56,11 @@
($biblioitemcount, @biblioitems) = &getbiblioitembybiblionumber($biblionumber);
($branchcount, @branches) = &branches;
($itemtypecount, @itemtypes) = &getitemtypes;
-
+
for (my $i = 0; $i < $itemtypecount; $i++) {
$itemtypedescriptions{$itemtypes[$i]->{'itemtype'}} = $itemtypes[$i]->{'description'};
} # for
-
+
for (my $i = 0; $i < $branchcount; $i++) {
$branchnames{$branches[$i]->{'branchcode'}} = $branches[$i]->{'branchname'};
} # for
@@ -104,7 +105,7 @@
for (my $i = 0; $i < $biblioitemcount; $i++) {
if ($biblioitems[$i]->{'itemtype'} eq "WEB") {
-
+
print << "EOF";
<tr valign="top" bgcolor="#CCCC99">
<td background="/images/background-mem.gif"><b>$biblioitems[$i]->{'biblioitemnumber'} GROUP - $itemtypedescriptions{$biblioitems[$i]->{'itemtype'}}</b></td>
Oops, something went wrong.

0 comments on commit 7197a37

Please sign in to comment.