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

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.1372 and 1.1373

version 1.1372, 2018/03/30 23:50:29 version 1.1373, 2018/04/02 17:27:52
Line 11940  sub metadata { Line 11940  sub metadata {
                                     undef(%importedrespids);                                      undef(%importedrespids);
                                     undef(%importedpartids);                                      undef(%importedpartids);
                                 }                                  }
                                 @{$importedrespids{$importid}} = split(/\s*,\s*/,$libresponseorder);                                  my @respids = split(/\s*,\s*/,$libresponseorder);
                                 if (@{$importedrespids{$importid}} > 0) {                                  if (@respids) {
                                       $importedrespids{$importid} = join(',',map { $importid.'_'.$_ } @respids);
                                   }
                                   if ($importedrespids{$importid} ne '') {
                                     $importedresponses = 1;                                      $importedresponses = 1;
 # We need to get the original file and the imported file to get the response order correct  # We need to get the original file and the imported file to get the response order correct
 # Load and inspect original file  # Load and inspect original file
Line 12120  sub metadata { Line 12123  sub metadata {
                 } elsif ($origfiletagids[$index] eq 'import') {                  } elsif ($origfiletagids[$index] eq 'import') {
                     if ($importedparts) {                      if ($importedparts) {
 # We have imported parts at this position  # We have imported parts at this position
                         $metaentry{':partorder'}.=','.$importedpartids{$origid};                          if ($importedpartids{$origid} ne '') {
                               $metaentry{':partorder'}.=','.$importedpartids{$origid};
                           }
                     }                      }
                     if ($importedresponses) {                      if ($importedresponses) {
 # We have imported responses at this position  # We have imported responses at this position
                         if (ref($importedrespids{$origid}) eq 'ARRAY') {                          if ($importedrespids{$origid} ne '') {
                             $metaentry{':responseorder'}.=','.join(',',map { $origid.'_'.$_ } @{$importedrespids{$origid}});                              $metaentry{':responseorder'}.=','.$importedrespids{$origid};
                         }                          }
                     }                      }
                 } else {                  } else {
Removed from v.1.1372  
changed lines
  Added in v.1.1373

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