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

Diff for /loncom/interface/lonuserutils.pm between versions 1.109.2.9 and 1.109.2.11

version 1.109.2.9, 2010/11/15 17:37:47 version 1.109.2.11, 2010/11/29 04:40:12
Line 1223  sub setup_date_selectors { Line 1223  sub setup_date_selectors {
   
   
 sub get_dates_from_form {  sub get_dates_from_form {
     my ($startname,$endname) = @_;      my ($startname,$endname,$timezone) = @_;
     if ($startname eq '') {      if ($startname eq '') {
         $startname = 'startdate';          $startname = 'startdate';
     }      }
     if ($endname eq '') {      if ($endname eq '') {
         $endname = 'enddate';          $endname = 'enddate';
     }      }
     my $startdate = &Apache::lonhtmlcommon::get_date_from_form($startname);      my $startdate = &Apache::lonhtmlcommon::get_date_from_form($startname,$timezone);
     my $enddate   = &Apache::lonhtmlcommon::get_date_from_form($endname);      my $enddate   = &Apache::lonhtmlcommon::get_date_from_form($endname,$timezone);
     if ($env{'form.no_end_date'}) {      if ($env{'form.no_end_date'}) {
         $enddate = 0;          $enddate = 0;
     }      }
Line 4401  sub upfile_drop_add { Line 4401  sub upfile_drop_add {
                             }                              }
                         }                          }
                         if (!$cancreate{$usertype}) {                          if (!$cancreate{$usertype}) {
                             $r->print('<br />'.                              my $showtype = $longtypes{$usertype};
                                       &mt("[_1]: The user does not exist, and you are not permitted to create users of type: $longtypes{$usertype}.",'<b>'.$username.'</b>'));                              if ($usertype eq 'unofficial') {
                                   $r->print('<br />'.
                                             &mt("[_1]: The user does not exist, and the new user's username must be an e-mail address.",'<b>'.$username.'</b>'));
                               } else {
                                   $r->print('<br />'.
                                             &mt("[_1]: The user does not exist, and you are not permitted to create users of type: [_2].",'<b>'.$username.'</b>',$showtype));
                               }
                             next;                              next;
                         }                          }
                     } else {                      } else {
Removed from v.1.109.2.9  
changed lines
  Added in v.1.109.2.11

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