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

Diff for /rat/lonratedt.pm between versions 1.28 and 1.30

version 1.28, 2002/05/23 10:19:30 version 1.30, 2002/06/04 13:23:54
Line 36  use strict; Line 36  use strict;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::lonratsrv;  use Apache::lonratsrv;
   use Apache::lonsequence;
   
 my @order;  my @order;
 my @resources;  my @resources;
Line 443  sub smpedt { Line 444  sub smpedt {
        }         }
   
        foreach (         foreach (
     &attemptread(&Apache::lonnet::filelocation('',$ENV{'form.importmap'}))) {      &Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$ENV{'form.importmap'}))) {
    my ($name,$url)=split(/\:/,$_);     my ($name,$url)=split(/\:/,$_);
            if ($url) {             if ($url) {
               $importdetail.='&'.&Apache::lonnet::escape($name).'='.                $importdetail.='&'.&Apache::lonnet::escape($name).'='.
Line 540  sub smpedt { Line 541  sub smpedt {
 # ------------------------------------------------------------ Assemble windows  # ------------------------------------------------------------ Assemble windows
         
    my $idx=-1;     my $idx=-1;
    my $importwindow=join("\n",map {     my $importwindow=
          '<option value="-1"> ---- Import and Paste Area ---- </option>'.
        join("\n",map {
        $idx++;         $idx++;
        if ($_) {          if ($_) { 
           my ($name,$url)=split(/\=/,$_);            my ($name,$url)=split(/\=/,$_);
Line 552  sub smpedt { Line 555  sub smpedt {
    } split(/\&/,$importdetail));     } split(/\&/,$importdetail));
   
    $idx=0;     $idx=0;
    my $targetwindow=join("\n",map {      my $targetwindow=       
          '<option value="0"> ------- Target Edit Map ------- </option>'.
        join("\n",map { 
        my ($name,$url)=split(/\:/,$resources[$_]);         my ($name,$url)=split(/\:/,$resources[$_]);
        unless ($name) {  $name=(split(/\//,$url))[-1]; }         unless ($name) {  $name=(split(/\//,$url))[-1]; }
        unless ($name) { $name='EMPTY'; }         unless ($name) { $name='EMPTY'; }
Line 693  function idxcheck(mode) { Line 698  function idxcheck(mode) {
 <body bgcolor='#FFFFFF'>  <body bgcolor='#FFFFFF'>
 $buttons  $buttons
 <font color=red>$errtext</font>  <font color=red>$errtext</font>
   <h1>$url</h1>
 <form name=simpleedit method=post>  <form name=simpleedit method=post>
 <input type=hidden name=forcesmp value=1>  <input type=hidden name=forcesmp value=1>
 <table>  <table>
Removed from v.1.28  
changed lines
  Added in v.1.30

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