--- loncom/publisher/lonpublisher.pm 2008/05/19 18:43:16 1.236
+++ loncom/publisher/lonpublisher.pm 2008/06/27 18:52:35 1.238
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Publication Handler
#
-# $Id: lonpublisher.pm,v 1.236 2008/05/19 18:43:16 www Exp $
+# $Id: lonpublisher.pm,v 1.238 2008/06/27 18:52:35 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -331,9 +331,9 @@ sub textfield {
$value=~s/\s+/ /gs;
$title=&mt($title);
$env{'form.'.$name}=$value;
- return "\n
$title:".
- "
".
- '';
+ return "\n".&Apache::lonhtmlcommon::row_title($title)
+ .''
+ .&Apache::lonhtmlcommon::row_closure();
}
sub text_with_browse_field {
@@ -343,12 +343,16 @@ sub text_with_browse_field {
$value=~s/\s+/ /gs;
$title=&mt($title);
$env{'form.'.$name}=$value;
- return "\n$title:".
- "
".
- ''.
- ''.&mt('Select').' '.
- ''.&mt('Search').'';
-
+ return "\n".&Apache::lonhtmlcommon::row_title($title)
+ .''
+ .'
'
+ .''
+ .&mt('Select')
+ .' '
+ .''
+ .&mt('Search')
+ .''
+ .&Apache::lonhtmlcommon::row_closure();
}
sub hiddenfield {
@@ -372,8 +376,8 @@ sub selectbox {
} else {
$env{'form.'.$name}=$idlist[0];
}
- my $selout="\n$title:".
- '
'.&Apache::lonhtmlcommon::row_closure();
+ return $selout;
}
sub select_level_form {
@@ -850,8 +855,7 @@ sub store_metadata {
return ($error,undef);
}
my $dbh = &Apache::lonmysql::get_dbh();
- if (($metadata{'obsolete'}) || ($metadata{'copyright'} eq 'priv') ||
- ($metadata{'copyright'} eq 'custom')) {
+ if (($metadata{'obsolete'}) || ($metadata{'copyright'} eq 'priv')) {
# remove this entry
my $delitem = 'url = '.$dbh->quote($metadata{'url'});
$status = &LONCAPA::lonmetadata::delete_metadata($dbh,undef,$delitem);
@@ -1191,9 +1195,16 @@ sub publish {
# $env{'from.'..} so that it can be used by the phase two handler in
# batch mode
- my $intr_scrout.=
- '';
+ $scrout.=$intr_scrout
+ .&Apache::lonhtmlcommon::row_title()
+ .''.&Apache::lonhtmlcommon::row_closure()
+ .''
+ .&Apache::lonhtmlcommon::end_pick_box();
}
return($scrout,0);
}
@@ -1711,7 +1719,7 @@ sub phasetwo {
$r->print(
'
'.
&mt('View Published Version').''.
- ''.
+ ''.
&mt('Back to Source').'
'.
''.