[BACK]Return to domainprefs.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/domainprefs.pm between versions 1.39 and 1.40

version 1.39, 2008/01/04 10:17:13 version 1.40, 2008/01/04 17:47:51
Line 836  sub display_color_options { Line 836  sub display_color_options {
                 }                  }
             }              }
             if ($showfile) {              if ($showfile) {
                 $showfile = &Apache::loncommon::lonhttpdurl($showfile);                  if ($showfile =~ m{^/(adm|res)/}) {
                 $fullsize =  &Apache::loncommon::lonhttpdurl($imgfile);                      if ($showfile =~ m{^/res/}) {
                           my $local_showfile =
                               &Apache::lonnet::filelocation('',$showfile);
                           &Apache::lonnet::repcopy($local_showfile);
                       }
                       $showfile = &Apache::loncommon::lonhttpdurl($showfile);
                   }
                   if ($imgfile) {
                       if ($imgfile  =~ m{^/(adm|res)/}) {
                           if ($imgfile =~ m{^/res/}) {
                               my $local_imgfile =
                                   &Apache::lonnet::filelocation('',$imgfile);
                               &Apache::lonnet::repcopy($local_imgfile);
                           }
                           $fullsize = &Apache::loncommon::lonhttpdurl($imgfile);
                       } else {
                           $fullsize = $imgfile;
                       }
                   }
                 $datatable.= '<td>';                  $datatable.= '<td>';
                 if (!$is_custom->{$img}) {                  if (!$is_custom->{$img}) {
                     $datatable .= &mt('Default in use:').'<br />';                      $datatable .= &mt('Default in use:').'<br />';
Line 1904  sub modify_colors { Line 1922  sub modify_colors {
             }              }
         }          }
         my ($width,$height) = &thumb_dimensions();          my ($width,$height) = &thumb_dimensions();
           if (ref($domconfig->{$role}) ne 'HASH') {
               $domconfig->{$role} = {};
           }
         foreach my $img (@images) {          foreach my $img (@images) {
     if ( ! $env{'form.'.$role.'_'.$img.'.filename'}       if ( ! $env{'form.'.$role.'_'.$img.'.filename'} 
  && !defined($domconfig->{$role}{$img})   && !defined($domconfig->{$role}{$img})
Line 2145  sub check_configuser { Line 2166  sub check_configuser {
 sub check_authorstatus {  sub check_authorstatus {
     my ($dom,$confname,%currroles) = @_;      my ($dom,$confname,%currroles) = @_;
     my $author_ok;      my $author_ok;
     if (!$currroles{$confname.':'.$dom.':au'}) {      if (!$currroles{':'.$dom.':au'}) {
         my $start = time;          my $start = time;
         my $end = 0;          my $end = 0;
         $author_ok =           $author_ok = 
Removed from v.1.39  
changed lines
  Added in v.1.40

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