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

Diff for /rat/lonsequence.pm between versions 1.24 and 1.26

version 1.24, 2005/04/07 06:56:27 version 1.26, 2006/04/04 15:32:12
Line 70  sub mapread { Line 70  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 96  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 198  ENDCHECKBOX Line 202  ENDCHECKBOX
             }              }
         }          }
     }      }
     $r->print('</body></html>');      $r->print(&Apache::loncommon::end_page());
     if ($successtied) {      if ($successtied) {
  untie %selhash;   untie %selhash;
     }      }
Line 268  sub handler { Line 272  sub handler {
            if ($disid) {             if ($disid) {
        $disurl=$bighash{'src_'.$disid};         $disurl=$bighash{'src_'.$disid};
                $dismapid=(split(/\./,$disid))[1];                 $dismapid=(split(/\./,$disid))[1];
                $randomout = $bighash{'randomout_'.$disid};         if (!$env{'request.role.adv'}) {
      $randomout = $bighash{'randomout_'.$disid};
          }
            } elsif (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',             } elsif (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',
                     &GDBM_READER(),0640)) {                      &GDBM_READER(),0640)) {
                $last=$hash{'last_known'};                 $last=$hash{'last_known'};
Line 285  sub handler { Line 291  sub handler {
                if ($disid) {                 if ($disid) {
            $disurl=$bighash{'src_'.$disid};             $disurl=$bighash{'src_'.$disid};
                    $dismapid=(split(/\./,$disid))[1];                     $dismapid=(split(/\./,$disid))[1];
                    $randomout = $bighash{'randomout_'.$disid};     if (!$env{'request.role.adv'}) {
          $randomout = $bighash{'randomout_'.$disid};
      }
                }                 }
     }      }
            $exitdisid = $disid;             $exitdisid = $disid;
Line 311  sub handler { Line 319  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.24  
changed lines
  Added in v.1.26

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