version 1.165, 2004/03/31 05:24:00
|
version 1.170, 2004/05/21 20:21:32
|
Line 126 use Apache::loncommon();
|
Line 126 use Apache::loncommon();
|
use Apache::lonmysql; |
use Apache::lonmysql; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::loncfile; |
use Apache::loncfile; |
use Apache::lonmeta; |
use LONCAPA::lonmetadata; |
use Apache::lonmsg; |
use Apache::lonmsg; |
use vars qw(%metadatafields %metadatakeys); |
use vars qw(%metadatafields %metadatakeys); |
|
|
Line 322 sub textfield {
|
Line 322 sub textfield {
|
$value=~s/\s+$//gs; |
$value=~s/\s+$//gs; |
$value=~s/\s+/ /gs; |
$value=~s/\s+/ /gs; |
$title=&mt($title); |
$title=&mt($title); |
|
$ENV{'form.'.$name}=$value; |
return "\n<p><font color=\"#800000\" face=\"helvetica\"><b>$title:". |
return "\n<p><font color=\"#800000\" face=\"helvetica\"><b>$title:". |
"</b></font></p><br />". |
"</b></font></p><br />". |
'<input type="text" name="'.$name.'" size=80 value="'.$value.'" />'; |
'<input type="text" name="'.$name.'" size=80 value="'.$value.'" />'; |
Line 329 sub textfield {
|
Line 330 sub textfield {
|
|
|
sub hiddenfield { |
sub hiddenfield { |
my ($name,$value)=@_; |
my ($name,$value)=@_; |
|
$ENV{'form.'.$name}=$value; |
return "\n".'<input type="hidden" name="'.$name.'" value="'.$value.'" />'; |
return "\n".'<input type="hidden" name="'.$name.'" value="'.$value.'" />'; |
} |
} |
|
|
Line 336 sub selectbox {
|
Line 338 sub selectbox {
|
my ($title,$name,$value,$functionref,@idlist)=@_; |
my ($title,$name,$value,$functionref,@idlist)=@_; |
$title=&mt($title); |
$title=&mt($title); |
$value=(split(/\s*,\s*/,$value))[-1]; |
$value=(split(/\s*,\s*/,$value))[-1]; |
|
if (defined($value)) { |
|
$ENV{'form.'.$name}=$value; |
|
} else { |
|
$ENV{'form.'.$name}=$idlist[0]; |
|
} |
my $selout="\n<p><font color=\"#800000\" face=\"helvetica\"><b>$title:". |
my $selout="\n<p><font color=\"#800000\" face=\"helvetica\"><b>$title:". |
'</b></font></p><br /><select name="'.$name.'">'; |
'</b></font></p><br /><select name="'.$name.'">'; |
foreach (@idlist) { |
foreach (@idlist) { |
Line 348 sub selectbox {
|
Line 355 sub selectbox {
|
return $selout.'</select>'; |
return $selout.'</select>'; |
} |
} |
|
|
|
sub select_level_form { |
|
my ($value,$name)=@_; |
|
$ENV{'form.'.$name}=$value; |
|
if (!defined($value)) { $ENV{'form.'.$name}=0; } |
|
return &Apache::loncommon::select_level_form($value,$name); |
|
} |
######################################### |
######################################### |
######################################### |
######################################### |
|
|
Line 809 sub store_metadata {
|
Line 822 sub store_metadata {
|
$metadata{'url'}."'"); |
$metadata{'url'}."'"); |
if ($#oldmeta==0) { |
if ($#oldmeta==0) { |
# yes, there is one old entry, transfer to newmetadata |
# yes, there is one old entry, transfer to newmetadata |
%newmetadata=&Apache::lonmeta::metadata_col_to_hash(@{$oldmeta[0]}); |
%newmetadata=&LONCAPA::lonmetadata::metadata_col_to_hash(@{$oldmeta[0]}); |
# remove old entry |
# remove old entry |
$status=&Apache::lonmysql::remove_from_table |
$status=&Apache::lonmysql::remove_from_table |
('metadata','url',$metadata{'url'}); |
('metadata','url',$metadata{'url'}); |
Line 1089 sub publish {
|
Line 1102 sub publish {
|
} |
} |
|
|
|
|
foreach (split(/\W+/,$metadatafields{'keywords'})) { |
foreach my $addkey (split(/[\"\'\,\;]/,$metadatafields{'keywords'})) { |
$keywords{$_}=1; |
$addkey=~s/\s+/ /g; |
|
$addkey=~s/^\s//; |
|
$addkey=~s/\s$//; |
|
if ($addkey=~/\w/) { |
|
$keywords{$addkey}=1; |
|
} |
} |
} |
# --------------------------------------------------- Now we also have keywords |
# --------------------------------------------------- Now we also have keywords |
# ============================================================================= |
# ============================================================================= |
# INTERACTIVE MODE |
# interactive mode html goes into $intr_scrout |
# |
# batch mode throws away this HTML |
unless ($batch) { |
# additionally all of the field functions have a by product of setting |
$scrout.= |
# $ENV{'from.'..} so that it can be used by the phase two handler in |
'<form name="pubform" action="/adm/publish" method="post">'. |
# batch mode |
'<p><input type="submit" value="'.&mt('Finalize Publication').'" /></p>'. |
|
&hiddenfield('phase','two'). |
my $intr_scrout.= |
&hiddenfield('filename',$ENV{'form.filename'}). |
'<form name="pubform" action="/adm/publish" method="post">'. |
&hiddenfield('allmeta',&Apache::lonnet::escape($allmeta)). |
'<p><input type="submit" value="'.&mt('Finalize Publication').'" /></p>'. |
&hiddenfield('dependencies',join(',',keys %allow)). |
&hiddenfield('phase','two'). |
&textfield('Title','title',$metadatafields{'title'}). |
&hiddenfield('filename',$ENV{'form.filename'}). |
&textfield('Author(s)','author',$metadatafields{'author'}). |
&hiddenfield('allmeta',&Apache::lonnet::escape($allmeta)). |
&textfield('Subject','subject',$metadatafields{'subject'}); |
&hiddenfield('dependencies',join(',',keys %allow)). |
|
&textfield('Title','title',$metadatafields{'title'}). |
|
&textfield('Author(s)','author',$metadatafields{'author'}). |
|
&textfield('Subject','subject',$metadatafields{'subject'}); |
|
|
# --------------------------------------------------- Scan content for keywords |
# --------------------------------------------------- Scan content for keywords |
|
|
my $keywords_help = Apache::loncommon::help_open_topic("Publishing_Keywords"); |
my $keywords_help = Apache::loncommon::help_open_topic("Publishing_Keywords"); |
my $KEYWORDS=&mt('Keywords'); |
my $KEYWORDS=&mt('Keywords'); |
my $CheckAll=&mt('check all'); |
my $CheckAll=&mt('check all'); |
my $UncheckAll=&mt('uncheck all'); |
my $UncheckAll=&mt('uncheck all'); |
my $keywordout=<<"END"; |
my $keywordout=<<"END"; |
<script> |
<script> |
function checkAll(field) { |
function checkAll(field) { |
for (i = 0; i < field.length; i++) |
for (i = 0; i < field.length; i++) |
Line 1133 function uncheckAll(field) {
|
Line 1154 function uncheckAll(field) {
|
</p> |
</p> |
<br /> |
<br /> |
END |
END |
$keywordout.='<table border="2"><tr>'; |
$keywordout.='<table border="2"><tr>'; |
my $colcount=0; |
my $colcount=0; |
|
|
foreach (sort keys %keywords) { |
foreach (sort keys %keywords) { |
$keywordout.='<td><input type="checkbox" name="keywords" value="'.$_.'"'; |
$keywordout.='<td><input type="checkbox" name="keywords" value="'.$_.'"'; |
if ($metadatafields{'keywords'}) { |
if ($metadatafields{'keywords'}) { |
if ($metadatafields{'keywords'}=~/\Q$_\E/) { |
if ($metadatafields{'keywords'}=~/\Q$_\E/) { |
$keywordout.=' checked="on"'; |
|
} |
|
} elsif (&Apache::loncommon::keyword($_)) { |
|
$keywordout.=' checked="on"'; |
$keywordout.=' checked="on"'; |
|
$ENV{'form.keywords'}.=$_.','; |
} |
} |
$keywordout.=' />'.$_.'</td>'; |
} elsif (&Apache::loncommon::keyword($_)) { |
if ($colcount>10) { |
$keywordout.=' checked="on"'; |
$keywordout.="</tr><tr>\n"; |
$ENV{'form.keywords'}.=$_.','; |
$colcount=0; |
} |
} |
$keywordout.=' />'.$_.'</td>'; |
$colcount++; |
if ($colcount>10) { |
|
$keywordout.="</tr><tr>\n"; |
|
$colcount=0; |
} |
} |
|
$colcount++; |
|
} |
|
$ENV{'form.keywords'}=~s/\,$//; |
|
|
$keywordout.='</tr></table>'; |
$keywordout.='</tr></table>'; |
|
|
$scrout.=$keywordout; |
$intr_scrout.=$keywordout; |
|
|
$scrout.=&textfield('Additional Keywords','addkey',''); |
$intr_scrout.=&textfield('Additional Keywords','addkey',''); |
|
|
$scrout.=&textfield('Notes','notes',$metadatafields{'notes'}); |
$intr_scrout.=&textfield('Notes','notes',$metadatafields{'notes'}); |
|
|
$scrout.= |
$intr_scrout.= |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>".&mt('Abstract').":". |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>".&mt('Abstract').":". |
"</b></font></p><br />". |
"</b></font></p><br />". |
'<textarea cols="80" rows="5" name="abstract">'. |
'<textarea cols="80" rows="5" name="abstract">'. |
$metadatafields{'abstract'}.'</textarea></p>'; |
$metadatafields{'abstract'}.'</textarea></p>'; |
|
|
$source=~/\.(\w+)$/; |
$source=~/\.(\w+)$/; |
|
|
|
|
$scrout.= |
$intr_scrout.= |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>". |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>". |
&mt('Lowest Grade Level').':'. |
&mt('Lowest Grade Level').':'. |
"</b></font></p><br />". |
"</b></font></p><br />". |
&Apache::loncommon::select_level_form($metadatafields{'lowestgradelevel'},'lowestgradelevel'). |
&select_level_form($metadatafields{'lowestgradelevel'},'lowestgradelevel'). |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>". |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>". |
&mt('Highest Grade Level').':'. |
&mt('Highest Grade Level').':'. |
"</b></font></p><br />". |
"</b></font></p><br />". |
&Apache::loncommon::select_level_form($metadatafields{'highestgradelevel'},'highestgradelevel'). |
&select_level_form($metadatafields{'highestgradelevel'},'highestgradelevel'). |
&textfield('Standards','standards',$metadatafields{'standards'}); |
&textfield('Standards','standards',$metadatafields{'standards'}); |
|
|
|
|
|
|
|
|
$scrout.=&hiddenfield('mime',$1); |
$intr_scrout.=&hiddenfield('mime',$1); |
|
|
my $defaultlanguage=$metadatafields{'language'}; |
my $defaultlanguage=$metadatafields{'language'}; |
$defaultlanguage =~ s/\s*notset\s*//g; |
$defaultlanguage =~ s/\s*notset\s*//g; |
$defaultlanguage =~ s/^,\s*//g; |
$defaultlanguage =~ s/^,\s*//g; |
$defaultlanguage =~ s/,\s*$//g; |
$defaultlanguage =~ s/,\s*$//g; |
|
|
$scrout.=&selectbox('Language','language', |
$intr_scrout.=&selectbox('Language','language', |
$defaultlanguage, |
$defaultlanguage, |
\&Apache::loncommon::languagedescription, |
\&Apache::loncommon::languagedescription, |
(&Apache::loncommon::languageids), |
(&Apache::loncommon::languageids), |
); |
); |
|
|
unless ($metadatafields{'creationdate'}) { |
unless ($metadatafields{'creationdate'}) { |
$metadatafields{'creationdate'}=time; |
$metadatafields{'creationdate'}=time; |
} |
} |
$scrout.=&hiddenfield('creationdate', |
$intr_scrout.=&hiddenfield('creationdate', |
&Apache::lonmysql::unsqltime($metadatafields{'creationdate'})); |
&Apache::lonmysql::unsqltime($metadatafields{'creationdate'})); |
|
|
$scrout.=&hiddenfield('lastrevisiondate',time); |
$intr_scrout.=&hiddenfield('lastrevisiondate',time); |
|
|
|
|
$scrout.=&textfield('Publisher/Owner','owner', |
$intr_scrout.=&textfield('Publisher/Owner','owner', |
$metadatafields{'owner'}); |
$metadatafields{'owner'}); |
|
|
# -------------------------------------------------- Correct copyright for rat. |
# -------------------------------------------------- Correct copyright for rat. |
my $defaultoption=$metadatafields{'copyright'}; |
my $defaultoption=$metadatafields{'copyright'}; |
unless ($defaultoption) { $defaultoption='default'; } |
unless ($defaultoption) { $defaultoption='default'; } |
unless ($style eq 'prv') { |
unless ($style eq 'prv') { |
if ($style eq 'rat') { |
if ($style eq 'rat') { |
if ($metadatafields{'copyright'} eq 'public') { |
if ($metadatafields{'copyright'} eq 'public') { |
delete $metadatafields{'copyright'}; |
delete $metadatafields{'copyright'}; |
$defaultoption='default'; |
$defaultoption='default'; |
} |
} |
$scrout.=&selectbox('Copyright/Distribution','copyright', |
$intr_scrout.=&selectbox('Copyright/Distribution','copyright', |
$defaultoption, |
$defaultoption, |
\&Apache::loncommon::copyrightdescription, |
\&Apache::loncommon::copyrightdescription, |
(grep !/^public$/,(&Apache::loncommon::copyrightids))); |
(grep !/^public$/,(&Apache::loncommon::copyrightids))); |
} else { |
} else { |
$scrout.=&selectbox('Copyright/Distribution','copyright', |
$intr_scrout.=&selectbox('Copyright/Distribution','copyright', |
$defaultoption, |
$defaultoption, |
\&Apache::loncommon::copyrightdescription, |
\&Apache::loncommon::copyrightdescription, |
(&Apache::loncommon::copyrightids)); |
(&Apache::loncommon::copyrightids)); |
Line 1231 END
|
Line 1255 END
|
|
|
my $copyright_help = |
my $copyright_help = |
Apache::loncommon::help_open_topic('Publishing_Copyright'); |
Apache::loncommon::help_open_topic('Publishing_Copyright'); |
$scrout =~ s/DISTRIBUTION:/'DISTRIBUTION: ' . $copyright_help/ge; |
$intr_scrout =~ s/DISTRIBUTION:/'DISTRIBUTION: ' . $copyright_help/ge; |
$scrout.=&textfield('Custom Distribution File','customdistributionfile', |
$intr_scrout.=&textfield('Custom Distribution File','customdistributionfile', |
$metadatafields{'customdistributionfile'}). |
$metadatafields{'customdistributionfile'}). |
$copyright_help; |
$copyright_help; |
my $uctitle=&mt('Obsolete'); |
my $uctitle=&mt('Obsolete'); |
$scrout.= |
$intr_scrout.= |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:". |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:". |
'</b></font> <input type="checkbox" name="obsolete" '; |
'</b></font> <input type="checkbox" name="obsolete" '; |
if ($metadatafields{'obsolete'}) { |
if ($metadatafields{'obsolete'}) { |
$scrout.=' checked="1" '; |
$intr_scrout.=' checked="1" '; |
} |
} |
$scrout.='/ ></p>'. |
$intr_scrout.='/ ></p>'. |
&textfield('Suggested Replacement for Obsolete File', |
&textfield('Suggested Replacement for Obsolete File', |
'obsoletereplacement', |
'obsoletereplacement', |
$metadatafields{'obsoletereplacement'}); |
$metadatafields{'obsoletereplacement'}); |
} else { |
} else { |
$scrout.=&hiddenfield('copyright','private'); |
$intr_scrout.=&hiddenfield('copyright','private'); |
} |
|
return ($scrout.'<p><input type="submit" value="'. |
|
&mt('Finalize Publication').'" /></p></form>',0); |
|
# ============================================================================= |
|
# BATCH MODE |
|
# |
|
} else { |
|
# Transfer metadata directly to environment for stage 2 |
|
foreach (keys %metadatafields) { |
|
$ENV{'form.'.$_}=$metadatafields{$_}; |
|
} |
} |
$ENV{'form.addkey'}=''; |
if (!$batch) { |
$ENV{'form.keywords'}=''; |
$scrout.=$intr_scrout.'<p><input type="submit" value="'. |
foreach (keys %keywords) { |
&mt('Finalize Publication').'" /></p></form>'; |
if ($metadatafields{'keywords'}) { |
|
if ($metadatafields{'keywords'}=~/\Q$_\E/) { |
|
$ENV{'form.keywords'}.=$_.','; |
|
} |
|
} elsif (&Apache::loncommon::keyword($_)) { |
|
$ENV{'form.keywords'}.=$_.','; |
|
} |
|
} |
|
$ENV{'form.keywords'}=~s/\,$//; |
|
unless ($ENV{'form.creationdate'}) { $ENV{'form.creationdate'}=time; } |
|
$ENV{'form.lastrevisiondate'}=time; |
|
if ((($style eq 'rat') && ($ENV{'form.copyright'} eq 'public')) || |
|
(!$ENV{'form.copyright'})) { |
|
$ENV{'form.copyright'}='default'; |
|
} |
|
$ENV{'form.allmeta'}=&Apache::lonnet::escape($allmeta); |
|
return ($scrout,0); |
|
} |
} |
|
return($scrout,0); |
} |
} |
|
|
######################################### |
######################################### |
Line 1345 sub phasetwo {
|
Line 1343 sub phasetwo {
|
|
|
%metadatafields=(); |
%metadatafields=(); |
%metadatakeys=(); |
%metadatakeys=(); |
|
|
&metaeval(&Apache::lonnet::unescape($ENV{'form.allmeta'})); |
&metaeval(&Apache::lonnet::unescape($ENV{'form.allmeta'})); |
|
|
$metadatafields{'title'}=$ENV{'form.title'}; |
$metadatafields{'title'}=$ENV{'form.title'}; |
Line 1380 sub phasetwo {
|
Line 1378 sub phasetwo {
|
$allkeywords .= ','.$ENV{'form.keywords'}; |
$allkeywords .= ','.$ENV{'form.keywords'}; |
} |
} |
} |
} |
$allkeywords=~s/\W+/\,/; |
$allkeywords=~s/[\"\']//g; |
$allkeywords=~s/^\,//; |
$allkeywords=~s/\s*[\;\,]\s*/\,/g; |
|
$allkeywords=~s/\s+/ /g; |
|
$allkeywords=~s/^[ \,]//; |
|
$allkeywords=~s/[ \,]$//; |
$metadatafields{'keywords'}=$allkeywords; |
$metadatafields{'keywords'}=$allkeywords; |
|
|
# check if custom distribution file is specified |
# check if custom distribution file is specified |