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

Diff for /loncom/interface/lonpickauthor.pm between versions 1.1 and 1.3

version 1.1, 2008/05/19 17:13:06 version 1.3, 2012/10/12 17:00:50
Line 53  sub handler { Line 53  sub handler {
     &Apache::loncommon::get_unprocessed_cgi      &Apache::loncommon::get_unprocessed_cgi
         ($ENV{'QUERY_STRING'},['form','roledom','sortby']);          ($ENV{'QUERY_STRING'},['form','roledom','sortby']);
     my $then=$env{'user.login.time'};      my $then=$env{'user.login.time'};
       my $update=$env{'user.update.time'};
       if (!$update) {
           $update = $then;
       }
     my (%dcroles,%dom_roles,$earlyout,$domdesc);      my (%dcroles,%dom_roles,$earlyout,$domdesc);
     my $numdc = &Apache::lonroles::check_fordc(\%dcroles,$then);      my $numdc = &Apache::lonroles::check_fordc(\%dcroles,$update,$then);
     if ($env{'form.roledom'} ne '') {      if ($env{'form.roledom'} ne '') {
         $domdesc = &Apache::lonnet::domain($env{'form.roledom'});          $domdesc = &Apache::lonnet::domain($env{'form.roledom'});
         if ($domdesc eq '') {          if ($domdesc eq '') {
Line 66  sub handler { Line 70  sub handler {
                     $earlyout = &mt('There are no library servers containing Construction spaces currently in domain: [_1], so you can not assume a co-author role.',$domdesc);                       $earlyout = &mt('There are no library servers containing Construction spaces currently in domain: [_1], so you can not assume a co-author role.',$domdesc); 
                 }                  }
             } else {              } else {
                 $earlyout = &mt('You do not have a domain coordinator role in domain: [_1], so cannot choose a Construction space for which you can assume a co-author role.',$domdesc);                  $earlyout = &mt('You do not have a domain coordinator role in domain: [_1], so you cannot choose a Construction space for which you can assume a co-author role.',$domdesc);
             }              }
         } else {          } else {
             $earlyout = &mt('You do not have a domain coordinator role, so cannot choose a Construction space for which you can assume a co-author role.');              $earlyout = &mt('You do not have a domain coordinator role, so you cannot choose a Construction space for which you can assume a co-author role.');
         }          }
     } else {      } else {
         $earlyout = &mt('Invalid domain');           $earlyout = &mt('Invalid domain'); 
Removed from v.1.1  
changed lines
  Added in v.1.3

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