loncom/auth/localstudentphoto.pm - diff

Return to localstudentphoto.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/localstudentphoto.pm between versions 1.2 and 1.3

-version 1.2, 2004/11/02 23:11:56
+version 1.3, 2006/02/07 05:08:24
  Line 32  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);
+ }
 ;
  __END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.2
changed lines
	Added in v.1.3