--- loncom/auth/localstudentphoto.pm	2004/11/02 23:11:56	1.2
+++ loncom/auth/localstudentphoto.pm	2008/11/20 14:37:52	1.7
@@ -1,6 +1,6 @@
 # The LON-CAPA dummy student photo fetch mechnism
 #
-# $Id: localstudentphoto.pm,v 1.2 2004/11/02 23:11:56 albertel Exp $
+# $Id: localstudentphoto.pm,v 1.7 2008/11/20 14:37:52 jms Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -32,10 +32,85 @@ use lib '/home/httpd/lib/perl/';
 use LONCAPA::Configuration;
 
 sub fetch {
-    my ($domain,$user)=@_;
+    my ($domain,$user,$pid,$response)=@_;
+    my $temptxt = '';
+    unless (ref($response)) {
+        $response = \$temptxt;
+    }
+    if ($udom eq '' || $uname eq '') {
+        $$response = 'nouser';
+        return '';
+    }
     return &main::propath($domain,$user).
 	'/userfiles/internal/studentphoto.jpg';
 }
 
+sub fetch_thumbnail {
+    my ($udom,$uname) = @_;
+    if ($udom eq '' || $uname eq '') {
+        return '';
+    }
+    my $userdir=&main::propath($udom,$uname);
+    my $filepath = '/userfiles/internal/studentphoto.jpg';
+    my $thumbnail = '/userfiles/internal/studentphoto_tn.gif';
+    my $source =  "$userdir/$filepath";
+    my $dest = "$userdir/$thumbnail";
+    if (-e $dest) {
+        return $dest;
+    } else {
+        if (!-e $source) {
+            my $file = &fetch($udom,$uname);
+        }
+        if (-e $source) {
+            my ($fullsize,$thumbsize)=&localstudentphoto::thumbsettings($udom);
+            if ($fullsize && $thumbsize) {
+                system("convert -size $fullsize $source -thumbnail $thumbsize $dest");
+            }
+            if (-e $dest) {
+                return $dest;
+            }
+        }
+    }
+    return '';
+}   
+
+sub thumbsettings {
+    my ($dom) = @_;
+    my $fullsize = '240x240';
+    my $thumbsize = '40x40';
+    return ($fullsize,$thumbsize);
+}
+                                                                                
+sub AUTOLOAD {
+    our $AUTOLOAD;
+    return '';
+}
+
 1;
 __END__
+
+=pod
+
+=head1 NAME
+
+Apache::localstudentphoto
+
+=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.
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
+
+=cut
+