[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4/Interface FlagsCDK.pm,1.3,1.4
From: |
Andrew Arensburger |
Subject: |
[Koha-cvs] CVS: koha/C4/Interface FlagsCDK.pm,1.3,1.4 |
Date: |
Sun, 13 Oct 2002 01:32:18 -0700 |
Update of /cvsroot/koha/koha/C4/Interface
In directory usw-pr-cvs1:/tmp/cvs-serv15393
Modified Files:
FlagsCDK.pm
Log Message:
Deleted unused variables.
Removed trailing whitespace.
Index: FlagsCDK.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Interface/FlagsCDK.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** FlagsCDK.pm 11 Oct 2002 12:38:25 -0000 1.3
--- FlagsCDK.pm 13 Oct 2002 08:32:16 -0000 1.4
***************
*** 28,73 ****
require Exporter;
use DBI;
! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
!
# set the version for version checking
$VERSION = 0.01;
!
@ISA = qw(Exporter);
@EXPORT = qw(&trapscreen &trapsnotes &reservesdisplay);
- %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 trapscreen {
my ($env,$bornum,$borrower,$amount,$traps_set)address@hidden;
--- 28,39 ----
require Exporter;
use DBI;
! use vars qw($VERSION @ISA @EXPORT);
!
# set the version for version checking
$VERSION = 0.01;
!
@ISA = qw(Exporter);
@EXPORT = qw(&trapscreen &trapsnotes &reservesdisplay);
sub trapscreen {
my ($env,$bornum,$borrower,$amount,$traps_set)address@hidden;
***************
*** 81,85 ****
'List'=>address@hidden,'Height'=>$hght,'Width'=>15,
'Xpos'=>4,'Ypos'=>3);
! my $act =$flagsset->activate();
my $action;
if (!defined $act) {
--- 47,51 ----
'List'=>address@hidden,'Height'=>$hght,'Width'=>15,
'Xpos'=>4,'Ypos'=>3);
! my $act =$flagsset->activate();
my $action;
if (!defined $act) {
***************
*** 87,91 ****
} else {
$action = @$traps_set[$act];
! }
undef $titlepanel;
undef $flagsset;
--- 53,57 ----
} else {
$action = @$traps_set[$act];
! }
undef $titlepanel;
undef $flagsset;
***************
*** 110,115 ****
}
my $notes = $notesbox->activate();
! if (!defined $notes) {
! $notes = $borrower->{'borrowernotes'};
} else {
while (substr($notes,0,1) eq " ") {
--- 76,81 ----
}
my $notes = $notesbox->activate();
! if (!defined $notes) {
! $notes = $borrower->{'borrowernotes'};
} else {
while (substr($notes,0,1) eq " ") {
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4/Interface FlagsCDK.pm,1.3,1.4,
Andrew Arensburger <=