View | Details | Raw Unified | Return to bug 7157
Collapse All | Expand All

(-)a/misc/cronjobs/j2a.pl (-7 / +9 lines)
Lines 43-50 juv2adult.pl - convert juvenile/child patrons from juvenile patron category and Link Here
43
juv2adult.pl [ -branch=<branchcode> -fromcat=<categorycode> -tocat=<categorycode> ]
43
juv2adult.pl [ -branch=<branchcode> -fromcat=<categorycode> -tocat=<categorycode> ]
44
44
45
 Options:
45
 Options:
46
   -help					brief help message
46
   --help					brief help message
47
   -man						full documentation
47
   --man					full documentation
48
   -v						verbose mode
48
   -v						verbose mode
49
   -n						take no action, display only
49
   -n						take no action, display only
50
   -branch	<branchname>	only deal with patrons from this library/branch
50
   -branch	<branchname>	only deal with patrons from this library/branch
Lines 54-64 juv2adult.pl [ -branch=<branchcode> -fromcat=<categorycode> -tocat=<categorycode Link Here
54
54
55
=over 8
55
=over 8
56
56
57
=item B<-help>
57
=item B<--help>
58
58
59
Print a brief help message and exits.
59
Print a brief help message and exits.
60
60
61
=item B<-man>
61
=item B<--man>
62
62
63
Prints the manual page and exits.
63
Prints the manual page and exits.
64
64
Lines 140-145 my $sth=$dbh->prepare( $query ); Link Here
140
$sth->execute( $fromcat ) 
140
$sth->execute( $fromcat ) 
141
   or die "Couldn't execute statement: " . $sth->errstr;
141
   or die "Couldn't execute statement: " . $sth->errstr;
142
my $agelimit = $sth->fetchrow_array();
142
my $agelimit = $sth->fetchrow_array();
143
if ( not $agelimit ) {
144
145
	die "No patron category with that category code. Please try again. \n";
146
}
143
$sth->finish(  );
147
$sth->finish(  );
144
$year -=$agelimit;
148
$year -=$agelimit;
145
149
Lines 222-229 if ( not $noaction) { Link Here
222
	            $birthday = $res[3];
226
	            $birthday = $res[3];
223
	            print "$firstname $surname $barcode $birthday\n";
227
	            print "$firstname $surname $barcode $birthday\n";
224
	          }
228
	          }
225
	}  
229
	}
226
	$sth->finish(  );
230
	$sth->finish(  );
227
}
231
}
228
	
229
$dbh->disconnect();
232
$dbh->disconnect();
230
- 

Return to bug 7157