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

Diff for /rat/lonpage.pm between versions 1.73 and 1.83

version 1.73, 2006/01/11 09:13:15 version 1.83, 2007/06/25 23:27:10
Line 39  use Apache::lonmenu; Line 39  use Apache::lonmenu;
 use HTML::TokeParser;  use HTML::TokeParser;
 use GDBM_File;  use GDBM_File;
 use Apache::lonsequence;  use Apache::lonsequence;
   use lib '/home/httpd/lib/perl/';
   use LONCAPA;
    
   
 # -------------------------------------------------------------- Module Globals  # -------------------------------------------------------------- Module Globals
 my %hash;  my %hash;
Line 203  sub handler { Line 206  sub handler {
                   my %ssivlink=();                    my %ssivlink=();
                   my %ssialink=();                    my %ssialink=();
             
                   my %metalink=();  
   
                   my %cellemb=();                    my %cellemb=();
   
                   my $allscript='';                    my $allscript='';
Line 227  sub handler { Line 228  sub handler {
   if ($hash{'encrypted_'.$_}) {    if ($hash{'encrypted_'.$_}) {
       $src=&Apache::lonenc::encrypted($src);        $src=&Apache::lonenc::encrypted($src);
   }    }
                           $metalink{$_}=$src.'.meta';  
                           $cellemb{$_}=                            $cellemb{$_}=
       &Apache::loncommon::fileembstyle($extension);        &Apache::loncommon::fileembstyle($extension);
                           if ($cellemb{$_} eq 'ssi') {                            if ($cellemb{$_} eq 'ssi') {
Line 267  sub handler { Line 267  sub handler {
   }    }
       }        }
                               my $output=Apache::lonnet::ssi($src,%posthash);                                my $output=Apache::lonnet::ssi($src,%posthash);
       $output=~s|//(\s*<!--)? BEGIN LON-CAPA Internal.+// END LON-CAPA Internal\s*(-->)?\s||gs;        $output=~s|//(\s*<!--)? BEGIN LON-CAPA Internal.+?// END LON-CAPA Internal\s*(-->)?\s||gs;
                               if ($target eq 'tex') {                                if ($target eq 'tex') {
   $output =~ s/^([^&]+)\\begin{document}//;    $output =~ s/^([^&]+)\\begin{document}//;
   $output =~ s/\\end{document}//;    $output =~ s/\\end{document}//;
Line 335  sub handler { Line 335  sub handler {
                                   $output=~s/\<form[^\>]*\>//gsi;                                    $output=~s/\<form[^\>]*\>//gsi;
                                   $output=~s/\<\/form[^\>]*\>//gsi;                                    $output=~s/\<\/form[^\>]*\>//gsi;
                                   $output=~                                    $output=~
       s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([\w\.\:]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;        s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;
                               }                                }
                               $thisdir=~s/\/[^\/]*$//;                                $thisdir=~s/\/[^\/]*$//;
       foreach (@rlinks) {        foreach (@rlinks) {
Line 360  sub handler { Line 360  sub handler {
                   unless ($contents) {                    unless ($contents) {
                       &Apache::loncommon::content_type($r,'text/html');                        &Apache::loncommon::content_type($r,'text/html');
                       $r->send_http_header;                        $r->send_http_header;
                       $r->print('<html>'."\n".                        $r->print(&Apache::loncommon::start_page(undef,undef,
                                 '<head>'."\n".         {'force_register' => 1,}));
                                 &Apache::lonmenu::registerurl(1,undef)."\n".  
                                 '</head>'."\n".  
                                 '<body bgcolor="#FFFFFF" onLoad="'  
                                 .&Apache::lonmenu::loadevents.  
                                 '" onUnload="'.&Apache::lonmenu::unloadevents.'">'.  
                                  &Apache::lonmenu::menubuttons(undef,$target,1)  
                                );  
                       $r->print(&mt('This page is either empty or it only contains resources that are currently hidden').'. ');                        $r->print(&mt('This page is either empty or it only contains resources that are currently hidden').'. ');
                       $r->print('<br /><br />'.&mt('Please use the LON-CAPA navigation arrows to move to another item in the course').'.</body></html>');                        $r->print('<br /><br />'.&mt('Please use the LON-CAPA navigation arrows to move to another item in the course').
    &Apache::loncommon::end_page());
                   } else {                    } else {
 # ------------------------------------------------------------------ Build page  # ------------------------------------------------------------------ Build page
   
Line 378  sub handler { Line 372  sub handler {
       unless ($target eq 'tex') {        unless ($target eq 'tex') {
   if ($isxml) {    if ($isxml) {
       &Apache::loncommon::content_type($r,'text/xml');        &Apache::loncommon::content_type($r,'text/xml');
       $r->send_http_header;  
       $r->print($xmlheader);  
   } else {    } else {
       &Apache::loncommon::content_type($r,'text/html');        &Apache::loncommon::content_type($r,'text/html');
       $r->send_http_header;  
       $r->print('<html>');  
   }    }
     $r->send_http_header;
 # ------------------------------------------------------------------------ Head  # ------------------------------------------------------------------------ Head
   $r->print("\n<head>\n".$allmeta);  
   if ($allscript) {    if ($allscript) {
       $r->print("\n<script language='JavaScript'>\n".        $allscript .= 
  $allscript."\n</script>\n");    "\n<script type=\"text/javascript\">\n".
     $allscript."\n</script>\n";
   }    }
   $r->print(&Apache::lonmenu::registerurl(1,undef));  
   $r->print("\n</head>\n");  
 # ------------------------------------------------------------------ Start body  # ------------------------------------------------------------------ Start body
   if ($isxml) {    $r->print(&Apache::loncommon::start_page(undef,undef,
       $r->print($xmlbody);     {'force_register' => 1,
   } else {      'bgcolor'        => '#ffffff',}));
       $r->print(  
                '<body bgcolor="#FFFFFF" onLoad="'.&Apache::lonmenu::loadevents.  
                '" onUnload="'.&Apache::lonmenu::unloadevents.'">'.  
                               &Apache::lonmenu::menubuttons(undef,$target,1)  
  );  
   }  
 # ------------------------------------------------------------------ Start form  # ------------------------------------------------------------------ Start form
   if ($nforms) {    if ($nforms) {
       $r->print('<form method="post" action="'.        $r->print('<form method="post" action="'.
Line 425  sub handler { Line 408  sub handler {
       } else {        } else {
   $r->print('<table width="100%" cols="'.$lcm.'" border="0">');    $r->print('<table width="100%" cols="'.$lcm.'" border="0">');
       }        }
   # generate rows
                       for ($i=0;$i<=$#rows;$i++) {                        for ($i=0;$i<=$#rows;$i++) {
  if ($rows[$i]) {   if ($rows[$i]) {
     unless ($target eq 'tex') {      unless ($target eq 'tex') {
Line 434  sub handler { Line 418  sub handler {
                           my $avespan=$lcm/($#colcont+1);                            my $avespan=$lcm/($#colcont+1);
                           for ($j=0;$j<=$#colcont;$j++) {                            for ($j=0;$j<=$#colcont;$j++) {
                               my $rid=$colcont[$j];                                my $rid=$colcont[$j];
                               my $metainfo = '';  
       my $esrc=&Apache::lonnet::declutter($hash{'src_'.$rid});        my $metainfo =&get_buttons(\%hash,$rid).'<br />';
       my ($mapid,$resid)=split(/\./,$rid);  
       my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$hash{'src_'.$rid});  
       if ($hash{'encrypted_'.$rid}) {  
   $symb=&Apache::lonenc::encrypted($symb);  
   $esrc=&Apache::lonenc::encrypted($esrc);  
       }  
                               unless ($hash{'src_'.$rid} =~ m-^/uploaded/-) {   
                                   $metainfo ='<a name="'.&Apache::lonnet::escape($symb).'" />'.  
                                   '<a href="'.$metalink{$rid}.'" target="LONcatInfo">'.  
                                   '<img src="/adm/lonMisc/cat_button.gif" border=0>'.  
                                   '</img></a>';  
                               }  
                               $metainfo .= '<a href="/adm/evaluate?postdata='.  
   &Apache::lonnet::escape($esrc).  
                                   '" target="LONcatInfo">'.  
                                   '<img src="/adm/lonMisc/eval_button.gif" border=0>'.  
                                   '</img></a>';  
                               if (  
  ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&  
  (&Apache::lonnet::allowed('mgr',$env{'request.course.id'})) &&   
  ($hash{'src_'.$rid} !~ m-^/uploaded/-)) {  
   my ($mapid,$resid)=split(/\./,$rid);  
                                  my $symb=  
                 &Apache::lonnet::declutter($hash{'map_id_'.$mapid}).  
                 '___'.$resid.'___'.  
  &Apache::lonnet::declutter($hash{'src_'.$rid});  
                                  $metainfo.=  
                   '<a href="/adm/grades?symb='.&Apache::lonnet::escape($symb).  
 #                 '&command=submission" target="LONcatInfo">'.  
                   '&command=submission">'.  
                           '<img src="/adm/lonMisc/subm_button.gif" border=0>'.  
   '</img></a>'.  
                   '<a href="/adm/grades?symb='.&Apache::lonnet::escape($symb).  
 #                  '&command=gradingmenu" target="LONcatInfo">'.  
                   '&command=gradingmenu">'.  
                           '<img src="/adm/lonMisc/pgrd_button.gif" border=0>'.  
   '</img></a>'.  
                   '<a href="/adm/parmset?symb='.&Apache::lonnet::escape($symb).  
 #                          '" target="LONcatInfo">'.  
                           '" >'.  
                           '<img src="/adm/lonMisc/pprm_button.gif" border=0>'.  
       '</img></a>';  
                               }  
                               $metainfo.='<br></br>';  
     unless ($target eq 'tex') {      unless ($target eq 'tex') {
  $r->print('<td colspan="'.$avespan.'"');   $r->print('<td colspan="'.$avespan.'"');
     }      }
Line 514  sub handler { Line 454  sub handler {
                                       '.pageseparators'} eq 'yes') {                                        '.pageseparators'} eq 'yes') {
                                       unless($target eq 'tex') {                                        unless($target eq 'tex') {
                                           $r->print('<hr />');                                            $r->print('<hr />');
                                       } else {                                        } 
                                           $r->print('\hline');  
                                       }  
   }    }
       } elsif ($cellemb{$rid} eq 'img') {        } elsif ($cellemb{$rid} eq 'img') {
                                   $r->print('>'.$metainfo.'<img src="'.                                    $r->print('>'.$metainfo.'<img src="'.
                                     $hash{'src_'.$rid}.'"></img>');                                      $hash{'src_'.$rid}.'" />');
       } elsif ($cellemb{$rid} eq 'emb') {        } elsif ($cellemb{$rid} eq 'emb') {
                                   $r->print('>'.$metainfo.'<embed src="'.                                    $r->print('>'.$metainfo.'<embed src="'.
                                     $hash{'src_'.$rid}.'"></embed>');                                      $hash{'src_'.$rid}.'"></embed>');
Line 556  sub handler { Line 494  sub handler {
   (($nforms>1)?'submit':'hidden').'"></input></form>');    (($nforms>1)?'submit':'hidden').'"></input></form>');
                       }                        }
       unless ($target eq 'tex') {        unless ($target eq 'tex') {
   $r->print('</body>'.&Apache::lonxml::xmlend());    $r->print(&Apache::loncommon::end_page({'discussion'
         => 1,}));
       } else {        } else {
   $r->print('\end{document}'.$number_of_columns);    $r->print('\end{document}'.$number_of_columns);
       }        }
Line 588  sub handler { Line 527  sub handler {
   return OK;     return OK; 
 }  }
   
   sub get_buttons {
       my ($hash,$rid) = @_;
   
       # which icons do we use?
       my $extension='png';
       if ($env{'environment.icons'} eq 'classic') { $extension='gif'; }
   
       my $metainfo = '';
       my $esrc=&Apache::lonnet::declutter($hash->{'src_'.$rid});
       my ($mapid,$resid)=split(/\./,$rid);
       my $symb=&Apache::lonnet::encode_symb($hash->{'map_id_'.$mapid},
     $resid,
     $hash->{'src_'.$rid});
       if ($hash->{'encrypted_'.$rid}) {
    $symb=&Apache::lonenc::encrypted($symb);
    $esrc=&Apache::lonenc::encrypted($esrc);
       }
       if ($hash->{'src_'.$rid} !~ m-^/uploaded/-
    && !$env{'request.enc'}
    && ($env{'request.role.adv'}
       || !$hash->{'encrypted_'.$rid})) { 
    $metainfo .='<a name="'.&escape($symb).'" />'.
       '<a href="'.$hash->{'src_'.$rid}.'.meta'.'" target="LONcatInfo">'.
       '<img src="/adm/lonMisc/cat_button.'.$extension.'" class="LC_icon" />'.
       '</a>';
       }
       $metainfo .= '<a href="/adm/evaluate?postdata='.
    &escape($esrc).
    '" target="LONcatInfo">'.
    '<img src="/adm/lonMisc/eval_button.'.$extension.'" class="LC_icon" />'.
    '</a>';
       if (($hash->{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&
    ($hash->{'src_'.$rid} !~ m-^/uploaded/-)) {
   
    if (&Apache::lonnet::allowed('mgr',$env{'request.course.id'})) {
       $metainfo.=
    '<a href="/adm/grades?symb='.&escape($symb).
   #               '&command=submission" target="LONcatInfo">'.
    '&command=submission">'.
    '<img src="/adm/lonMisc/subm_button.'.$extension.'" class="LC_icon" />'.
    '</a>'.
    '<a href="/adm/grades?symb='.&escape($symb).
   #               '&command=gradingmenu" target="LONcatInfo">'.
    '&command=gradingmenu">'.
    '<img src="/adm/lonMisc/pgrd_button.'.$extension.'" class="LC_icon" />'.
    '</a>';
    }
    if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
       $metainfo.=
    '<a href="/adm/parmset?symb='.&escape($symb).
   #               '" target="LONcatInfo">'.
    '" >'.
    '<img src="/adm/lonMisc/pprm_button.'.$extension.'" class="LC_icon" />'.
    '</a>';
    }
       }
       return $metainfo;
   }
   
 1;  1;
 __END__  __END__
   
Removed from v.1.73  
changed lines
  Added in v.1.83

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.