--- loncom/publisher/lonpublisher.pm 2000/11/30 23:01:41 1.7
+++ loncom/publisher/lonpublisher.pm 2000/12/02 20:55:16 1.11
@@ -5,7 +5,7 @@
#
# 05/29/00,05/30,10/11 Gerd Kortemeyer)
#
-# 11/28,11/29,11/30 Gerd Kortemeyer
+# 11/28,11/29,11/30,12/01,12/02 Gerd Kortemeyer
package Apache::lonpublisher;
@@ -14,10 +14,13 @@ use Apache::File;
use Apache::Constants qw(:common :http :methods);
use HTML::TokeParser;
use Apache::lonxml;
-use Apache::lonhomework;
+use Apache::structuretags;
+use Apache::response;
my %addid;
my %nokey;
+my %language;
+my %cprtag;
my %metadatafields;
my %metadatakeys;
@@ -46,7 +49,10 @@ sub metaeval {
}
} @{$token->[3]};
if ($metadatafields{$unikey}) {
- $metadatafields{$unikey}.=','.$parser->get_text('/'.$entry);
+ my $newentry=$parser->get_text('/'.$entry);
+ unless ($metadatafields{$unikey}=~/$newentry/) {
+ $metadatafields{$unikey}.=', '.$newentry;
+ }
} else {
$metadatafields{$unikey}=$parser->get_text('/'.$entry);
}
@@ -70,6 +76,28 @@ sub metaread {
return '
Processed file: '.$fn.'';
}
+sub textfield {
+ my ($title,$name,$value)=@_;
+ return "\n
$title:
".
+ '';
+}
+
+sub hiddenfield {
+ my ($name,$value)=@_;
+ return "\n".'';
+}
+
+sub selectbox {
+ my ($title,$name,$value,%options)=@_;
+ my $selout="\n
$title:
".'';
+}
+
sub publish {
my ($source,$target,$style)=@_;
@@ -81,7 +109,7 @@ sub publish {
'No write permission to user directory, FAIL';
}
print $logfile
-"\n\n================== Publish ".localtime()." =================\n";
+"\n\n================= Publish ".localtime()." Phase One ================\n";
if (($style eq 'ssi') || ($style eq 'rat')) {
# ------------------------------------------------------- This needs processing
@@ -201,15 +229,20 @@ sub publish {
# ---------------------------------------- Storage for metadata keys and fields
- %metadatafields=();
- %metadatakeys=();
+ %metadatafields=();
+ %metadatakeys=();
+
+ my %oldparmstores=();
# ------------------------------------------------ First, check out environment
-
+ unless (-e $source.'.meta') {
$metadatafields{'author'}=$ENV{'environment.firstname'}.' '.
$ENV{'environment.middlename'}.' '.
$ENV{'environment.lastname'}.' '.
$ENV{'environment.generation'};
+ $metadatafields{'author'}=~s/\s+/ /g;
+ $metadatafields{'author'}=~s/\s+$//;
+ $metadatafields{'owner'}=$ENV{'user.name'}.'@'.$ENV{'user.domain'};
# ------------------------------------------------ Check out directory hierachy
@@ -234,10 +267,10 @@ sub publish {
}
} keys %metadatafields;
+ } else {
# ---------------------- Read previous metafile, remember parameters and stores
$scrout.=&metaread($logfile,$source.'.meta');
- my %oldparmstores=();
map {
if (($_=~/^parameter/) || ($_=~/^stores/)) {
@@ -246,16 +279,11 @@ sub publish {
}
} keys %metadatafields;
-
+ }
# -------------------------------------------------- Parse content for metadata
- my $allmeta='';
- if ($source=~/\.problem$/) {
- $allmeta=Apache::lonhomework::subhandler('meta',$content);
- } else {
- $allmeta=Apache::lonxml::xmlparse('meta',$content);
- }
+ my $allmeta=Apache::lonxml::xmlparse('meta',$content);
&metaeval($allmeta);
# ---------------- Find and document discrepancies in the parameters and stores
@@ -290,13 +318,20 @@ sub publish {
$chparms;
}
-# DEBUG:
+# ------------------------------------------------------- Now have all metadata
- $scrout.=$allmeta;
+ $scrout.=
+ '