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

Diff for /rat/lonratsrv.pm between versions 1.14 and 1.18

version 1.14, 2001/07/04 19:59:24 version 1.18, 2002/06/24 14:05:51
Line 1 Line 1
 # The LearningOnline Network with CAPA  # The LearningOnline Network with CAPA
 # Server for RAT Maps  # Server for RAT Maps
 #  #
   # $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/
   #
 # (Edit Handler for RAT Maps  # (Edit Handler for RAT Maps
 # (TeX Content Handler  # (TeX Content Handler
 #  #
Line 8 Line 32
 # 7/1 Gerd Kortemeyer)  # 7/1 Gerd Kortemeyer)
 # 7/1,7/3,7/4,7/7,7/8,7/10,7/26,10/2 Gerd Kortemeyer  # 7/1,7/3,7/4,7/7,7/8,7/10,7/26,10/2 Gerd Kortemeyer
 # 4/30/2001 Scott Harrison  # 4/30/2001 Scott Harrison
 # 5/3,06/25,07/03,07/04 Gerd Kortemeyer  # 5/3,06/25,07/03,07/04,07/05 Gerd Kortemeyer
   
 package Apache::lonratsrv;  package Apache::lonratsrv;
   
Line 25  sub qtescape { Line 49  sub qtescape {
     $str=~s/\&\#58\;/\:/g;      $str=~s/\&\#58\;/\:/g;
     $str=~s/\&\#39\;/\'/g;      $str=~s/\&\#39\;/\'/g;
     $str=~s/\&\#44\;/\,/g;      $str=~s/\&\#44\;/\,/g;
     $str=~s/\&\#34\;/\"/g;      $str=~s/\"/\&\#34\;/g;
     return $str;      return $str;
 }  }
   
Line 238  sub savemap { Line 262  sub savemap {
            } elsif ($parts[0] eq 'objparms') {             } elsif ($parts[0] eq 'objparms') {
                undef %alltypes;                 undef %alltypes;
                undef %allvalues;                 undef %allvalues;
                map {                 foreach (split(/:/,$parts[$#parts])) {
                    my ($type,$name,$value)=split(/\_\_\_/,$_);                     my ($type,$name,$value)=split(/\_\_\_/,$_);
                    $alltypes{$name}=$type;                     $alltypes{$name}=$type;
                    $allvalues{$name}=$value;                     $allvalues{$name}=$value;
                } split(/:/,$parts[$#parts]);                 }
                map {                 foreach (keys %allvalues) {
                     if ($allvalues{$_} ne '') {
                    $outstr.='<param to="'.$parts[1].'" type="'                     $outstr.='<param to="'.$parts[1].'" type="'
                           .$alltypes{$_}.'" name="'.$_                            .$alltypes{$_}.'" name="'.$_
                           .'" value="'.$allvalues{$_}.'">'                            .'" value="'.$allvalues{$_}.'">'
                           ."</param>\n";                            ."</param>\n";
                } keys %allvalues;            }
                  }
            } elsif (($parts[0] ne '') && ($graphdef)) {             } elsif (($parts[0] ne '') && ($graphdef)) {
 # ------------------------------------------------------------- Graphical input  # ------------------------------------------------------------- Graphical input
                $outstr.='<'.$parts[0];                 $outstr.='<'.$parts[0];
Line 266  sub savemap { Line 292  sub savemap {
              print $fh $outstr;               print $fh $outstr;
              $errtext.="Map saved as $fn. ";               $errtext.="Map saved as $fn. ";
   } else {    } else {
              $errtext.='Could not write file $fn. Map not saved. ';               $errtext.='Could not write file '.$fn.'.  Map not saved. ';
   }    }
         }          }
     } else {      } else {
Removed from v.1.14  
changed lines
  Added in v.1.18

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