Diff for /rat/lonsequence.pm between versions 1.25 and 1.32.2.1

version 1.25, 2006/01/05 20:57:55 version 1.32.2.1, 2008/12/21 04:53:39
Line 26 Line 26
 #  #
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 # (Handler to resolve ambiguous file locations  
 #  
   
 package Apache::lonsequence;  package Apache::lonsequence;
   
Line 35  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::groupsort();
 use Apache::lonlocal;  use Apache::lonlocal;
   use HTML::Entities();
   
 my %selhash;  my %selhash;
 my $successtied;  my $successtied;
Line 47  my $successtied; Line 46  my $successtied;
 # ----------------------------------------- Attempt to read from resource space  # ----------------------------------------- Attempt to read from resource space
   
 sub attemptread {  sub attemptread {
     my $fn=shift;      my ($fn,$unsorted)=@_;
     &Apache::lonnet::repcopy($fn);      &Apache::lonnet::repcopy($fn);
     if (-e $fn) {      if (-e $fn) {
  return &Apache::lonratedt::attemptread($fn);   return &LONCAPA::map::attemptread($fn,$unsorted);
     } else {      } else {
         return ();          return ();
     }      }
Line 60  sub mapread { Line 59  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 70  sub mapread { Line 69  sub mapread {
   
 sub viewmap {  sub viewmap {
     my ($r,$url)=@_;      my ($r,$url)=@_;
     $r->print('<html>');  
     if ($env{'form.forceselect'}) { $r->print(<<ENDSCRIPT);      my $js;
 <script>      if ($env{'form.forceselect'}) {
    $js = (<<ENDSCRIPT);
   <script type="text/javascript">
   
 function select_group() {  function select_group() {
     window.location="/adm/groupsort?catalogmode=groupsec&mode=rat&acts="+document.forms.fileattr.acts.value;      window.location="/adm/groupsort?catalogmode=groupsec&mode=rat&acts="+document.forms.fileattr.acts.value;
Line 94  function queue(val) { Line 95  function queue(val) {
 </script>  </script>
 ENDSCRIPT  ENDSCRIPT
     }      }
     $r->print(&Apache::loncommon::bodytag('Map Contents').'<h1>'.$url.'</h1>');  
       $r->print(&Apache::loncommon::start_page('Map Contents',$js).
         '<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 104  onClick="javascript:select_group()"> Line 107  onClick="javascript:select_group()">
 </form>     </form>   
 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'}_sel_res.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 112  ENDSELECT Line 115  ENDSELECT
             $successtied=1;              $successtied=1;
   
 # - Evaluate actions from previous page (both cumulatively and chronologically)  # - Evaluate actions from previous page (both cumulatively and chronologically)
         if ($env{'form.catalogmode'} eq 'groupimport') {      if ($env{'form.catalogmode'} eq 'import') {
     my $acts=$env{'form.acts'};   &Apache::groupsort::update_actions_hash(\%selhash);
     my @Acts=split(/b/,$acts);  
     my %ahash;  
     my %achash;  
     my $ac=0;  
     # some initial hashes for working with data  
     foreach (@Acts) {  
  my ($state,$ref)=split(/a/);  
  $ahash{$ref}=$state;  
  $achash{$ref}=$ac;  
  $ac++;  
     }  
     # sorting through the actions and changing the tied database hash  
     foreach (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) {  
  my $key=$_;  
  if ($ahash{$key} eq '1') {  
     $selhash{'store_'.$selhash{'pre_'.$key.'_link'}}=  
  $selhash{'pre_'.$key.'_title'};  
     $selhash{'storectr_'.$selhash{'pre_'.$key.'_link'}}=  
  $selhash{'storectr'}+0;  
     $selhash{'storectr'}++;  
  }  
  if ($ahash{$key} eq '0') {  
     if ($selhash{'store_'.$selhash{'pre_'.$key.'_link'}}) {  
        delete $selhash{'store_'.$selhash{'pre_'.$key.'_link'}};  
     }  
  }  
     }      }
     # deleting the previously cached listing  
     foreach (keys %selhash) {  
  if ($_ =~ /^pre_/ && $_ =~/link$/) {  
     my $key = $_;  
     $key =~ s/^pre_//;  
     $key =~ s/_[^_]*$//;  
     delete $selhash{'pre_'.$key.'_title'};  
     delete $selhash{'pre_'.$key.'_link'};  
  }  
     }  
  }  
 # -  # -
         }          }
     }      }
Line 168  ENDSELECT Line 134  ENDSELECT
  $r->print('<form name="form'.$idx.'">');   $r->print('<form name="form'.$idx.'">');
             }              }
     my ($title,$url)=split(/\:/,$_);      my ($title,$url)=split(/\:/,$_);
             $title=~s/\&colon\;/\:/g;      $title = &LONCAPA::map::qtescape($title);
             $url=~s/\&colon\;/\:/g;      unless ($title) { $title=(split(/\//,$url))[-1] };
             unless ($title) { $title=(split(/\//,$url))[-1] };              my $enc_title = &HTML::Entities::encode($title,'\'"<>&');
             unless ($title) { $title='<i>'.&mt('Empty').'</i>'; }      unless ($title) {
    $title='<i>'.&mt('Empty').'</i>';
    $enc_title = &mt('Empty');
       }
       $url  = &LONCAPA::map::qtescape($url);
               my $enc_url = &HTML::Entities::encode($url,'\'"<>&');
             if ($url) {              if ($url) {
  if ($successtied) {   if ($successtied) {
     my $checked='';      my $checked='';
Line 180  ENDSELECT Line 151  ENDSELECT
            }             }
            $selhash{"pre_${idx}_link"}=$url;             $selhash{"pre_${idx}_link"}=$url;
            $selhash{"pre_${idx}_title"}=$title;             $selhash{"pre_${idx}_title"}=$title;
       
       $url  = &HTML::Entities::encode($url, '\'"<>&');
     $r->print(<<ENDCHECKBOX);      $r->print(<<ENDCHECKBOX);
 <input type='checkbox' name='filelink'   <input type='checkbox' name='filelink' 
 value='$url' onClick='javascript:queue("form$idx")'$checked>  value='$enc_url' onClick='javascript:queue("form$idx")'$checked />
 <input type='hidden' name='title' value='$title'>  <input type='hidden' name='title' value='$enc_title' />
 ENDCHECKBOX  ENDCHECKBOX
                 }                  }
  $r->print('<a href="'.&Apache::lonratsrv::qtescape($url).'">');   $r->print('<a href="'.$enc_url.'">');
             }              }
             $r->print(&Apache::lonratsrv::qtescape($title));              $r->print($enc_title);
             if ($url) { $r->print('</a>'); }              if ($url) { $r->print('</a>'); }
             if ($successtied) {              if ($successtied) {
  $r->print('</form>');   $r->print('</form>');
Line 198  ENDCHECKBOX Line 170  ENDCHECKBOX
             }              }
         }          }
     }      }
     $r->print('</body></html>');      $r->print(&Apache::loncommon::end_page());
     if ($successtied) {      if ($successtied) {
  untie %selhash;   untie %selhash;
     }      }
Line 306  sub handler { Line 278  sub handler {
       &Apache::lonnet::symblist($requrl,$disurl => [$disurl,$dismapid],        &Apache::lonnet::symblist($requrl,$disurl => [$disurl,$dismapid],
  'last_known' => [$disurl,$dismapid]);    'last_known' => [$disurl,$dismapid]); 
       &Apache::loncommon::content_type($r,'text/html');        &Apache::loncommon::content_type($r,'text/html');
       $r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$disurl);        $r->header_out(Location => &Apache::lonnet::absolute_url($ENV{'SERVER_NAME'}).
                                    $disurl);
       return REDIRECT;        return REDIRECT;
    } else {     } else {
        &Apache::loncommon::content_type($r,'text/html');         &Apache::loncommon::content_type($r,'text/html');
Line 315  sub handler { Line 288  sub handler {
            my %lt =&Apache::lonlocal::texthash(             my %lt =&Apache::lonlocal::texthash(
                    'back' => 'beginning',                     'back' => 'beginning',
                    'forward' => 'end',                     'forward' => 'end',
                    'emfo' => 'Empty Folder/Sequence',  
                    'nere' => 'Next resource could not be displayed',                     'nere' => 'Next resource could not be displayed',
                    'goba' => 'Go Back',                     'goba' => 'Go Back',
                    'nacc' => 'Navigate Course Content',                     'nacc' => 'Navigate Course Content',
                           );                            );
            my $warnmsg = 'As all folders and sequences ';             my $warnmsg = &mt('As all folders and sequences ');
            if ($arrow_dir eq 'forward') {             if ($arrow_dir eq 'forward') {
                $warnmsg .= &mt('following the current resource were empty').',';                 $warnmsg .= &mt('following the current resource were empty').',';
            } elsif ($arrow_dir eq 'back') {             } elsif ($arrow_dir eq 'back') {
                $warnmsg .= &mt('preceding the current resource were empty').',';                 $warnmsg .= &mt('preceding the current resource were empty').',';
            }             }
            $warnmsg .= &mt('you have now reached the').' '.$lt{$arrow_dir}.' '.&mt('of the course.');             $warnmsg .= &mt('you have now reached the').' '.$lt{$arrow_dir}.' '.&mt('of the course.');
            my $bodytag=&Apache::loncommon::bodytag('Empty Folder/Sequence');             my $start_page=
          &Apache::loncommon::start_page('Empty Folder/Sequence');
              my $end_page=
          &Apache::loncommon::end_page();
            $r->print(<<ENDNONE);             $r->print(<<ENDNONE);
 <head><title>$lt{'emfo'}</title></head>  $start_page
 $bodytag  
 <h3>$lt{'nere'}</h3>  <h3>$lt{'nere'}</h3>
 <p>$warnmsg</p>  <p>$warnmsg</p>
 <ul>  <ul>
   <li><a href="javascript:history.go(-1)">$lt{'goba'}</a></li>    <li><a href="javascript:history.go(-1)">$lt{'goba'}</a></li>
   <li><a href="/adm/navmaps">$lt{'nacc'}</a></li>    <li><a href="/adm/navmaps">$lt{'nacc'}</a></li>
 </ul>  </ul>
 </body>  $end_page
  </html>  
 ENDNONE  ENDNONE
        } else {         } else {
            &viewmap($r,$requrl);             &viewmap($r,$requrl);

Removed from v.1.25  
changed lines
  Added in v.1.32.2.1


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