--- loncom/publisher/lonpublisher.pm	2010/01/06 04:19:20	1.265.2.1
+++ loncom/publisher/lonpublisher.pm	2010/05/27 18:27:43	1.266
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.265.2.1 2010/01/06 04:19:20 raeburn Exp $
+# $Id: lonpublisher.pm,v 1.266 2010/05/27 18:27:43 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1223,12 +1223,14 @@ sub publish {
     my $intr_scrout.='<br />'
                     .'<form name="pubform" action="/adm/publish" method="post">';
     unless ($env{'form.makeobsolete'}) {
+       my $thissrc=$source;
+       $thissrc=~s{^/home/($match_username)/public_html}{/priv/$1};
        $intr_scrout.='<p class="LC_warning">'
                     .&mt('Searching for your resource will be based on the following metadata. Please provide as much data as possible.')
                     .'</p>'
                     .'<p><input type="submit" value="'
                     .&mt('Finalize Publication')
-                    .'" /></p>';
+                    .'" /> <a href="'.$thissrc.'">'.&mt('Cancel').'</a></p>';
     }
     $intr_scrout.=&Apache::lonhtmlcommon::start_pick_box();
     $intr_scrout.=
@@ -1729,8 +1731,6 @@ sub phasetwo {
     
 # ---------------------------------------------- Delete local tmp-preview files
     unlink($copyfile.'.tmp');
-#  ---------------------------- Delete local GCI Test Assembly tn-preview files
-    unlink($copyfile.'.tn');
 # --------------------------------------------------------------- Copy Metadata
 
     $copyfile=$copyfile.'.meta';