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

Diff for /loncom/interface/coursecatalog.pm between versions 1.11 and 1.14

version 1.11, 2006/12/05 02:55:51 version 1.14, 2007/01/06 20:12:19
Line 47  sub handler { Line 47  sub handler {
     my $lonidsdir=$r->dir_config('lonIDsDir');      my $lonidsdir=$r->dir_config('lonIDsDir');
     my $handle;      my $handle;
     if ($lonid) {      if ($lonid) {
  my $handle=&LONCAPA::clean_handle($lonid->value);   $handle=&LONCAPA::clean_handle($lonid->value);
     }      }
     if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) {      if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) {
         &Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);          &Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);
Line 631  sub get_valid_classes { Line 631  sub get_valid_classes {
     @{$validations{'xlists'}} = ();      @{$validations{'xlists'}} = ();
     my $totalitems = 0;      my $totalitems = 0;
     if ($seclist) {      if ($seclist) {
         foreach my $sec (split(',',$seclist)) {          foreach my $sec (split(/, /,$seclist)) {
             my $class = $crscode.$sec;              my $class = $crscode.$sec;
             if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner,              if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner,
  $class) eq 'ok') {   $class) eq 'ok') {
Line 643  sub get_valid_classes { Line 643  sub get_valid_classes {
         }          }
     }      }
     if ($xlist_items) {      if ($xlist_items) {
         foreach my $item (split(',',$xlist_items)) {          foreach my $item (split(/, /,$xlist_items)) {
             if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner,              if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner,
  $item) eq 'ok') {   $item) eq 'ok') {
                 if (!grep(/^\Q$item$\E/,@{$validations{'xlists'}})) {                  if (!grep(/^\Q$item$\E/,@{$validations{'xlists'}})) {
Line 656  sub get_valid_classes { Line 656  sub get_valid_classes {
     if ($totalitems > 0) {      if ($totalitems > 0) {
         if (@{$validations{'sections'}}) {          if (@{$validations{'sections'}}) {
             $response = &mt('Sections: ').              $response = &mt('Sections: ').
                         join(',',@{$validations{'sections'}}).'<br />';                          join(', ',@{$validations{'sections'}}).'<br />';
         }          }
         if (@{$validations{'xlists'}}) {          if (@{$validations{'xlists'}}) {
             $response .= &mt('Courses: ').              $response .= &mt('Courses: ').
                         join(',',@{$validations{'xlists'}});                          join(', ',@{$validations{'xlists'}});
         }          }
     }      }
     return $response;      return $response;
Removed from v.1.11  
changed lines
  Added in v.1.14

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