![[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.3, 2002/07/18 19:57:14 | version 1.6, 2003/04/01 03:20:01 |
|---|---|
| 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, 0); | tie (my %fragmentLabels, 'GDBM_File', 'fragmentLabels.gdbm', &GDBM_WRCREAT(), 0660); |
| my $error = 0; | my $error = 0; |
| chdir "tex"; | chdir "tex"; |