version 1.4, 2006/02/10 02:38:59
|
version 1.5, 2008/11/10 13:20:24
|
Line 27
|
Line 27
|
# 8/24 Guy Albertelli |
# 8/24 Guy Albertelli |
|
|
|
|
|
|
|
|
package localstudentphoto; |
package localstudentphoto; |
use lib '/home/httpd/lib/perl/'; |
use lib '/home/httpd/lib/perl/'; |
use LONCAPA::Configuration; |
use LONCAPA::Configuration; |
Line 80 sub thumbsettings {
|
Line 82 sub thumbsettings {
|
my $thumbsize = '40x40'; |
my $thumbsize = '40x40'; |
return ($fullsize,$thumbsize); |
return ($fullsize,$thumbsize); |
} |
} |
|
|
############################### |
|
# sub AUTOLOAD |
|
# |
|
# Incoming data: none |
|
# Returns '' |
|
# |
|
# Prevents errors when undefined subroutines are called in this package |
|
# Will allow new routines added in the future to be called from lond etc. |
|
# without the need for customized versions of local*.pm packages to be |
|
# modified to include the new subroutines immediately. |
|
# |
|
# See "Programming Perl" 3rd ed. pp 296-298. |
|
############################### |
|
|
|
sub AUTOLOAD { |
sub AUTOLOAD { |
our $AUTOLOAD; |
our $AUTOLOAD; |
Line 102 sub AUTOLOAD {
|
Line 90 sub AUTOLOAD {
|
|
|
1; |
1; |
__END__ |
__END__ |
|
|
|
=pod |
|
|
|
=head1 NAME |
|
|
|
AUTOLOAD |
|
|
|
=head1 SYNOPSIS |
|
|
|
Incoming data: none |
|
Returns '' |
|
|
|
=head1 OVERVIEW |
|
|
|
Prevents errors when undefined subroutines are called in this package. |
|
Will allow new routines added in the future to be called from lond etc. |
|
without the need for customized versions of local*.pm packages to be |
|
modified to include the new subroutines immediately. |
|
|
|
See I<"Programming Perl"> 3rd ed. pp 296-298. |
|
|
|
=cut |
|
|