[BACK]Return to lonretrieve.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonretrieve.pm between versions 1.2 and 1.3

version 1.2, 2001/04/03 18:12:57 version 1.3, 2001/04/03 21:12:39
Line 11 Line 11
 # 03/23 Guy Albertelli  # 03/23 Guy Albertelli
 # 03/24,03/29 Gerd Kortemeyer)  # 03/24,03/29 Gerd Kortemeyer)
 #  #
 # 03/31 Gerd Kortemeyer  # 03/31,04/03 Gerd Kortemeyer
   
 package Apache::lonretrieve;  package Apache::lonretrieve;
   
Line 24  sub phaseone { Line 24  sub phaseone {
     my ($r,$fn,$uname,$udom)=@_;      my ($r,$fn,$uname,$udom)=@_;
     my $docroot=$r->dir_config('lonDocRoot');      my $docroot=$r->dir_config('lonDocRoot');
   
     my $resdir=$docroot.'/res/'.$udom.'/'.$uname.$fn;      my $urldir='/res/'.$udom.'/'.$uname.$fn;
       $urldir=~s/\/[^\/]+$/\//;
   
       my $resfn=$docroot.'/res/'.$udom.'/'.$uname.$fn;
       my $resdir=$resfn;
     $resdir=~s/\/[^\/]+$/\//;      $resdir=~s/\/[^\/]+$/\//;
   
     $fn=~/^\/(.+)\.(\w+)$/;      $fn=~/^\/(.+)\.(\w+)$/;
     my $main=$1;      my $main=$1;
     my $suffix=$2;      my $suffix=$2;
         
       $r->print('<form action=/adm/retrieve method=post>'.
         '<input type=hidden name=filename value="'.$fn.'">'.
                 '<input type=hidden name=phase value=two>'.
                 '<table border=2><tr><th>Select</th><th>Version</th>'.
                 '<th>Became this version on ...</th>'.
                 '<th>Metadata</th></tr>');
     my $filename;      my $filename;
     opendir(DIR,$resdir);      opendir(DIR,$resdir);
     while ($filename=readdir(DIR)) {      while ($filename=readdir(DIR)) {
         if ($filename=~/^$main\.(\d+)\.$suffix$/) {          if ($filename=~/^$main\.(\d+)\.$suffix$/) {
            $r->print($resdir.' = '.$filename.'<br>');     my $version=$1;
              my ($rdev,$rino,$rmode,$rnlink,
                   $ruid,$rgid,$rrdev,$rsize,
                   $ratime,$rmtime,$rctime,
                   $rblksize,$rblocks)=stat($resdir.'/'.$filename);
              $r->print('<tr><td><input type=radio name=version value="'.
                        $version.'"></td><th>'.$version.'</th><td>'.
                        localtime($rmtime).'</td><td>'.
                        '<a href="'.$urldir.$filename.'.meta" target=cat>'.
                        'Metadata Version '.$version.'</a></td></tr>');
         }          }
     }      }
     closedir(DIR);      closedir(DIR);
       my ($rdev,$rino,$rmode,$rnlink,
           $ruid,$rgid,$rrdev,$rsize,
           $ratime,$rmtime,$rctime,
           $rblksize,$rblocks)=stat($resfn);
       $r->print('<tr><td><input type=radio name=version value="new"></td>'.
                 '<th>Current</th><td>'.localtime($rmtime).
              '</td><td><a href="'.$urldir.$main.'.'.$suffix.'.meta" target=cat>'.
                 'Metadata current version</a></td></tr></table><p>'.
              '<input type=submit value="Retrieve version"></form>');
 }  }
   
 sub handler {  sub handler {
Removed from v.1.2  
changed lines
  Added in v.1.3

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