[BACK]Return to lonsequence.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonsequence.pm between versions 1.27 and 1.29

version 1.27, 2006/06/08 13:56:40 version 1.29, 2006/11/02 21:27:58
Line 33  use strict; Line 33  use strict;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::Constants qw(:common :http REDIRECT);  use Apache::Constants qw(:common :http REDIRECT);
 use GDBM_File;  use GDBM_File;
 use Apache::lonratedt;  use LONCAPA::map();
 use Apache::lonratsrv;  use Apache::lonpageflip();
 use Apache::lonpageflip;  use Apache::loncommon();
 use Apache::loncommon;  
 use Apache::lonlocal;  use Apache::lonlocal;
   
 my %selhash;  my %selhash;
Line 48  sub attemptread { Line 47  sub attemptread {
     my $fn=shift;      my $fn=shift;
     &Apache::lonnet::repcopy($fn);      &Apache::lonnet::repcopy($fn);
     if (-e $fn) {      if (-e $fn) {
  return &Apache::lonratedt::attemptread($fn);   return &LONCAPA::map::attemptread($fn);
     } else {      } else {
         return ();          return ();
     }      }
Line 58  sub mapread { Line 57  sub mapread {
     my $fn=shift;      my $fn=shift;
     &Apache::lonnet::repcopy($fn);      &Apache::lonnet::repcopy($fn);
     if (-e $fn) {      if (-e $fn) {
  return &Apache::lonratedt::mapread($fn,'');   return &LONCAPA::map::mapread($fn,'');
     } else {      } else {
         return ();          return ();
     }      }
Line 189  value='$url' onClick='javascript:queue(" Line 188  value='$url' onClick='javascript:queue("
 <input type='hidden' name='title' value='$title'>  <input type='hidden' name='title' value='$title'>
 ENDCHECKBOX  ENDCHECKBOX
                 }                  }
  $r->print('<a href="'.&Apache::lonratsrv::qtescape($url).'">');   $r->print('<a href="'.&LONCAPA::map::qtescape($url).'">');
             }              }
             $r->print(&Apache::lonratsrv::qtescape($title));              $r->print(&LONCAPA::map::qtescape($title));
             if ($url) { $r->print('</a>'); }              if ($url) { $r->print('</a>'); }
             if ($successtied) {              if ($successtied) {
  $r->print('</form>');   $r->print('</form>');
Removed from v.1.27  
changed lines
  Added in v.1.29

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