version 1.155, 2003/12/27 16:58:36
|
version 1.158, 2003/12/29 21:17:00
|
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 vars qw(%metadatafields %metadatakeys); |
use vars qw(%metadatafields %metadatakeys); |
|
|
my %addid; |
my %addid; |
Line 316 sub textfield {
|
Line 317 sub textfield {
|
$value=~s/\s+$//gs; |
$value=~s/\s+$//gs; |
$value=~s/\s+/ /gs; |
$value=~s/\s+/ /gs; |
$title=&mt($title); |
$title=&mt($title); |
my $uctitle=uc($title); |
return "\n<p><font color=\"#800000\" face=\"helvetica\"><b>$title:". |
return "\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:". |
|
"</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 330 sub hiddenfield {
|
Line 330 sub hiddenfield {
|
sub selectbox { |
sub selectbox { |
my ($title,$name,$value,$functionref,@idlist)=@_; |
my ($title,$name,$value,$functionref,@idlist)=@_; |
$title=&mt($title); |
$title=&mt($title); |
my $uctitle=uc($title); |
|
$value=(split(/\s*,\s*/,$value))[-1]; |
$value=(split(/\s*,\s*/,$value))[-1]; |
my $selout="\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:". |
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) { |
$selout.='<option value=\''.$_.'\''; |
$selout.='<option value=\''.$_.'\''; |
Line 799 sub store_metadata {
|
Line 798 sub store_metadata {
|
$metadata{'sequsage'}=$metadata{'usage'}; |
$metadata{'sequsage'}=$metadata{'usage'}; |
$metadata{'sequsage_list'}=$metadata{'usage_list'}; |
$metadata{'sequsage_list'}=$metadata{'usage_list'}; |
my %newmetadata=(); |
my %newmetadata=(); |
# retrieve current database column names |
|
my @columns=&Apache::lonmysql::col_order('metadata'); |
|
# see if we have old entries |
# see if we have old entries |
my @oldmeta=&Apache::lonmysql::get_rows('metadata', |
my @oldmeta=&Apache::lonmysql::get_rows('metadata', |
"url LIKE BINARY '". |
"url LIKE BINARY '". |
$metadata{'url'}."'"); |
$metadata{'url'}."'"); |
if ($#oldmeta==0) { |
if ($#oldmeta==0) { |
# there is an old value |
# yes, there is one old entry, transfer to newmetadata |
for (my $i=0; $i<=$#columns; $i++) { |
%newmetadata=&Apache::lonmeta::metadata_col_to_hash(@{$oldmeta[0]}); |
$newmetadata{$columns[$i]}=$oldmeta[0]->[$i]; |
|
} |
|
# 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 1115 sub publish {
|
Line 1110 sub publish {
|
# --------------------------------------------------- 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"; |
Line 1166 END
|
Line 1161 END
|
$scrout.=&textfield('Notes','notes',$metadatafields{'notes'}); |
$scrout.=&textfield('Notes','notes',$metadatafields{'notes'}); |
|
|
$scrout.= |
$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>'; |
Line 1176 END
|
Line 1171 END
|
|
|
$scrout.= |
$scrout.= |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>". |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>". |
uc(&mt('Lowest Grade Level:')). |
&mt('Lowest Grade Level').':'. |
"</b></font></p><br />". |
"</b></font></p><br />". |
&Apache::loncommon::select_level_form($metadatafields{'lowestgradelevel'},'lowestgradelevel'). |
&Apache::loncommon::select_level_form($metadatafields{'lowestgradelevel'},'lowestgradelevel'). |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>". |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>". |
uc(&mt('Highest Grade Level:')). |
&mt('Highest Grade Level').':'. |
"</b></font></p><br />". |
"</b></font></p><br />". |
&Apache::loncommon::select_level_form($metadatafields{'highestgradelevel'},'highestgradelevel'). |
&Apache::loncommon::select_level_form($metadatafields{'highestgradelevel'},'highestgradelevel'). |
&textfield('Standards','standards',$metadatafields{'standards'}); |
&textfield('Standards','standards',$metadatafields{'standards'}); |
Line 1239 END
|
Line 1234 END
|
$scrout.=&textfield('Custom Distribution File','customdistributionfile', |
$scrout.=&textfield('Custom Distribution File','customdistributionfile', |
$metadatafields{'customdistributionfile'}). |
$metadatafields{'customdistributionfile'}). |
$copyright_help; |
$copyright_help; |
my $uctitle=uc(&mt('Obsolete')); |
my $uctitle=&mt('Obsolete'); |
$scrout.= |
$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" '; |
Line 1652 sub publishdirectory {
|
Line 1647 sub publishdirectory {
|
my $resdir= |
my $resdir= |
$Apache::lonnet::perlvar{'lonDocRoot'}.'/res/'.$cudom.'/'.$cuname.'/'. |
$Apache::lonnet::perlvar{'lonDocRoot'}.'/res/'.$cudom.'/'.$cuname.'/'. |
$thisdisfn; |
$thisdisfn; |
$r->print('<h1>Directory <tt>'.$thisdisfn.'</tt></h1>'. |
$r->print('<h1>'.&mt('Directory').' <tt>'.$thisdisfn.'</tt></h1>'. |
'Target: <tt>'.$resdir.'</tt><br />'); |
&mt('Target').': <tt>'.$resdir.'</tt><br />'); |
|
|
my $dirptr=16384; # Mask indicating a directory in stat.cmode. |
my $dirptr=16384; # Mask indicating a directory in stat.cmode. |
|
|
Line 1691 sub publishdirectory {
|
Line 1686 sub publishdirectory {
|
if ($publishthis) { |
if ($publishthis) { |
&batchpublish($r,$fn.'/'.$filename,$resdir.'/'.$filename); |
&batchpublish($r,$fn.'/'.$filename,$resdir.'/'.$filename); |
} else { |
} else { |
$r->print('<br />Skipping '.$filename.'<br />'); |
$r->print('<br />'.&mt('Skipping').' '.$filename.'<br />'); |
} |
} |
$r->rflush(); |
$r->rflush(); |
} |
} |