version 1.246, 2008/08/19 10:43:59
|
version 1.251, 2009/02/11 11:49:22
|
Line 695 sub fix_ids_and_indices {
|
Line 695 sub fix_ids_and_indices {
|
$responsecounter=0; |
$responsecounter=0; |
} |
} |
if ($lctag=~/response$/) { $responsecounter++; } |
if ($lctag=~/response$/) { $responsecounter++; } |
|
if ($lctag eq 'import') { $responsecounter++; } |
my %parms=%{$token->[2]}; |
my %parms=%{$token->[2]}; |
$counter=$addid{$tag}; |
$counter=$addid{$tag}; |
if (!$counter) { $counter=$addid{$lctag}; } |
if (!$counter) { $counter=$addid{$lctag}; } |
Line 873 sub store_metadata {
|
Line 874 sub store_metadata {
|
} |
} |
if (defined($status) && $status ne '') { |
if (defined($status) && $status ne '') { |
$error='<span class="LC_error">' |
$error='<span class="LC_error">' |
.&mt('Error occured saving new values in metadata table in LON-CAPA database!') |
.&mt('Error occurred saving new values in metadata table in LON-CAPA database!') |
.'</span>'; |
.'</span>'; |
&Apache::lonnet::logthis($error); |
&Apache::lonnet::logthis($error); |
&Apache::lonnet::logthis($status); |
&Apache::lonnet::logthis($status); |
Line 947 backup copies, performs any automatic pr
|
Line 948 backup copies, performs any automatic pr
|
especially for rat and ssi files), |
especially for rat and ssi files), |
|
|
Returns a 2 element array, the first is the string to be shown to the |
Returns a 2 element array, the first is the string to be shown to the |
user, the second is an error code, either 1 (an error occured) or 0 |
user, the second is an error code, either 1 (an error occurred) or 0 |
(no error occurred) |
(no error occurred) |
|
|
I<Additional documentation needed.> |
I<Additional documentation needed.> |
Line 1260 END
|
Line 1261 END
|
.'<input type="button" value="'.&mt('check all').'" onclick="javascript:checkAll(document.pubform.keywords)" />' |
.'<input type="button" value="'.&mt('check all').'" onclick="javascript:checkAll(document.pubform.keywords)" />' |
.'<input type="button" value="'.&mt('uncheck all').'" onclick="javascript:uncheckAll(document.pubform.keywords)" />' |
.'<input type="button" value="'.&mt('uncheck all').'" onclick="javascript:uncheckAll(document.pubform.keywords)" />' |
.'</p><br />' |
.'</p><br />' |
.&Apache::loncommon::start_data_table() |
.&Apache::loncommon::start_data_table(); |
.&Apache::loncommon::start_data_table_row(); |
my $cols_per_row = 10; |
|
|
my $colcount=0; |
my $colcount=0; |
|
my $wordcount=0; |
|
my $numkeywords = scalar(keys(%keywords)); |
|
|
foreach (sort keys %keywords) { |
foreach my $word (sort(keys(%keywords))) { |
$colcount++; |
if ($colcount == 0) { |
$keywordout.='<td><label><input type="checkbox" name="keywords" value="'.$_.'"'; |
$keywordout .= &Apache::loncommon::start_data_table_row(); |
if ($metadatafields{'keywords'}) { |
} |
if ($metadatafields{'keywords'}=~/\Q$_\E/) { |
$colcount++; |
$keywordout.=' checked="on"'; |
$wordcount++; |
$env{'form.keywords'}.=$_.','; |
if (($wordcount == $numkeywords) && ($colcount < $cols_per_row)) { |
} |
my $colspan = 1+$cols_per_row-$colcount; |
} elsif (&Apache::loncommon::keyword($_)) { |
$keywordout .= '<td colspan="'.$colspan.'">'; |
$keywordout.=' checked="on"'; |
} else { |
$env{'form.keywords'}.=$_.','; |
$keywordout .= '<td>'; |
} |
} |
$keywordout.=' />'.$_.'</label></td>'; |
$keywordout.='<label><input type="checkbox" name="keywords" value="'.$word.'"'; |
if ($colcount>=10) { |
if ($metadatafields{'keywords'}) { |
$keywordout.=&Apache::loncommon::end_data_table_row() |
if ($metadatafields{'keywords'}=~/\Q$word\E/) { |
.&Apache::loncommon::start_data_table_row(); |
$keywordout.=' checked="on"'; |
$colcount=0; |
$env{'form.keywords'}.=$word.','; |
} |
} |
} |
} elsif (&Apache::loncommon::keyword($word)) { |
# Proper end of started table row: |
$keywordout.=' checked="on"'; |
if ($colcount != 0) { # has still to be improved: if amount of keywords mod 10 == 0, then do not start another table row |
$env{'form.keywords'}.=$word.','; |
while ($colcount<10) { |
} |
$keywordout.='<td> </td>'; |
$keywordout.=' />'.$word.'</label></td>'; |
$colcount++; |
if ($colcount == $cols_per_row) { |
|
$keywordout.=&Apache::loncommon::end_data_table_row(); |
|
$colcount=0; |
} |
} |
} |
} |
|
if ($colcount > 0) { |
|
$keywordout .= &Apache::loncommon::end_data_table_row(); |
|
} |
|
|
$env{'form.keywords'}=~s/\,$//; |
$env{'form.keywords'}=~s/\,$//; |
|
|
Line 1871 sub publishdirectory {
|
Line 1878 sub publishdirectory {
|
&checkbox('pubrec','include subdirectories'). |
&checkbox('pubrec','include subdirectories'). |
&checkbox('forcerepub','force republication of previously published files'). |
&checkbox('forcerepub','force republication of previously published files'). |
&checkbox('obsolete','make file(s) obsolete'). |
&checkbox('obsolete','make file(s) obsolete'). |
&checkbox('forceoverride','force directory level catalog information over existing'). |
&checkbox('forceoverride','force directory level metadata over existing'). |
'<br /><input type="submit" value="'.&mt('Publish Directory').'" /></form>'); |
'<br /><input type="submit" value="'.&mt('Publish Directory').'" /></form>'); |
$lock=0; |
$lock=0; |
} else { |
} else { |
Line 1942 sub defaultmetapublish {
|
Line 1949 sub defaultmetapublish {
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
|
|
$r->print(&Apache::loncommon::start_page('Catalog Information Publication')); |
$r->print(&Apache::loncommon::start_page('Metadata Publication')); |
|
|
# ---------------------------------------------------------------- Write Source |
# ---------------------------------------------------------------- Write Source |
my $copyfile=$target; |
my $copyfile=$target; |
Line 1977 sub defaultmetapublish {
|
Line 1984 sub defaultmetapublish {
|
# ------------------------------------------------------------------- Link back |
# ------------------------------------------------------------------- Link back |
my $link=$fn; |
my $link=$fn; |
$link=~s/^\/home\/$cuname\/public_html\//\/priv\/$cuname\//; |
$link=~s/^\/home\/$cuname\/public_html\//\/priv\/$cuname\//; |
$r->print("<a href='$link'>".&mt('Back to Catalog Information').'</a>'); |
$r->print("<a href='$link'>".&mt('Back to Metadata').'</a>'); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |