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

Diff for /rat/lonsequence.pm between versions 1.12 and 1.15

version 1.12, 2002/05/24 14:44:32 version 1.15, 2003/04/07 20:47:06
Line 45  use GDBM_File; Line 45  use GDBM_File;
 use Apache::lonratedt;  use Apache::lonratedt;
 use Apache::lonratsrv;  use Apache::lonratsrv;
 use Apache::lonpageflip;  use Apache::lonpageflip;
   use Apache::loncommon;
   
 my %selhash;  my %selhash;
 my $successtied;  my $successtied;
Line 61  sub attemptread { Line 62  sub attemptread {
     }      }
 }  }
   
   sub mapread {
       my $fn=shift;
       &Apache::lonnet::repcopy($fn);
       if (-e $fn) {
    return &Apache::lonratedt::mapread($fn,'');
       } else {
           return ();
       }
   }
   
 # ---------------------------------------------------------------- View Handler  # ---------------------------------------------------------------- View Handler
   
 sub viewmap {  sub viewmap {
Line 89  function queue(val) { Line 100  function queue(val) {
 </script>  </script>
 ENDSCRIPT  ENDSCRIPT
     }      }
     $r->print('<body bgcolor="#FFFFFF">');      $r->print(&Apache::loncommon::bodytag('Map Contents').'<h1>'.$url.'</h1>');
 # ------------------ This is trying to select. Provide buttons and tie %selhash  # ------------------ This is trying to select. Provide buttons and tie %selhash
     if ($ENV{'form.forceselect'}) { $r->print(<<ENDSELECT);      if ($ENV{'form.forceselect'}) { $r->print(<<ENDSELECT);
 <form name=fileattr><input type=hidden name=acts value=''>  <form name=fileattr><input type=hidden name=acts value=''>
Line 100  onClick="javascript:select_group()"> Line 111  onClick="javascript:select_group()">
 ENDSELECT  ENDSELECT
     my $diropendb =       my $diropendb = 
     "/home/httpd/perl/tmp/$ENV{'user.domain'}\_$ENV{'user.name'}_groupsec.db";      "/home/httpd/perl/tmp/$ENV{'user.domain'}\_$ENV{'user.name'}_groupsec.db";
         if (tie(%selhash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) {          if (tie(%selhash,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) {
     if ($ENV{'form.launch'} eq '1') {      if ($ENV{'form.launch'} eq '1') {
        &start_fresh_session();         &start_fresh_session();
     }      }
Line 151  ENDSELECT Line 162  ENDSELECT
         }          }
     }      }
 # ----------------------------- successtied is now '1' if in working selectmode  # ----------------------------- successtied is now '1' if in working selectmode
       my ($errtext,$fatal)=&mapread(&Apache::lonnet::filelocation('',$url),'');
       if ($fatal==1) {
          $r->print('<p><b><font color="red">Map contents are not shown in order.</font></b></p><br />');
       }
     my $idx=0;      my $idx=0;
     foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) {      foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) {
  if (defined($_)) {   if (defined($_)) {
Line 234  sub handler { Line 249  sub handler {
   if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) {    if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) {
        my $last;         my $last;
        if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db',         if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db',
                     &GDBM_READER,0640)) {                      &GDBM_READER(),0640)) {
    $last=$hash{'last_direction'};     $last=$hash{'last_direction'};
            untie(%hash);             untie(%hash);
        }         }
Line 245  sub handler { Line 260  sub handler {
        }         }
 # ------------------------------------------------------------- Tie big db file  # ------------------------------------------------------------- Tie big db file
        if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',         if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
                     &GDBM_READER,0640)) {                      &GDBM_READER(),0640)) {
    my $disid='';     my $disid='';
   
            if ($direction eq 'back') {             if ($direction eq 'back') {
Removed from v.1.12  
changed lines
  Added in v.1.15

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