[LON-CAPA-cvs] cvs: loncom /publisher lonpublisher.pm source_copyright.tab
taceyjo1
lon-capa-cvs@mail.lon-capa.org
Fri, 11 Jun 2004 02:27:27 -0000
taceyjo1 Thu Jun 10 22:27:27 2004 EDT
Added files:
/loncom/publisher source_copyright.tab
Modified files:
/loncom/publisher lonpublisher.pm
Log:
More Bug #78 with new description file.. <sprays more stylepolice-repellant>
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.170 loncom/publisher/lonpublisher.pm:1.171
--- loncom/publisher/lonpublisher.pm:1.170 Fri May 21 16:21:32 2004
+++ loncom/publisher/lonpublisher.pm Thu Jun 10 22:27:27 2004
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Publication Handler
#
-# $Id: lonpublisher.pm,v 1.170 2004/05/21 20:21:32 www Exp $
+# $Id: lonpublisher.pm,v 1.171 2004/06/11 02:27:27 taceyjo1 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1259,6 +1259,12 @@
$intr_scrout.=&textfield('Custom Distribution File','customdistributionfile',
$metadatafields{'customdistributionfile'}).
$copyright_help;
+ $intr_scrout.=&selectbox('Source Distribution','sourceavail',
+ $defaultoption,
+ \&Apache::loncommon::source_copyrightdescription,
+ (&Apache::loncommon::source_copyrightids));
+ $intr_scrout.=&textfield('Source Custom Distribution File','sourcerights',
+ $metadatafields{'sourcerights'});
my $uctitle=&mt('Obsolete');
$intr_scrout.=
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:".
@@ -1362,6 +1368,7 @@
$metadatafields{'highestgradelevel'}=$ENV{'form.highestgradelevel'};
$metadatafields{'customdistributionfile'}=
$ENV{'form.customdistributionfile'};
+ $metadatafields{'sourceavail'}=$ENV{'form.sourceavail'};
$metadatafields{'obsolete'}=$ENV{'form.obsolete'};
$metadatafields{'obsoletereplacement'}=
$ENV{'form.obsoletereplacement'};
Index: loncom/publisher/source_copyright.tab
+++ loncom/publisher/source_copyright.tab
open Open - Problem source is open to people who want to use it
closed Closed - Problem source is closed to everyone
custom Custom - Access is based on custom rights file (COMMING SOON!)