![[BACK]](/icons/back.gif){kind=icon}
Return to rebuildLabelHash.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / doc / help|
Return to rebuildLabelHash.pl CVS log | Up to [LON-CAPA] / doc / help |
| version 1.4, 2002/08/20 02:43:38 | version 1.5, 2003/03/27 18:44:35 |
|---|---|
| Line 39 chdir "../../loncom/html/adm/help/"; | Line 39 chdir "../../loncom/html/adm/help/"; |
| unlink 'fragmentLabels.gdbm' if ( -e 'fragmentLabels.gdbm' ); | unlink 'fragmentLabels.gdbm' if ( -e 'fragmentLabels.gdbm' ); |
| print "Wiped old fragmentLabels.gdbm.\n"; | print "Wiped old fragmentLabels.gdbm.\n"; |
| tie (my %fragmentLabels, 'GDBM_File', 'fragmentLabels.gdbm', 1, 0660); | tie (my %fragmentLabels, 'GDBM_File', 'fragmentLabels.gdbm', &GDBM_WRCEAT(), 0660); |
| my $error = 0; | my $error = 0; |
| chdir "tex"; | chdir "tex"; |