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

Diff for /loncom/publisher/lonretrieve.pm between versions 1.17 and 1.21

version 1.17, 2002/05/29 18:25:17 version 1.21, 2003/02/03 18:03:53
Line 39 Line 39
 # 03/24,03/29 Gerd Kortemeyer)  # 03/24,03/29 Gerd Kortemeyer)
 #  #
 # 03/31,04/03,05/02,05/09,06/23,08/20 Gerd Kortemeyer  # 03/31,04/03,05/02,05/09,06/23,08/20 Gerd Kortemeyer
 # 12/16 Scott Harrison  
 #  #
 ###  ###
   
Line 93  sub phaseone { Line 92  sub phaseone {
                $r->print(                 $r->print(
                     '&nbsp;&nbsp;<a target=cat href="/adm/diff?filename=/~'.                      '&nbsp;&nbsp;<a target=cat href="/adm/diff?filename=/~'.
                         $uname.$fn.                          $uname.$fn.
                         '&versionone=priv&versiontwo='.$version.                          '&versiontwo=priv&versiontwo='.$version.
                         '">Diffs with Version '.$version.'</a>');                          '">Diffs with Version '.$version.'</a>');
            }             }
            $r->print('</a></td></tr>');             $r->print('</a></td></tr>');
Line 112  sub phaseone { Line 111  sub phaseone {
                $r->print(                 $r->print(
                     '&nbsp;&nbsp;<a target=cat href="/adm/diff?filename=/~'.                      '&nbsp;&nbsp;<a target=cat href="/adm/diff?filename=/~'.
                         $uname.$fn.                          $uname.$fn.
                         '&versionone=priv'.                          '&versiontwo=priv'.
                         '">Diffs with current Version</a>');                          '">Diffs with current Version</a>');
            }             }
            $r->print('</td></tr></table><p>'.             $r->print('</td></tr></table><p>'.
Line 177  sub handler { Line 176  sub handler {
 # Get query string for limited number of parameters  # Get query string for limited number of parameters
   
   &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
   ['filename');    ['filename']);
   
   if ($ENV{'form.filename'}) {    if ($ENV{'form.filename'}) {
       $fn=$ENV{'form.filename'};        $fn=$ENV{'form.filename'};
Line 215  sub handler { Line 214  sub handler {
   
   $r->print('<html><head><title>LON-CAPA Construction Space</title></head>');    $r->print('<html><head><title>LON-CAPA Construction Space</title></head>');
   
   $r->print(    $r->print(&Apache::loncommon::bodytag('Retrieve Published Resources'));
    '<body bgcolor="#FFFFFF"><img align=right src=/adm/lonIcons/lonlogos.gif>');  
   
       
   $r->print('<h1>Retrieve previous versions of <tt>'.$fn.'</tt></h1>');    $r->print('<h1>Retrieve previous versions of <tt>'.$fn.'</tt></h1>');
Removed from v.1.17  
changed lines
  Added in v.1.21

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