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

Diff for /rat/lonpage.pm between versions 1.21 and 1.29

version 1.21, 2001/05/04 19:33:46 version 1.29, 2001/11/29 19:23:48
Line 1 Line 1
 # The LearningOnline Network with CAPA  # The LearningOnline Network with CAPA
 # Page Handler  # Page Handler
 #  #
   # $Id$
   #
   # Copyright Michigan State University Board of Trustees
   #
   # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
   #
   # LON-CAPA is free software; you can redistribute it and/or modify
   # it under the terms of the GNU General Public License as published by
   # the Free Software Foundation; either version 2 of the License, or
   # (at your option) any later version.
   #
   # LON-CAPA is distributed in the hope that it will be useful,
   # but WITHOUT ANY WARRANTY; without even the implied warranty of
   # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   # GNU General Public License for more details.
   #
   # You should have received a copy of the GNU General Public License
   # along with LON-CAPA; if not, write to the Free Software
   # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   #
   # /home/httpd/html/adm/gpl.txt
   #
   # http://www.lon-capa.org/
   #
 # (TeX Content Handler  # (TeX Content Handler
 #  #
 # 05/29/00,05/30 Gerd Kortemeyer)  # 05/29/00,05/30 Gerd Kortemeyer)
 # 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,  # 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,
 # 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16 Gerd Kortemeyer  # 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16,
   # 08/13/01,08/30,10/1 Gerd Kortemeyer
   
 package Apache::lonpage;  package Apache::lonpage;
   
Line 247  sub handler { Line 272  sub handler {
   $xmlbody=$token->[4];    $xmlbody=$token->[4];
                                       }                                        }
                                   } elsif ($token->[1] eq 'meta') {                                    } elsif ($token->[1] eq 'meta') {
       if ($token->[4] !~ m:/>$:) {
       $allmeta.="\n".$token->[4].'</meta>';        $allmeta.="\n".$token->[4].'</meta>';
       } else {
         $allmeta.="\n".$token->[4];
       }
                                   } elsif (($token->[1] eq 'script') &&                                    } elsif (($token->[1] eq 'script') &&
                                            ($bodydef==0)) {                                             ($bodydef==0)) {
       $allscript.="\n\n"        $allscript.="\n\n"
Line 275  sub handler { Line 304  sub handler {
                      $output=~s/(\"|\'|\=\s*)$_(\"|\'|\s|\>)/$1$newlocation$2/;                       $output=~s/(\"|\'|\=\s*)$_(\"|\'|\s|\>)/$1$newlocation$2/;
   }    }
       } @rlinks;        } @rlinks;
                      $output=~s/\<\s*applet/\<applet codebase=\"$thisdir\" /gi;  # -------------------------------------------------- Deal with Applet codebases
     $output=~s/(\<applet[^\>]+)(codebase\=[^\S\>]+)*([^\>]*)\>/$1.($2?$2:' codebase="'.$thisdir.'"').$3.'>'/gei;
       $ssibody{$_}=$output;        $ssibody{$_}=$output;
 # ---------------------------------------------------------------- End SSI cell  # ---------------------------------------------------------------- End SSI cell
                           }                            }
Line 307  sub handler { Line 337  sub handler {
   $r->print("\n<script language='JavaScript'>\n".    $r->print("\n<script language='JavaScript'>\n".
                                    $allscript."\n</script>\n");                                     $allscript."\n</script>\n");
                       }                        }
                       $r->print(&Apache::lonxml::registerurl);                        $r->print(&Apache::lonxml::registerurl(1));
                       $r->print("\n</head>\n");                        $r->print("\n</head>\n");
 # ------------------------------------------------------------------ Start body  # ------------------------------------------------------------------ Start body
                       if ($isxml) {                        if ($isxml) {
Line 334  sub handler { Line 364  sub handler {
                               my $metainfo='<a href="'.                                my $metainfo='<a href="'.
                                     $metalink{$rid}.'" target="LONcatInfo">'.                                      $metalink{$rid}.'" target="LONcatInfo">'.
                           '<img src="/adm/lonMisc/cat_button.gif" border=0>'.                            '<img src="/adm/lonMisc/cat_button.gif" border=0>'.
   '</img></a><br></br>';    '</img></a>';
                                 if (
    ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&
    (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) {
     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='.$symb.
                     '&command=submission" target="LONcatInfo">'.
                             '<img src="/adm/lonMisc/subm_button.gif" border=0>'.
     '</img></a>'.
                     '<a href="/adm/grades?symb='.$symb.
                     '&command=viewgrades" target="LONcatInfo">'.
                             '<img src="/adm/lonMisc/pgrd_button.gif" border=0>'.
     '</img></a>'.
                     '<a href="/adm/parmset?symb='.$symb.'" target="LONcatInfo">'.
                             '<img src="/adm/lonMisc/pprm_button.gif" border=0>'.
         '</img></a>';
                                 }
                                 $metainfo.='<br></br>';
                               $r->print('<td colspan="'.$avespan.'"');                                $r->print('<td colspan="'.$avespan.'"');
                               if ($cellemb{$rid} eq 'ssi') {                                if ($cellemb{$rid} eq 'ssi') {
   if ($ssibgcolor{$rid}) {    if ($ssibgcolor{$rid}) {
Line 375  sub handler { Line 427  sub handler {
                   '<input name="all_submit" value="Submit All" type="'.                    '<input name="all_submit" value="Submit All" type="'.
   (($nforms>1)?'submit':'hidden').'"></input></form>');    (($nforms>1)?'submit':'hidden').'"></input></form>');
                       }                        }
                       $r->print('</body></html>');                        $r->print('</body>'.&Apache::lonxml::xmlend());
 # -------------------------------------------------------------------- End page  # -------------------------------------------------------------------- End page
                   }                                      }                  
 # ------------------------------------------------------------- End render page  # ------------------------------------------------------------- End render page
Removed from v.1.21  
changed lines
  Added in v.1.29

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