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

Diff for /rat/lonpage.pm between versions 1.30 and 1.35

version 1.30, 2001/12/17 00:57:59 version 1.35, 2002/03/26 23:12:57
Line 34 Line 34
 # YEAR=2001  # YEAR=2001
 # 08/13/01,08/30,10/1 Gerd Kortemeyer  # 08/13/01,08/30,10/1 Gerd Kortemeyer
 # 12/16 Scott Harrison  # 12/16 Scott Harrison
   # YEAR=2002
   # 03/19 Gerd Kortemeyer
 #  #
 ###  ###
   
Line 304  sub handler { Line 306  sub handler {
                               $thisdir=~s/\/[^\/]*$//;                                $thisdir=~s/\/[^\/]*$//;
       foreach (@rlinks) {        foreach (@rlinks) {
   unless (($_=~/^http:\/\//i) ||    unless (($_=~/^http:\/\//i) ||
                                           ($_=~/^\//)) {    ($_=~/^\//) ||
     ($_=~/^javascript:/i) ||
     ($_=~/^mailto:/i) ||
     ($_=~/^\#/)) {
       my $newlocation=        my $newlocation=
     &Apache::lonnet::hreflocation($thisdir,$_);      &Apache::lonnet::hreflocation($thisdir,$_);
                      $output=~s/(\"|\'|\=\s*)$_(\"|\'|\s|\>)/$1$newlocation$2/;                       $output=~s/(\"|\'|\=\s*)$_(\"|\'|\s|\>)/$1$newlocation$2/;
Line 343  sub handler { Line 348  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(1));                        $r->print(&Apache::lonxml::registerurl(1,undef));
                       $r->print("\n</head>\n");                        $r->print("\n</head>\n");
 # ------------------------------------------------------------------ Start body  # ------------------------------------------------------------------ Start body
                       if ($isxml) {                        if ($isxml) {
Line 370  sub handler { Line 375  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>';    '</img></a><a href="/adm/evaluate?postdata='.
         &Apache::lonnet::escape(&Apache::lonnet::declutter($hash{'src_'.$rid}))
         .'" target="LONcatInfo">'.
                             '<img src="/adm/lonMisc/eval_button.gif" border=0>'.
                             '</img></a>';
                               if (                                if (
  ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&   ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&
  (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) {   (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) {
Removed from v.1.30  
changed lines
  Added in v.1.35

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