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

Diff for /loncom/interface/lonparmset.pm between versions 1.365 and 1.366.2.1

version 1.365, 2007/05/02 01:33:49 version 1.366.2.1, 2007/06/20 21:08:15
Line 2047  sub crsenv { Line 2047  sub crsenv {
  #   #
         # Deal with the emails          # Deal with the emails
         if ($name =~ /\.email$/) {          if ($name =~ /\.email$/) {
     my ($user,$domain) = split(/:/,$value);      foreach my $specifier (split(',',$value)) {
     if (!defined($user) || !defined($domain)) {   my ($user,$sections_or_groups)=
  $setoutput.= '<br /> <span class="LC_error">'.      ($specifier=~/^([^\(]+)\(([^\)]+)\)/);
     &mt("Invalid email address specified, address must be of the form username:domain").   if (!$sections_or_groups) {
     '</span>';      $user = $specifier;
  undef($value);   }
     } elsif (&Apache::lonnet::homeserver($user,$domain) eq 'no_host') {   my ($name,$domain) = split(':',$user);
  $setoutput.= '<br /> <span class="LC_error">'.   if (!defined($user) || !defined($domain)) {
     &mt("Invalid email address specified, user [_1] is unknown.",$value).      $setoutput.= '<br /> <span class="LC_error">'.
     '</span>';   &mt("Invalid email address specified, address must be of the form username:domain what was specified was ([_1])",$user).
  undef($value);   '</span>';
       undef($value);
    } elsif (&Apache::lonnet::homeserver($user,$domain) eq 'no_host') {
       $setoutput.= '<br /> <span class="LC_error">'.
    &mt("Invalid email address specified, user [_1] is unknown.",$name).
    '</span>';
       undef($value);
    }
     }      }
         }          }
         # Get existing cloners          # Get existing cloners
Line 3148  ENDMAINFORMHEAD Line 3155  ENDMAINFORMHEAD
     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};      my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $vgr  = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});      my $vgr  = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});
       my $mgr  = &Apache::lonnet::allowed('mgr',$env{'request.course.id'});
   
     my @menu =      my @menu =
         ( { divider=>'Settings for Your Course',          ( { divider=>'Settings for Your Course',
Line 3165  ENDMAINFORMHEAD Line 3173  ENDMAINFORMHEAD
     url => '/adm/slotrequest?command=showslots',      url => '/adm/slotrequest?command=showslots',
     permission => $vgr,      permission => $vgr,
             },              },
     { text => 'Reset Student Access Times',
       url => '/adm/helper/resettimes.helper',
       permission => $mgr,
               },
   
           { text => 'Set Parameter Setting Default Actions',            { text => 'Set Parameter Setting Default Actions',
             action => 'setdefaults',              action => 'setdefaults',
             permission => $parm_permission,              permission => $parm_permission,
Removed from v.1.365  
changed lines
  Added in v.1.366.2.1

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